'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
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.
0 comentarios:
Publicar un comentario