Comprobar user en base de datos

[lokoman]

???

Crear la conexion? (HAZ TODOS ESTOS PASOS PARA ASEGURARTE DE QUE LA CONEXION ESTA CORRECTA)
1. Conexion:
• Añade el componente "Microsoft ADO Data Control 6.0 (OLEDB)"
• Añade el componente al formulario "LOGIN"
• Clic derecho al componente en el formulario
• Seleccionar "ADODC Properties"
• Seleccionar la opcion "Use connection string"
• Clic en "Build", te saldrá un asistente de conexion
• Selecciona el proveedor "Microsoft OLE DB Provider for SQL Server"
• Clic en Siguiente o Next
• Escribir el nombre del Server, User name y Password en los campos corrrespondientes
• Seleccionar la base de datos de la lista "Select the database on the Server"
• Clic en "Test conecction", tiene que salir un cuadro de dialogo que diga "Test connection Succeeded!!"
• Se cerrará el asistente y te dejará en "ADODC Properties", con los datos de conexion, lo seleccionas todo, le das copy

2. Pegas el siguiente CODE en tu formulario "LOGIN", reemplazando el "ConnectionString" por el tuyo:

Código vb:

Public ConexionDB As ADODB.Connection
 
Public Sub Conexion()
    Set ConexionDB = New ADODB.Connection
 
'REEMPLAZA LA CONEXION POR EL TUYO, EL QUE LE DISTE COPY DEL PASO ANTERIOR    
    ConexionDB.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
        & "User ID=sa;Initial Catalog=Northwind;Data Source=SQLSERVERNAME"
    ConexionDB.Open
    
    If ConexionDB.State = 1 Then
        MsgBox "Se ha establecido la conexion con la BD!!", vbInformation
    Else
        MsgBox "Verificar la conexion a la BD!!", vbExclamation
    End If
End Sub
 

3. Ya puedes borrar el componente "ADODC" del formulario

4. Consultar datos:
• Añade 2 Textbox: 1) txtUsuarios, 2) txtPassword
• Añade 1 CommandButton: cmdAcceder

Código vb:

Private Sub cmdAcceder_Click()
    Dim rstConsultaUser As ADODB.Recordset
    Set rstConsultaUser = New ADODB.Recordset
 
    If Trim(txtUsuario.Text) <> Empty And Trim(txtPassword.Text) <> Empty Then
 
'CONSULTAR EL USUARIO Y EL PASSWORD EN LA BASE DE DATOS
        rstConsultaUser.Source = "SELECT * FROM TABLA WHERE ID_USUARIO=" _
                               & Trim(txtUsuario.Text) & " AND PASSWORD=" & Trim(txtPassword.Text)
        rstConsultaUser.Open , ConexionDB, adOpenStatic, adLockReadOnly
        
        If rstConsultaUser.EOF = False Then
'SI LOS DATOS ESTAN CORRECTOS, MOSTRAR EL FORMULARIO PRINCIPAL
            frmMain.Show
        Else
            MsgBox "Datos incorrectos!!" & vbNewLine & "No puede acceder!!", vbInformation
        End If    'Fin del If rstConsultaUser.EOF = False Then
    Else
        MsgBox "Verificar los campos!!", vbInformation
    End If    'Fin del If Trim(txtUsuario.Text) <> Empty And Trim(txtPassword.Text) <> Empty Then
 
'LIMPIAR LAS REFERENCIAS
    If rstConsultaUser.State = 1 Then rstConsultaUser.Close
    Set rstConsultaUser = Nothing
End Sub
 

5. Ajusta los datos a los tuyos y nos cuentas!