
12/08/2004, 10:16
|
 | | | Fecha de Ingreso: junio-2004
Mensajes: 37
Antigüedad: 20 años, 10 meses Puntos: 0 | |
pdjazr la actualizacion la hago con una clase "clsDatos" la cual contiene un metodo Execute que actualiza la base de datos:
Friend Function Execute(ByVal strSQL As String) As Integer
Dim cnn As New OleDb.OleDbConnection(_strConnection)
'intanciar objetos para la manipulación de datos con la consulta
Dim cmd As New OleDb.OleDbCommand
Dim trans As OleDb.OleDbTransaction
'Execute = 0
Try 'Manejador de errores
'Abrir la conexion
cnn.Open()
trans = cnn.BeginTransaction
cmd.Connection = cnn
cmd.CommandType = CommandType.Text
cmd.CommandText = strSQL
cmd.Transaction = trans
'Ejecutar la sentencia
Execute = cmd.ExecuteNonQuery()
'Cerrar la conexion
trans.Commit()
Catch ex As Exception 'Cachar el error
trans.Rollback()
Execute = -1
HttpContext.Current.Response.Write("<div class=error>" & ex.Message & "</div>")
Finally
cnn.Close()
'destruir objetos
cmd = Nothing
trans = Nothing
cnn = Nothing
End Try
End Function
Este es el metodo que utilizo para la actualizacion. Para ligar el datagrid al origen de datos utilizo la funcion DG_DataBind() y aqui esta el codigo:
Private Sub DG_DataBind()
Dim cls As New clsDatos 'Clase para acceso a datos
Dim ds As New DataSet ' DataSet
'GetDatos regresa un objeto de tipo dataset, como resultado de la consulta
ds = cls.GetDatos("select id_patrocinador,nombre,login,password,logo,mail,pa gina_web from patrocinadores order by nombre")
DGPatrocinadores.DataSource = Nothing
DGPatrocinadores.DataSource = ds.Tables(0).DefaultView
DGPatrocinadores.DataBind()
cls = Nothing
ds = Nothing
End Sub
tiene que ver que la propiedad EnabledViewState del datagrid este en TRUE? |