martes, 13 de diciembre de 2011

vb2010 Funcion para actualizar nuestra base de datos

Función para hacer un INSERT, UPDATE y un DELETE a nuestra base de datos desde visual basic 2010.


'Funcion para actualizar los registros en la tabla con mensaje de finalización
'Insert Into
'Update
'Delete
Public Sub updateRegistrosC(ByVal mySQL As String)
Dim cmd As New Odbc.OdbcCommand
Try
Cursor.Current = Cursors.WaitCursor
cmd = New OdbcCommand(mySQL, conn)
Dim x As Integer
'Ejecutamos la sentencia solicitada
x = cmd.ExecuteNonQuery()
'Mostramos mensaje
MsgBox("Los información se actualizó correctamente", MsgBoxStyle.Information, "Costeo CIC")
Cursor.Current = Cursors.Default
Catch ex As Exception
MsgBox(ex.Message)
Finally
cmd.Dispose()
End Try
End Sub

No hay comentarios:

Publicar un comentario