Autor Tema: Comprobar Si Pass En Db Access (Leído 1702 veces)

Sagutxo · « **en:** Viernes 16 de Marzo de 2007, 11:20 »

Salu2.

Es posible saber si una DB access tiene pass de apertura antes de que de error en su apertura?.

Gracias.

DB Access 97, agredeceré en mas versiones de access si es diferente. VB5

cpmario

Esto puede servirte.

Código: Text

'Comprobar si la DB tiene password
Function DatabasePassword(DBPath As String) As Boolean
'Regresa verdadero si la BD tiene password
    Dim db As Database
    
    On Error Resume Next
    Set db = DBEngine.OpenDatabase(DBPath, True, False, &#34;;pwd=&#34;)
    If Err.Number &#60;&#62; 0 Then
        DatabasePassword = True
    Else
        DatabasePassword = False
    End If
End Function
 

Sagutxo

Salu2, muchas gracias machine.

ArKaNtOs

Añadiendo a este post

tengo una dudilla algo tonta con el control data como es posible pasarle el parametro del pass a la bd para poderla usar?, se puede cambiar desde ahi el pass? dudas tontas pero me gustaria saber si se puede thanx

cpmario

Revisa esta discusión:

http://foros.solocodigo.com/index.php?show...hl=contrase%F1a

cpmario

Revise la rutina que estaba en la discusión que te recomendé y puede quitarse la variable de recordset.

Código: Text

Dim dbContrato As Database
Dim strSQL as String
 
Set dbContrato = DBEngine.OpenDatabase(PathDeBase, False, False, &#34;;Pwd=MiContraseña&#34;)
strSQL = &#34;SELECT * FROM Clientes ORDER BY IdCliente&#34;
Set Data1.Recordset = dbContrato.OpenRecordset(strSQL, dbOpenDynaset)
 

SoloCodigo

Autor Tema: Comprobar Si Pass En Db Access (Leído 1702 veces)

Sagutxo

Comprobar Si Pass En Db Access

cpmario

Re: Comprobar Si Pass En Db Access

Sagutxo

Re: Comprobar Si Pass En Db Access

ArKaNtOs

Re: Comprobar Si Pass En Db Access

cpmario

Re: Comprobar Si Pass En Db Access

cpmario

Re: Comprobar Si Pass En Db Access