VALORES BANCO ADO
Estava esboçando meu TCC e me deparei com um problema. Fiz o sistema de login com instrução Select. Até ai tudo beleza. Criei uma variável global para Privilegio (Priv as Integer). Agora quero recuperar o valor do meu banco no registro encontrado
Código até o momento:
With adoUserConn
.RecordSource = [Ô]SELECT * FROM tblUsuarios Where Username = [ô][Ô] & Text1.Text & _
[Ô][ô] AND Password = [ô][Ô] & Text2.Text & [Ô][ô][Ô] [ô]SQL Search
.Refresh
If .Recordset.EOF Then
MsgBox [Ô]Not Found[Ô]
Else
MsgBox [Ô]Found[Ô]
Priv = .Recordset.Fields(Privilegio)
Form2.Show
Exit Sub
End If
End With
Exit Sub
Privilegio é o nome da coluna no meu banco de dados e Priv a variável no módulo. Alguma dica?
Código até o momento:
With adoUserConn
.RecordSource = [Ô]SELECT * FROM tblUsuarios Where Username = [ô][Ô] & Text1.Text & _
[Ô][ô] AND Password = [ô][Ô] & Text2.Text & [Ô][ô][Ô] [ô]SQL Search
.Refresh
If .Recordset.EOF Then
MsgBox [Ô]Not Found[Ô]
Else
MsgBox [Ô]Found[Ô]
Priv = .Recordset.Fields(Privilegio)
Form2.Show
Exit Sub
End If
End With
Exit Sub
Privilegio é o nome da coluna no meu banco de dados e Priv a variável no módulo. Alguma dica?
A primeira dica é saber o que está fazendo. Se está fazendo um TCC, supõe-se que você tem noção do que está fazendo, mas esse parece um código copiado de algum lugar...
Por incrÃvel que pareça KERPLUNK, após ler uma tarde toda, montei ele. Tenho o costume de montar, por exemplo, as MsgBoxes em inglês. Até o comentário SQLSearch foi inserido por imm, assim como o banco. Pensei a mesma coisa quando postei, parecia ser copiado... Mas a principal diferença era a falta de With nos códigos que pesquisei. Porém não achei que seria um empecilho. Há alguma diga para resolver meu problema?
Já tentei
[Ô]SELECT tblUsuarios.Privilegio FROM tblUsuarios[Ô]
[Ô]SELECT tblUsuarios.Privilegio FROM tblUsuarios Where Privilegio = [ô][Ô] & text1.text & [Ô][ô][Ô] mas não obtive sucesso. E como já havia dito, estou esboçando o TCC ainda, mas tenho que começar..
Obrigado
Já tentei
[Ô]SELECT tblUsuarios.Privilegio FROM tblUsuarios[Ô]
[Ô]SELECT tblUsuarios.Privilegio FROM tblUsuarios Where Privilegio = [ô][Ô] & text1.text & [Ô][ô][Ô] mas não obtive sucesso. E como já havia dito, estou esboçando o TCC ainda, mas tenho que começar..
Obrigado
isso ta errado
falta aspas
Priv = .Recordset.Fields(Privilegio)falta aspas
Priv = .Recordset.Fields([txt-color=#0000f0][Ô][/txt-color]Privilegio[txt-color=#0000f0][Ô][/txt-color])
Coloquei as aspas, porém Priv só recebe o valor 1. Mesmo os registros constando valores diferentes.
Faça seu login para responder