Problema com Query (duvida simples)

Delphi

26/10/2007

Estou com uma dúvida de como fazer uma Query usando o ADOConection

Ja fiz toda a ligação no banco de dados, coloquei um ADOConnection1, um DataSource1 e um ADOQuery1. Ligado a um Db grid

no (TStrings) esta.


Select * from usuarios

Mostra todos os usuarios
Mas
Estou com problemas ja na sintaxe do comando, pois colocando o codigo abaixo já da erro
Select * from usuarios where login =: ´michele´


O que eu preciso fazer é o seguinte.
Em um edit1 o usuario digita o login e um botão executa a query e me retorna se o login existe na tabela ou nao.

E depois conferir com a senha dele.

Se alguem puder ajudar desde já agradeço.


Michele

Michele

Curtidas 0

Respostas

Facc

Facc

26/10/2007

tente assim
SELECT * FROM TABELALOGIN WHERE LOGIN = ´ + QUOTESTR(EDIT1.TXT);

IF QUERY.RECORCOUNT > 0 THEN
  LOGIN EXITE
ELSE
  LOGIN NÃO EXISTE



É UMA FORMA GENÉRICA QUE EU PASSEI...


GOSTEI 0
Michele

Michele

26/10/2007

nao entendi.
Aonde coloco esse código?


GOSTEI 0
Facc

Facc

26/10/2007

nao entendi. Aonde coloco esse código?


no botão


GOSTEI 0
Mayron Cachina

Mayron Cachina

26/10/2007

Onclick do Botao1;
begin
  AdoQuery1.sql := ´SELECT * FROM TABELALOGIN WHERE LOGIN = ´ + QUOTESTR(EDIT1.TXT);

  IF ADOQUERY1.RECORCOUNT > 0 THEN
    showmessage(´LOGIN EXITE´)
  ELSE
    showmessag(´LOGIN NÃO EXISTE´);

end.



deu pra entender melhor agora???
vc vai ter q ter um ADOQUERY para colocar o sqlect dentro... esse select so pode ser no codigo n pode ser direto no componente por causa do QUOTESTR(EDIT1.TXT).

qualquer coisa eu faço um exemplo e disponibilizo pra dowload, ok?


GOSTEI 0
Michele

Michele

26/10/2007

Eu entendi sim.
Mas to me perdendo ainda.
Porque preciso pegar o valor da query. No caso o resultado da query.
Por exemplo:
Como jogo o campo e-mail num edit1?


GOSTEI 0
Mayron Cachina

Mayron Cachina

26/10/2007

vc faz assim:

Edit1.text := AdoQuery1.fieldbyname(´email´).asString;


assim oq tiver no campo email será levado pra o Edit...


GOSTEI 0
Michele

Michele

26/10/2007

Um erro aqui
Undeclared identifier: ´QUOTESTR´
[/code]


GOSTEI 0
Mayron Cachina

Mayron Cachina

26/10/2007

hehehe o comando correto eh [b:f4e761d7df]QUOTSTR()[/b:f4e761d7df]

SELECT * FROM TABELALOGIN WHERE LOGIN = ´ + QUOTSTR(EDIT1.TXT);


Tenta agora
hehehehe


GOSTEI 0
Michele

Michele

26/10/2007

Agradeço muito,
Deu certinho aqui.


GOSTEI 0
Paulo

Paulo

26/10/2007

É
[color=red:2b621ea9cd]QUOTEDSTR E NÃO QUOTSTR[/color:2b621ea9cd]


GOSTEI 0
Mayron Cachina

Mayron Cachina

26/10/2007

É [color=red:fa70c793e8]QUOTEDSTR E NÃO QUOTSTR[/color:fa70c793e8]


Erro meu :D
oq sou eu sem o Auto Complete do Delphi hehehehehe


GOSTEI 0
POSTAR