imprimir um resultado de uma consulta

[Valdiney F. Lima 0]

Oi pessoal... eu estou começando a programar em Delphi...

 

Com o codigo abaixo:

  Citar

ZQuery1.Active := false;

ZQuery1.SQL.Clear();

 

if RadioButton2.Checked then tipo := 'cliente';

if RadioButton1.Checked then tipo := 'administrador';

 

sql01 := 'select tb_conta.id, tb_conta.usuario, tb_conta.senha, tb_conta_tipo.tipo, tb_conta_tipo.status ';

sql01 := sql01 + 'from tb_conta, tb_conta_tipo ';

sql01 := sql01 + 'where (tb_conta.usuario="'+ Edit1.Text +'") and (tb_conta_tipo.tipo="'+ tipo +'") and (tb_conta.id=tb_conta_tipo.id_tb_conta) and (tb_conta_tipo.status = "1")';

 

ZQuery1.SQL.Add('select *from tb_conta where usuario="'+ Edit1.Text +'"');

ZQuery1.Open;

ZQuery1.Active := true;

Eu consigo imprimir o resultado da busca.

 

Por exemplo:

 

showmessage( ZQuery1.FieldByName('id').Value );

 

Assim eu imprimo o id do usuário em questão.

 

Agora, quando eu tenho mais de um registro retornado, por exemplo uns 10... Como eu imprimo eles dentro de um list?

 

Eu gostaria de fazer uma verificação dentro de um while...

Tipo, se o o dado retornado for igual: ZQuery1.FieldByName('tipo').Value = "administrador"

 

imprimir

 

 

Abraço

[Hugo Slepicka 0]

Seja bem vindo então ao Delphi...

 

t aai... acho que sso resolve o seu problema...

 

ZQuery1.First;While Not ZQuery1.Eof doBegin  ListBox1.AddItem(ZQuery1.FieldByName('id').Value, Self);  Zquery1.Next;End;

[marcio.theis 3]

Você poderia exibir também as informações em um DBGrid, no caso somente precisaria adicionar um DataSource vinculando com a sua Query e ligando com o DBGrid, assim quando der o Active, automaticamente os registros vão ser mostrados na listagem...

[Valdiney F. Lima 0]

valeu pela ajuda pessoal.abraço