Código HTML:
Dim con As ADODB.Connection
Dim RS As ADODB.Recordset
Dim sql As String
Dim nom_usuario, clave_usuario As String
Private Sub entrar_Click()
If usuario = "" Then usuario.SetFocus: Exit Sub
If clave = "" Then clave.SetFocus: Exit Sub
Set con = New ADODB.Connection
With con
.Open = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=remate;Data Source=ANGELO-PC"
End With
Set RS = New ADODB.Recordset
sql = "SELECT * FROM usuarios where usuario=" & usuario.Text
RS.Open sql, con, adOpenDynamic, adLockOptimistic
RS.MoveFirst
Do While Not RS.EOF
If RS("usuario").Value = usuario.Text Then
nom_usuario True
If RS("clave").Value = clave.Text Then
clave_usuario True
ingreso_usuario.Hide
opciones.Show
Else
clave_usuario False
usuario.Text = ""
clave.Text = ""
usuario.SetFocus
MsgBox "CONTRASEÑA NO VÁLIDA", vbCritical, "Aviso"
Exit Do
Exit Sub
End If
Else
nom_usuario False
usuario.Text = ""
clave.Text = ""
usuario.SetFocus
MsgBox "USUARIO NO ENCONTRADO", vbCritical, "Aviso"
Exit Do
Exit Sub
End If
RS.MoveNext
RS.Close
con.Close
End Sub
