Visual Basic - En VB 6.0 como me conecto a una bd access 2003

Life is soft - evento anual de software empresarial
 
Vista:

En VB 6.0 como me conecto a una bd access 2003

Publicado por ALE (3 intervenciones) el 11/10/2005 17:33:37
Hola a todos, tengo una BD diseñada en Access 2003, cual es el codigo de conexion a la base de datos?? y si tienen a una base de datos 2000, tambien.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:En VB 6.0 como me conecto a una bd access 2003

Publicado por ivan (1039 intervenciones) el 11/10/2005 19:00:45
Yo uso el Access 2003 y programo con el Visual Basic 6.0, las conexiones a los archivos MDB las hago por medio de ODBC, pero antes no lo tenía así, te pongo un ejemplo de cómo abría las bases de datos, antes de cambiarlas a ODBC.

Defines las variables...:

Dim conexion As ADODB.Connection
Dim tabla As ADODB.Recordset

En cualquier otra parte del código... por ejemplo en el Evento Form_Load...:

Set conexion = New ADODB.Connection
Set tabla = New ADODB.Recordset
conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ejemplo.mdb;Persist Security Info=False"
conexion.Open
tabla.Open "SELECT * from TABLA1", conexion, adOpenKeyset, adLockOptimistic

Espero esto te sea de utilidad, si acaso siguen los problemas, coméntalos a ver qué se puede hacer.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:En VB 6.0 como me conecto a una bd access 2003

Publicado por Rick Hunter (26 intervenciones) el 13/10/2005 19:55:30
Mejor explota el motor jet de Microsoft:

Set dbs = Workspaces(0).OpenDatabase("\Directorio\BASE.MDB")
Set rsttmp = dbs.OpenRecordset("TABLA1", dbOpenTable)
Set rsttmp2 = dbs.OpenRecordset("TABLA2", dbOpenTable)
rsttmp2.Index = "PrimaryKey"

Ojala y te sirva.
SALUDOS!!
Desd coahuila,Mexico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar