Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
poh luiz ... naum funcionou o que você me sugeriu,
dah erro de object required na seguinte linha
Private Sub chameleonButton1_Click()
' conexao ultilizado para o banco
Set cn = New ADODB.Connection
With cn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=C:\Documents and Settings\Administrador\Desktop\agend\agend\Bd.mdb;Uid=Admin; Pwd=;"
.Open '(Usuário) (Senha) (Caminho e Nome do banco de dados)
End With
'aqui vai a parte da conexão
**If cn.Execute("select * from users where login = '" & txtLogin.Text & "' and senha = '" & txtSenha.Text & "'").EOF** Then
MsgBox "Dados Inválidos!"
Else
MsgBox "Dados Corretos!"
End If
End Sub
Quem tiver alguma sugestão, por favor postem .. valeuw !!!
Carregando comentários...