Conectar base de datos access con Visual Basic 6.0

[hebert]

Soy un principiante y no se como conectar una base de datos de access con visual basic 6.0 , necesito que alguien me ayude please.

[rogeeer]

debes declarar una variable de tipo conexion de esta forma

Global cnnInfLoc As New ADODB.Connection

y para conectarte con la B.D, que en mi caso es Acces 97 y con password, lo hago de la sig. manera

cnnInfLoc.Open ConnectionString:="Provider=Microsoft.Jet.OLEDB.3. 51;Persist Security Info=False;Data Source=c:\sim\control.mdb;Jet OLEDB:Database Password=cajauniv"

si tu base es de Acces 2000, cambia la conexion muy poco

cnnInfLoc.Open ConnectionString:="Provider=Microsoft.Jet.OLEDB.4. 0;Persist Security Info=False;Data Source=c:\sim\control.mdb;Jet OLEDB:Database Password=cajauniv"


y de esta forma logro la conexion, pero para poder continuar, solmente compruebo, si la conexion tuvo exito de la sig. forma

if cnnInfLoc.state then
frminicio.show 1
else
msgbox "No se logro la conexion"
end
endif

si tuvo exito la conexion abro un formulario, si no mando un mensaje y termino el programa.

bueno espero que te sirva, ok.

[jpogsistem]

http://www.softdownload.com.ar/curprograma.htm

[luk_arenas]

primero tienes que activar la libreria 2.8 o 2.7 eso se hace de la siguiente manera
Te vas al menu Proyecto /Referencias y activas Microsoft Activex Data Objects 2.8 Library o la Microsoft Activex Data Objects 2.7 Library cualquiera que eligas funciona biien.
Luego creas un modulo y copias el cod fuente

Global Conexion As New ADODB.Connection
Global Tabla As New ADODB.Recordset
Sub cerrar()
Conexion.Close
End Sub
Sub abrir()
Conexion.ConnectionString = App.Path + "\base_de_datos.mdb"
Conexion.Provider = "microsoft.jet.oledb.4.0"
Conexion.Open
End Sub

y asi ya tienes conectada la base de datos en access con visual 6.0 y puedes trabajar con sentencias sql sin problemas

Saludos

Lucas Matias Arenas

[email protected]

[huesos52]

7 años después seguro seguirá con el problema.

[UID]

jajajaja te pasas :P pero puede que si siga con el problema nunca agradecio.. deberas con esta gente que no es agradecida.

[arumando]

Despues de 7 años casi ya los 8 me sirvio esto, gracias!!

[patob]

Milenios despues encontre esta info y me sirvio. Gracias

[Zealoth]

Buenas tardes.
No quise crear un nuevo tema ya que este esta relacionado con lo que necesito saber.
Pido su ayuda ya que quiero enlasar la extension .accdb perteneciente a Access 2007-2010
y el Visual Basic 6.0 no me la reconoce.
pudieran decirme si hay alguna libreria o parche o algo asi que me permita hacerlo.
Muchas gracias y estoy a su disposicion.