PROCURAR
Qual linha de comando em VB, substitui essa do Delphi:
If frmDm.qryConsUsuarSenh.Locate('Usuar; Senh', VarArrayOf([edtUsuar.Text, edtSenh.Text]), []) Then
....
....
isto é, qual comando uso em VB para procurar no banco, o usuário e a senha q digitei em 2 caixas de textos distintas?
OBS: estou usando o Data Enviroments (de), do VB 6.
If frmDm.qryConsUsuarSenh.Locate('Usuar; Senh', VarArrayOf([edtUsuar.Text, edtSenh.Text]), []) Then
....
....
isto é, qual comando uso em VB para procurar no banco, o usuário e a senha q digitei em 2 caixas de textos distintas?
OBS: estou usando o Data Enviroments (de), do VB 6.
Dependendo da forma que você programa, você também pode tentar assim, eu acho mais simples, mas td depende de como vc está acostumado a trabalhar com o banco de dados.
depois de ter aberto a base de dados e login nao pode ser igual
sql = "Select * from tb_usuarios where login=" & txt_login.text
set tb=db.execute(SQL) 'você pode abrir a tabela de uma forma mais decente, 'aqui usei o método mais simples
if tb.eof then
msgbox "Usuário inválido!"
else
senha=tb!senha
if senha = txt_senha.text then
'FAZ A AÇÃO DESEJADA
else
msgbox "Senha incorreta!"
end if
end if
tb.close
set tb = nothing
depois de ter aberto a base de dados e login nao pode ser igual
sql = "Select * from tb_usuarios where login=" & txt_login.text
set tb=db.execute(SQL) 'você pode abrir a tabela de uma forma mais decente, 'aqui usei o método mais simples
if tb.eof then
msgbox "Usuário inválido!"
else
senha=tb!senha
if senha = txt_senha.text then
'FAZ A AÇÃO DESEJADA
else
msgbox "Senha incorreta!"
end if
end if
tb.close
set tb = nothing
esqueci de colocar as aspas simples no sql antes e depois de txt_login.text, não se esqueça!
Tópico encerrado , respostas não são mais permitidas