Deby
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 04/08/2004 11:12 hs
Alguem pode me ajudar nesta estrutura de Login... Set rstIndexar = New ADODB.Recordset
Dim comLogin As ADODB.Command
Dim sql As String
sql = "select Usuario, Senha from Senha_tb where Usuario='" & txtusuario & "' And Senha='" & txtsenha & "'"
If sql = True Then
Load frmConsultar
frmConsultar.Show vbModal
Else
MsgBox "Usuario ou senha Inválida", vbInformation, "Aviso"
Exit Sub
End If
End Sub alguem pode me ajudar....
 Deeb |
|
|
|
|
|
THECRAZY
|
BRASÍLIA
DF - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/08/2004 11:19 hs
sql = "select Usuario, Senha from Senha_tb where Usuario='" & txtusuario & "' And Senha='" & txtsenha & "'" comLogin.commandText = sql comLogin.Execute , Registros_Afetados
If Registros_Afetados > 0
Load frmConsultar
frmConsultar.Show vbModal
Else
MsgBox "Usuario ou senha Inválida", vbInformation, "Aviso"
Exit Sub
End If
End Sub
 Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8) 
|
|
|
|
Deby
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/08/2004 11:33 hs
THECRAZY esta dando erro no Registro_Afetados, o que é este Registro_Afetados
Deeb
|
|
|
|
|
