Obtener datos de una base de datos(Access)
NECESITO TODO TIPO DE AYUDA PARA PODER ACCEDER A UNA BASE DE DATOS (P.EJ.:ACCESS) DESDE UN PROGRAMA CREADO CON VISUAL BASIC 6. MUXAS GRACIAS
Hay muchos metodos
Ej adodc
crea un dsn de sistema con driver access y luego en un modulo creo una conexion ya si los conectas
'****************************
'Public db As Database ' la base
Public r As Recordset ' el recordset
Public conexion As New ADODB.Connection 'declaras la conexion
Public rsCat As New ADODB.Recordset
Sub main()
'On Error GoTo etqerror
conexion.Open ("dsn=dsn_prueba;user id = sa;pwd=;") ' este es el nombre del dsn y alli le indicas la ruta(en el dsn te pide ruta))
Form1.Show' para uqe muestre el form1 o el mdi
Exit Sub
etqerror:
MsgBox "error de Conexion", vbCritical, conexion
End Sub
'haz que el proyecto cuando se ejcute inicie en el modulo
Espero que te ayude a la conexion cuando la tengas me avisas si necesites algo
Saludos
Ej adodc
crea un dsn de sistema con driver access y luego en un modulo creo una conexion ya si los conectas
'****************************
'Public db As Database ' la base
Public r As Recordset ' el recordset
Public conexion As New ADODB.Connection 'declaras la conexion
Public rsCat As New ADODB.Recordset
Sub main()
'On Error GoTo etqerror
conexion.Open ("dsn=dsn_prueba;user id = sa;pwd=;") ' este es el nombre del dsn y alli le indicas la ruta(en el dsn te pide ruta))
Form1.Show' para uqe muestre el form1 o el mdi
Exit Sub
etqerror:
MsgBox "error de Conexion", vbCritical, conexion
End Sub
'haz que el proyecto cuando se ejcute inicie en el modulo
Espero que te ayude a la conexion cuando la tengas me avisas si necesites algo
Saludos
