BARGAR
02 de Abril del 2004

Hola a todos/as.

Necesito que alguien me diga el código para poder abri una bd con contaseña.-

Quiero que desde el programa no me pida la contraseña, sólo en caso de que quieran abrir la bd directamente (por seguridad claro).-

Gracias de antemano.-

rmario
02 de Abril del 2004

'Abre una base con contraseña, asigno a un recorset, y muestro el primer regstro de la primer columna en un TextBox

Private Sub Form_Load()
Dim rs As New Recordset
Dim DBase As New ADODB.Connection
DBase.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source= C:base1.mdb" & ";" & "Jet OLEDB:Database Password=clave"
DBase.Open
rs.Open "select * from Tabla1", DBase
Text1.Text = rs(0)
End Sub

' ESPERO QUE TE SIRVA, CUALQUIER DUDA MANDA UN MAIL