coneccion VB y Access protegido con contraseña

Dante
19 de Octubre del 2004
Hola amigos alguien me puede decir como abrir una base de datos que esta en acces via codigo desde visual basic 6.0 y esta este protegida con contraseña esto con ADO - Acces ... :^) ,,,

Solid Snake
19 de Octubre del 2004
Coloca un dsn de sistema , y en un modulo lo siguiente


Public conexion As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub main()
'On Error GoTo etqerror
conexion.Open ("dsn=NOMBRE DE TU DSN ;user id = sa;pwd="AQUI VA LA CLAVE";")

MsgBox "Conexion Exitosa", vbInformation, "Conexion"
MUESTRE EL PRIMER REGISTRO

Exit Sub

etqerror:
MsgBox "Error de Conexion " & Err, vbCritical, "Conexion"

End Sub



* tienes que colocar en referencia Microsoft ActiveX Data Objects 2.5 Library

vitoto
19 de Octubre del 2004
mi codigo de coneccion es esta por favor me colaboras donde solicito la clave :

Dim wsws1 As Workspace
Dim dbContacts1 As DATABASE
Dim rsContacts1 As Recordset
Dim lista As String
Dim Espacio As String
ReDim Valores(8)
ReDim Longitud(4)
Dim Col As Integer

Set wsws1 = DBEngine.Workspaces(0)
Set dbContacts1 = wsws1.OpenDatabase("c:hospitalsaludhsalud.mdb")
Set rsContacts1 = dbContacts1.OpenRecordset("tempdetalla", dbOpenDynaset)

att [email protected]

gracias

Solid Snake
19 de Octubre del 2004
Coloca un dsn de sistema , y en un modulo lo siguiente


Public conexion As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub main()
'On Error GoTo etqerror
conexion.Open ("dsn=NOMBRE DE TU DSN ;user id = sa;pwd="AQUI VA LA CLAVE";")

MsgBox "Conexion Exitosa", vbInformation, "Conexion"
MUESTRE EL PRIMER Form
Exit Sub

etqerror:
MsgBox "Error de Conexion " & Err, vbCritical, "Conexion"

End Sub



* tienes que colocar en referencia Microsoft ActiveX Data Objects 2.5 Library