Abrir tabla de una BD de acces con visual basic

[CarlosChalen1981]

Q tal amigos del foro..
Espero que me ayuden en este tema:
Tengo un modulo creado de esta manera..
-----------------------------------------------------------
Option Explicit
Public cnn1 As ADODB.Connection
-------------------------------------------------------------
Public Sub main()

Dim cnn1 As ADODB.Connection
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "provider=microsoft.jet.OLEDB.4.0;" & "data source=" & App.Path & "\based.mdb"
cnn1.Open

formulario.Show
End Sub
como an de saber con esto me conecto con la BASE de DATOS y funciona....

Ahora lo que quiero es que pueda abrir una tabla desde un formulario ya sea para agregar o guardar registros

De ante,mano gracias...............

[SalomonSab]

Este tema se ha tratado ya muchas veces pero aqui te va una ayudadita

Si lo que quieres es insertar datos utilizas algo asi:

Código:

cnn1.Execute "INSERT INTO TuTabla(NombredelCampo1, NombredelCampo2 ....) VALUES('" & TuTextbox1.Text & "', '" & TuTextBox2.Text & "')"

Si lo que quieres es actualizar datos seria asi:

Código:

cnn1.Execute "UPDATE FROM TuTabla WHERE NombredelCampoaModificar = '" & TuCondición & "'"

Ahora si lo que quieres es Eliminar un Registro algo asi:

Código:

Cnn1.Execute "DELETE FROM TuTabla WHERE NombredelCampoaModificar = '" & TuCondición & "'"

Bueno espero te sirva
Hasta pronto

[-rommel_]

este es un ejemplo que esta en la internet

Código vb:

Option Explicit
 
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
 
Private Sub cmdAbrir_Click()
    Dim Field As ADODB.Field
    'Cerrar las conexiones
    Set cn = Nothing
    Set rs = Nothing
    ' Crear los objetos ADODB
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    ' abrir la base usando id y password
    cn.Open "Provider=SQLOLEDB; " & _
             "Initial Catalog=pubs; " & _
             "Data Source=(local); " & _
             "integrated security=SSPI; persist security info=True;"
    ' abrir el recordset indicando la tabla a la que queremos acceder
    rs.Open "SELECT * FROM authors", cn, adOpenDynamic, adLockOptimistic
    ' Asignar los nombres de los campos al combo
    With cboFields
        .Clear
        For Each tField In rs.Fields
            .AddItem Field.Name
        Next
        .ListIndex = 0
    End With
    ' Cerramos el recordset y la conexión
    rs.Close
    cn.Close
End Sub