Operaciones SQL en VB6

Las operaciones CRUD (Create, Retrieve, Update, Delete), son utilizadas comúnmente en consultas SQL, más aun dentro de programas que utilicen alguna base de datos, por lo que aquí dejo el código para una pequeña función que ejecuta dichas operaciones en determinada tabla, haciendo uso del ADODB de Visual basic.

'****************************
'Modulo con declaraciones y funciones
'****************************

Public xcon As New ADODB.Connection  'Declaramos un objeto ADO, 

Public Function exec_sql(ByVal SQL As String) 'Función de operaciones CRUD, sobre la Base de datos.
    On Error GoTo chec
        With xcon
            .BeginTrans
            .Execute SQL
            .CommitTrans
        End With
    Exit Function
chec:
    xcon.RollbackTrans
    MsgBox Err.Description
End Function
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

'****************************
'*******     Formulario
'****************************

Private Sub cmd_record_Click()
        ´'Aquí generamos nuestra consulta; en este caso un "Update"
        SQL = "Update consumibles set existencia=" & cantidad & " where id=" & ID & ""

        'Seguido, enviamos la query a nuestra función
        exec_sql SQL
End Sub
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

Por ahora solo he publicado código en VB6, más adelante utilizare otros lenguajes.

* That’s all folks *