Visual Basic Foro

Programación => Bases de Datos => Mensaje iniciado por: cobein en Septiembre 08, 2011, 10:36:34 am

Título: Password ADO Access
Publicado por: cobein en Septiembre 08, 2011, 10:36:34 am

Buen día, esto es muy basico pero no lo puedo hacer andar, tengo una DB de access protegida con password y no logro hacer que conecte, este es el string ""Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase & " ;Password=l4Q7h5T2"" que me da el error, dice que el archivo esta abierto en modo exclusivo o que falta un archivo de informacion.

Alguna idea?

Título: Re:Password ADO Access
Publicado por: seba123neo en Septiembre 08, 2011, 12:14:00 pm

Hola, si me paso una vez, esta es la solucion:

Como conectarse a una BdD con contraseña desde VB6? (http://www.forosdelweb.com/f69/como-conectarse-bdd-con-contrasena-desde-vb6-405081/)

la solucion la da el usuario del post numero 5. probala

saludos.

Título: Re:Password ADO Access
Publicado por: E N T E R en Septiembre 08, 2011, 02:31:43 pm

Aca te dejo como yo uso nunca tube problemas.

Código: [Seleccionar]

Public ADOConexion As ADODB.Connection
Public ComandoSQL As String

Public Sub ConectarADO()
   
    If DataEnvironment1.Connection1.State = adStateOpen Then DataEnvironment1.Connections("Connection1").Close

    Set ADOConexion = New ADODB.Connection
    ADOConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\STOCK.mdb;Persist Security Info=False;Jet OLEDB:Database Password=xxxx"
    ADOConexion.Open
   
End Sub
   
Public Sub CerrarADO()
   
    ADOConexion.Close
    Set ADOConexion = Nothing

End Sub

Título: Re:Password ADO Access
Publicado por: cobein en Septiembre 08, 2011, 03:47:34 pm

Perfecto, conecto sin problemas.

Gracias!