Hola, hay varias formas de conectar a una BD Access dependiendo del Provider la mas usual es mediante JET.OLEDB
'Declarar la conexión (tiene que estar marcada la referencia a ADO)
Dim cn As New ADODB.Connection
'Abrir la conexión (en este caso la BD está en el mismo directorio de la aplicación)
cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\NombreBD.mdb"
'Declarar una variable de tipo String que contendrá la consulta SQL
Dim Sql As String
'Agregar datos a una tabla
Sql = "INSERT INTO LaTabla (campo1, campo2, campo3...) VALUES (variable1, variable2, variable3...)"
'Modificar datos de una tabla
Sql = "UPDATE LaTabla SET campo1 = variable1, campo2 = variable2, campo3 = variable3... WHERE criterio =..."
'Eliminar datos de una tabla
Sql = "DELETE * FROM LaTabla WHERE criterio = ..."
'Para ejecutar la consulta
cn.Execute(Sql)
'Para recorrer los resultados, tienes que abrir un recordset y mostrar el mismo en un control Grid
Dim rs As New ADODB.Recordset
'Abrir el recordset
rs.Open "Select * from LaTabla", cn, adOpenDynamic, adLockOptimistic
Notas:
"criterio" será algo como 'campox = variablex'
Debes tener en cuenta que las variables si son de tipo String deben ir entre comillas simples (') y si son fecha, entre almohadillas (#).
Aunque eso es una forma podrias hacerlo directamente con el control Ado que seria mas facil diria yo si necesitas algo solo postealo.
En Access men alguna idea o pagina que me recomiendes
La que te dijo seba es una de las mejores hay encontraras de todo..
Saludos....
Mostrar Mensajes
