COMO PASO Contraseña al ABRIR LA CONEXION

Susi?
06 de Octubre del 2003
Tengo esta conexion :
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:DATOS.mdb;"
Desde access le meto una contraseña a la base de datos. Como le paso esta contraseña en la cadena de Conexion ???.
Muchas Gracias

sdemingo
06 de Octubre del 2003
Te paso unos ejemplillos:

Public Sub ConnectionString()

Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.Connection
Dim cnn3 As ADODB.Connection
Dim cnn4 As ADODB.Connection

' Abre una conexión sin usar un Data Source Name (DSN).
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
cnn1.ConnectionTimeout = 30
cnn1.Open

' Abre una conexión usando DSN y ODBC.
Set cnn2 = New ADODB.Connection
cnn2.ConnectionString = "DSN=Pubs;UID=sa;PWD=pwd;"
cnn2.Open

' Abre una conexión usando DSN y OLE DB.
Set cnn3 = New ADODB.Connection
cnn3.ConnectionString = "Data Source=Pubs;User
ID=sa;Password=pwd;"
cnn3.Open

' Abre una conexión que usa un DSN y argumentos
' individuales en lugar de una cadena de conexión.
Set cnn4 = New ADODB.Connection
cnn4.Open "Pubs", "sa", "pwd"

' Muestra el estado de las conexiones
MsgBox "cnn1 state: " & GetState(cnn1.State) & vbCr & _
"cnn2 state: " & GetState(cnn2.State) & vbCr & _
"cnn3 state: " & GetState(cnn3.State) & vbCr & _
"cnn4 state: " & GetState(cnn4.State)

cnn4.Close
cnn3.Close
cnn2.Close
cnn1.Close

End Sub

Public Function GetState(intState As Integer) As String

Select Case intState
Case adStateClosed
GetState = "adStateClosed"
Case adStateOpen
GetState = "adStateOpen"
End Select

End Function


Un saludo
sdemingo