Jhonny
22 de Junio del 2003

Como hago para conectar el proyecto con la base de datos cuando esta tiene contrase帽a.

duna98
22 de Junio del 2003

Dim cn1 As ADODB.Connection
Dim cn2 As ADODB.Recordset
Dim dbase As String
dbase = "c:direcci贸n de la base de access ejemplo.- c:datos.mdb"
Set cn1 = New ADODB.Connection
cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data source=" & dbase & ";" & _
"Jet OLEDB:Database Password=password de la base de access"
Set cn2 = New ADODB.Recordset
cn2.CursorType = adOpenDynamic
cn2.Open "select * from tabla de access que euieras abrir;", cn1, , , adCmdText

duna98
22 de Junio del 2003

Dim cn1 As ADODB.Connection
Dim cn2 As ADODB.Recordset
Dim dbase As String
dbase = "c:direcci贸n de la base de access ejemplo.- c:datos.mdb"
Set cn1 = New ADODB.Connection
cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data source=" & dbase & ";" & _
"Jet OLEDB:Database Password=password de la base de access"
Set cn2 = New ADODB.Recordset
cn2.CursorType = adOpenDynamic
cn2.Open "select * from tabla de access que quieras abrir;", cn1, , , adCmdText