SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Sagutxo en Viernes 16 de Marzo de 2007, 11:20

Título: Comprobar Si Pass En Db Access
Publicado por: 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.
 :comp:  :smartass:  :comp:

DB Access 97, agredeceré en mas versiones de access si es diferente. VB5
Título: Re: Comprobar Si Pass En Db Access
Publicado por: cpmario en Viernes 16 de Marzo de 2007, 16:08
Esto puede servirte.

Código: Text
  1. 'Comprobar si la DB tiene password
  2. Function DatabasePassword(DBPath As String) As Boolean
  3. 'Regresa verdadero si la BD tiene password
  4.     Dim db As Database
  5.    
  6.     On Error Resume Next
  7.     Set db = DBEngine.OpenDatabase(DBPath, True, False, ";pwd=")
  8.     If Err.Number <> 0 Then
  9.         DatabasePassword = True
  10.     Else
  11.         DatabasePassword = False
  12.     End If
  13. End Function
  14.  
:comp:
Título: Re: Comprobar Si Pass En Db Access
Publicado por: Sagutxo en Viernes 16 de Marzo de 2007, 17:48
Salu2, muchas gracias machine.

 :smartass:  :comp:  :smartass:
Título: Re: Comprobar Si Pass En Db Access
Publicado por: ArKaNtOs en Sábado 24 de Marzo de 2007, 06:19
Añadiendo a este post :P 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 :)
Título: Re: Comprobar Si Pass En Db Access
Publicado por: cpmario en Sábado 24 de Marzo de 2007, 16:26
Revisa esta discusión:

http://foros.solocodigo.com/index.php?show...hl=contrase%F1a (http://foros.solocodigo.com/index.php?showtopic=13884&hl=contrase%F1a)

 :comp:
Título: Re: Comprobar Si Pass En Db Access
Publicado por: cpmario en Sábado 24 de Marzo de 2007, 16:31
Revise la rutina que estaba en la discusión que te recomendé y puede quitarse la variable de recordset.

Código: Text
  1. Dim dbContrato As Database
  2. Dim strSQL as String
  3.  
  4. Set dbContrato = DBEngine.OpenDatabase(PathDeBase, False, False, ";Pwd=MiContraseña")
  5. strSQL = "SELECT * FROM Clientes ORDER BY IdCliente"
  6. Set Data1.Recordset = dbContrato.OpenRecordset(strSQL, dbOpenDynaset)
  7.  
:comp: