Ejecutar SQL

Espero que tengas un buen día
Mi pregunta es como ejecutar una consulta sql desde visual basic 6.0 para que el usuario dijiste su password lo consulto en la tabla si lo encuentra que lo deje entrar al programa si no que no lo deje
Respuesta
1
Te paso el que uso yo
Option Explicit
dim RSUsuario As Recordset
dim BD as Database
Private Sub cmdCancelar_Click()
Unload Me
End Sub
Private Sub HabilitarAceptar()
If (txtLoginUsuario.Text <> "") And (txtPasswordUsuario.Text <> "") Then
HabilitarBotones
Else
cmdAceptar.Enabled = False
End If
End Sub
Private Sub txtLoginUsuario_Change()
HabilitarAceptar
End Sub
Private Sub txtPasswordUsuario_Change()
HabilitarAceptar
End Sub
Private Sub HabilitarBotones()
cmdAceptar.Enabled = True
End Sub
Private Sub DesHabilitarBotones()
txtLoginUsuario.Text = ""
txtPasswordUsuario.Text = ""
cmdAceptar.Enabled = False
End Sub
Private Sub Form_Load()
DesHabilitarBotones
txtLoginUsuario.Text = ""
txtPasswordUsuario.Text = ""
intentos = 0
End Sub
Private Sub cmdAceptar_Click()
Dim sBuscar As String
' Formar la cadena de la consulta:
sBuscar = "SELECT * FROM usuarios WHERE login_usuario = '" & txtLoginUsuario.Text & "' and psw_usuario = '" & txtPasswordUsuario.Text & "'"
' Creamos un recordset del tipo "estático", el cual no es modificable
' para poder modificarlo, tendría que ser del tipo dbOpenDynamic
Set BD = OpenDatabase("direccion y nombre de TU base de datos")
Set RSUsuario = BD.OpenRecordset(sBuscar, dbOpenForwardOnly)
'Set RSUsuario = BD.OpenRecordset(sBuscar, dbOpenSnapshot)
' Comprobar que hay datos en el recordset
With RSUsuario
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "DATO INCORRECTO"
Else
Unload Me
'agrega aca para que abra el formulario que vendria cuando esto sea el usuario y el pass sean correctos'
End If
End With
End Sub
Si revisas un poco el código podrás hacerlo funcionar en tu aplicación arreglando los nombres que uso yo, por los tuyos
Gracias por tú ayuda, sabes lo había intentado de mil maneras y perdón por quitarte tú tiempo y nuevamente gracias¡
Que tengas un buen día...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Tengo una base de datos access, quiero hacer una consulta poniendo un texbox y un commandboton

Tengo una base de datos access, quiero hacer una consulta poniendo un texbox y un commandboton para que el usuario tlecle para consultar pero sin usar el control data, el resultado de la consulta lo quisiera reflejar en un control flexgrid como seria...
1 respuesta

Comparar el valor de un campo con el de un control

Lo que necesito es solamente saber como hacer la siguiente consulta pero en Access, estoy usando Visual Basic, Active Report, insete un objeto DAO, Este es el código que hago en VB: Select * From [Salidas (Detalle)] Where Obra = '" &...
1 respuesta

Valores nulos en fechas

Nuevamente acudo a usted con otro problema, necesito insertar valores nulos a la base de datos, más exactamente una fecha, en el código que usted me ayudo a construir la fecha de retiro de un empleado en ocasiones debe estar nula, ya que el empleado...
1 respuesta

Cargar datos al formulario al perder el foco

Me gustaría saber como hago para llenar los texbox de un formulario desde una base de datos access, tengo declarada la conexión a la BD en un modulo de declaraciones globales 'Conexiones Base de Datos Global Base As New ADODB. Connection Global...
1 respuesta

Concatenar registros

Un experto de aquí contestó hace tiempo a una pegunta similar. Lo que quiero es concatenar los registros del campo "email" separados por ";". Este es el código que dio: Private Sub Comando14_Click() Dim r As Recordset bu = FreeFile Open "fichero.txt"...
1 respuesta

Combos en cascada

Estoy desarrollando una aplicación en la cual necesito filtrar por medios de 3 combos, datos de por ejemplo en el 1ero continente, en el 2do los países de el continente seleccionado primeramente, y finalmente tener en el 3er combo las ciudades del...
1 respuesta

Re-foliar

Sabes que ya hice todo lo que me dijiste para foliar el informe, pero cuando pongo dentro del campo de texto =DBúsq("[Conteo]";"Numerador") me aparece una ventana diciéndome que "La expresión que introdujo tiene una sintaxis no valida ; Omitió un...
1 respuesta

Recordset desconectado

Mi pregunta es tengo un recordset desconectado quisiera saber si hay manera de estando desconectado eliminar registro por medio de sql y lo mismo para actualizar. Quiero que sea una temporal en la que pueda hacer cambios sin que afecten la tabla original
1 respuesta

Código para mostrá datos en un comboxbox

Necesito un código que me permita llenar un combo box con los datos de una base de datos del campo nombre de la tabala empleados.. Que el combo se autocomplete cuando coloque una letra dentro del combo mostrando todas las coincidencias
1 respuesta

Enlazar aplicación en VB con BD MySQL

Lo primero y más importante, muchas gracias de antemano por compartir tus conocimientos. Tengo el código fuente de una aplicación creada en visual basic 6, la cual graba registros de huellas dactilares y unos datos en una base de datos de access....
2 respuestas