Ayuda en Proteger mi aplicacion

Alexforo
29 de Julio del 2004
Hola necesito que me digan como puedo hacer para que antes de entrar al formulario donde tengo un Grid relacionada con la tabla , me pida ( en una ventana ) el login y contraseña que estableci en la base de datos de access (La que tiene en Herramientas "Establecer Contraseña para la base de Datos")
De antemano gracias

Alexforo
29 de Julio del 2004
Se me olvido decirle que sea atraves de ADO ( Por el Control o por Codigo)

krizall
29 de Julio del 2004
hola alexforo
en este momento voy de salida y pero dentro de una hora y media o menos regreso y te mando un modulo para conectarte con contraseña


Walter
29 de Julio del 2004
Si me puedes enviar una copia del modulo que mencionas te lo agradezco. Saludos

Felipe Henr?ez
29 de Julio del 2004
Abre la conexión de esta forma.

Basex = "Gestion.Mdb"
dbsGESTION.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = " & App.path & "" & Basex & ";" & " Jet OLEDB:Database Password = CLAVEACCESS "

donde CLAVEACCESS será la contraseña que le diste en Access, eso es todo amigo, te mando un saludo desde CHILE

FELIPE

Alexforo
29 de Julio del 2004
Ok pero CLAVEACCESS seria mas bien asi " & claveaccess & ", porque quiero que antes se almacnee en una varibale para ver si te permite el acceso, solo que cando no es la clave adecuada me marca error , como puedo usar la estructura ON ERROR para que se no me permita entrar al formulario?

Conejo Blanco
29 de Julio del 2004
esta funcion regresa un 1 o un 0 si esta o no esta espero te sirva de algo
Function valic(dato, base As String, tabip) As String
Dim sPathBase As String
sPathBase = base
Set db1 = OpenDatabase(sPathBase)
Dim susuario As String
Dim srt As Recordset
susuario = "SELECT * FROM " & tabip & " WHERE Pass='" & dato & "'"
Set srt = db1.OpenRecordset(susuario, dbOpenSnapshot)
'/////busca usuario
With srt
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No se encontrado la Usuario " & dato
' End
valic = 0
Else
valic = 1
.MoveNext
End If
End With
End Function

Boton de aceptar click
Dim una As String
uno = Text1.Text
t = "Usuarios"
If uno = "" Then
MsgBox "no ahi datos", vbCritical, "Error"
Else
res = valic(uno, admi, t)
If res = 1 Then
MDIForm1.Show
Me.Hide
Else
MsgBox "no se encontro", vbCritical, Error
End If
End If

krizall
29 de Julio del 2004
hola alexforo como veo que ya te dieron la solucion creo que ya no sera necesario, pero si aun lo necesitas ya sea para su uso o probarlo, escribeme y te lo envio
ok