Encontrei um sistemas de login na net e adaptei para minhas necessidades, pois não sei programa para intenet muito bem estou começando agora, para falar a verdade começei semana passada.
Consegui q ele fizesse quase tudo verifica usuário verifica senha, mas quando coloquei mais uma opção para ele verificar, pumba!!!
erro, e agora não consigo resolver.Se alguém pude me ajudar
Segue codigo.:
Dim sql, pag
pag = true
sql = "SELECT * FROM users WHERE pag='"pag"' AND user='" & user & "' AND pass='" & pass & "'"
Dim rs
Set rs = conObj.Execute(sql)
If rs.EOF Then
login = false
Else
login = true
End If
Tirando o q esta em vermelho o código funciona perfeitamente.Com o q esta em vermelho aparece o seguinte erro.:
Tipo de erro:
Microsoft JET Database Engine (0x80040E07)
Tipo de dados imcompatível na expressão de critério.
Pergunta
Guest --Fabiano --
Boa Tarde a Todos...
Encontrei um sistemas de login na net e adaptei para minhas necessidades, pois não sei programa para intenet muito bem estou começando agora, para falar a verdade começei semana passada.
Consegui q ele fizesse quase tudo verifica usuário verifica senha, mas quando coloquei mais uma opção para ele verificar, pumba!!!
erro, e agora não consigo resolver.Se alguém pude me ajudar
Segue codigo.:
desde já agradeço pela ajuda
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.