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

0 comentarios:

Publicar un comentario