coneccion VB y Access protegido con contraseña
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 ... :^) ,,,
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
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
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
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
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
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