Actualizar datos

06/07/2006 - 18:01 por JReyes | Informe spam
Como puedo hacer lo siguiente; si hay un cambio en los textbox actualizar en
la base de datos y si no se modifico nada que presente algun mensaje.

este es mi codigo para actualizar:

MyConection.AbrirConexion()
Dim cActualizar As OleDbCommand
cActualizar = New OleDbCommand("UPDATE AM_Seguro SET " & _
"Nombre_Seguro = @Nombre," & _
"Direccion_Seguro = @Direccion " & _
"WHERE ID_Seguro = @Codigo", oSQLConn)

cActualizar.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value=
txtDescripcion.Text
cActualizar.Parameters.Add("@Direccion", OleDbType.VarChar, 255).Value=
txtDireccion.Text
cActualizar.Parameters.Add("@Codigo", OleDbType.Numeric, 10).Value=
txtCodigo.Text
Try
cActualizar.ExecuteNonQuery()
MsgBox("Información actualizada correctamente...", sgBoxStyle.Information,
"Info. Consultorio")
MyConection.CerrarConexion()
Catch ex As Exception
MsgBox(ex.Message)
End Try

Preguntas similare

Leer las respuestas

#1 Jesús M.I
14/07/2006 - 02:55 | Informe spam
Machancando los datos, si hay cambios... pues q añada esos nuevos datos.
Vacia, rellena y muestra los datos del dataset.

"JReyes" escribió:

Como puedo hacer lo siguiente; si hay un cambio en los textbox actualizar en
la base de datos y si no se modifico nada que presente algun mensaje.

este es mi codigo para actualizar:

MyConection.AbrirConexion()
Dim cActualizar As OleDbCommand
cActualizar = New OleDbCommand("UPDATE AM_Seguro SET " & _
"Nombre_Seguro = @Nombre," & _
"Direccion_Seguro = @Direccion " & _
"WHERE ID_Seguro = @Codigo", oSQLConn)

cActualizar.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value=
txtDescripcion.Text
cActualizar.Parameters.Add("@Direccion", OleDbType.VarChar, 255).Value=
txtDireccion.Text
cActualizar.Parameters.Add("@Codigo", OleDbType.Numeric, 10).Value=
txtCodigo.Text
Try
cActualizar.ExecuteNonQuery()
MsgBox("Información actualizada correctamente...", sgBoxStyle.Information,
"Info. Consultorio")
MyConection.CerrarConexion()
Catch ex As Exception
MsgBox(ex.Message)
End Try
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida