Visual Basic - Buscar un dato en una tabla de SQL

Life is soft - evento anual de software empresarial
 
Vista:

Buscar un dato en una tabla de SQL

Publicado por Hernan (78 intervenciones) el 06/05/2002 00:34:21
Hola, tengo un programa que se conecta a una base de datos SQL 2000, y tengo un formulario donde el usuario ingresa nombre de usuario y contraseña.
Yo quiero que Visual Basic se fije en una tabla (Donde estan los nombres de usuarios y sus contraseñas) si el nombre de usuario y clave ingresada estan en la tabla y de ser correctos, deje entrar al usuario.
Lo que no se es como programar en visual basic para que busque los datos en una tabla.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Buscar un dato en una tabla de SQL

Publicado por Victor Collado (51 intervenciones) el 06/05/2002 19:35:35
Hola
ahi va un ejemplo:

Private Sub cmdEnviar_Click()
If Validate(Text1.Text, Text2.Text) = True Then
'Validación Correcta, codigo para dejarlo pasar
Else
'Validación incorrecta, codigo para avisar al cliente de
' que no existe el usuario
End If
End Sub
Public Function Validate(strUsuario As String, strPassw As String) As Boolean
Dim objrec As ADODB.Recordset
Dim objcn As ADODB.Connection
Dim strSQL As String
Set objcn = New ADODB.Connection
Set objrec = New ADODB.Recordset
strSQL = "SELECT Nombre_Usuario, Passw FROM Tabla WHERE Nombre_Usuario =" & "'" & strUsuario & "'" & " AND Passw=" & "'" & strPassw & "'"
objcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\BaseDatos.mdb" & ";Persist SecurityInfo=False"

objcn.CursorLocation = adUseClient
objcn.Open
objrec.Open strSQL, objcn

If objrec.EOF Then
Validate = False
Else
Validate = True
End If

objrec.Close
Set objrec = Nothing
objcn.Close
Set objcn = Nothing
Exit Function
End Function
Noolvides agregar algún codigo para capturar errores de conexion u otros
Espero te resulte saludos
Victor Collado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar