Comprobar user en base de datos

[lotusnovas]

Hola, estoy buscando la forma de poder comprobar un user en una base de datos, tipo login, lo que quiero hacer es que al iniciar el programa este pida comprobar un usuario para que habra el form principal, ya busque en google, youtube pero no entender esto.

dejo el codigo fuente que me envio un amigo, es algo asi lo que busco pero este es algo mas complicado.

Código:

http://www.mediafire.com/?y8g1h5hao3ca7va

Gracias de antemano

[freedatos]

Bueno una forma facil y rapida seria esta:


añades un componente Inet

y luego

Código PHP:

  final = Inet.OpenURL ("URL con parametros GET de user y pass ") 
   

en la variable final cargaremos lo obtenido del php por ejemplo que a echo login y en caso 1 pasa caso 0 no pasa sencillo.

en el php si hace login y todo es correcto haces un simple :

Código PHP:

  echo 1; // en el caso de login correcto 
   

[lotusnovas]

freedatos muchas gracias por tu respuesta, ya que no puedo editar mi post me explico mejor...

Buscando en google me encontre esto en youtube que es algo que me funcionaria perfecto el problema es que no se a que se deba este error si hago exactamente tal y como se muestra en e video



este es el error que me aparece al ejecutar el programa probado en localhost y en mi hosting

http://preview.filesonic.com/img/1229541.jpg

Alguien me puede decir por favor a que se debe?

Muchas gracias de antemano.

[isabellawebs]

Si conoces de programación, usa lo que te propone en codigo dreamweaver, y lo haces a tu manera, me parece es buena opción, ya que dw, te lo hace en un 2 x 3.

[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!

[culd]

Si es usuario de la base de datos, entonces crea una conexion con un usuario que no exista, entonces te va a tirar error... Guarda el numero y la descripcion...

Con un "On error goto" podes diferenciar los errores, y ahi vas a saber si es error de IP, PUERTO, BASE, USUARIO, ETC...

Ahora, si lo que vos queres es un usuario para el uso del programa, osea usuario y ahi tener los previlegios en tu programa, entonces tenes que tener una tabla de usuarios con nombres y contraseñas, y ahi verificas, como dijo el amigo mas arriba.