validar Cerrado

Question

hey... estoy tratando de hacer  un sistema de control de visitas en visual basic 6.0 ycon base de datos access y necesito saber como validar el inici de sesion para q el administrador dentre al sistema con usuario y contraseña... sera q me ayuda!!!

Nnet · Answer

Hola

aca te mando un link

http://www.codigogratis.com.ar/post-1.html

yulianny · Answer

gracias Nnet espero encontrar algo

yulianny · Answer

hola quisiera saber si estoy conectando bie visual con access
 Option Explicit
Public mirs As Connection
Public cnn As Recordset
Public Sub conecta_DB()
Set micnn = New ADODB.Connection
Set mirs = New ADODB.ecordset
Dim servidor, basedatos, Usuario, Contraseña As String
Set mirs.Provider = "MICROSOFT.JET.OLEDB.4.0"
Set cnn.Open = Path + "\prueba.MDB"
End Sub

yulianny · Answer

BUENO AHORA QUIERO INICIAR SESION
Public Function Validar_INICIO(ByVal INICIO As String) As Boolean
    
    Dim i As Integer, iLen As Integer, caracter As String
    Dim pos As Integer, bp As Boolean, iPos As Integer, iPos2 As Integer

    On Local Error GoTo Err_Sub

    INICIO = Trim$(INICIO)

    If INICIO = vbNullString Then
        Exit Function
    End If

    INICIO = LCase$(INICIO)
    iLen = Len(INICIO)

    
    For i = 1 To iLen
        caracter = Mid(INICIO, i, 1)

        If (Not (caracter Like "[a-z]")) And (Not (caracter Like "[0-9]")) Then
            
            If InStr(1, "_-" & "." & "@", caracter) > 0 Then
                If bp = True Then
                   Exit Function
                Else
                    bp = True
                   
                    If i = 1 Or i = iLen Then
                        Exit Function
                    End If
                   
    If iPos = 0 Or iPos2 = 0 Then
        Exit Function
    End If
    
    If iPos2 < iPos Then
        Exit Function
    End If

    
    Validar_INICIO = True

    Exit Function
Err_Sub:
    On Local Error Resume Next
    
    Validar_INICIO = False
End Function

Validar

4 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!