TDBComboBox

Delphi

29/07/2004

Olá Pessoal!

Tem como popular o DBComboBox dessa maneira, juntando dois campos de uma tabela.

000001 - Camisetas


O que consigo fazer é colocar apenas o código ou o nome, não consigo juntar os dois campos da tabela.
Estou usando esse código.

FrmQuerys.QueryProdu.close;
FrmQuerys.QueryProdu.Open;
DBCodigo.Items.Clear;

While not FrmQuerys.QueryProdu.Eof do
Begin
DBCodigo.Items.Add(FormatFloat(´000000´, (FrmQuerys.QueryProdu.FieldByName(´codigo´).AsInteger)));
FrmQuerys.QueryProdu.next;
end;

Se alguém tiver alguma dica agradeço.

Márcia.


Aprendizdelphi

Aprendizdelphi

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

29/07/2004

COm o dbcbb eu acho um pouco complicado..
ai vai uma solução p/ combobox!

function Lista: TStringList;
begin
   with FrmQuerys.QueryProdu do
     Close;
     SQl.add(´Select * from tabela´);
     open;

    while not eof do
       begin
          Result.Add(Field[0].ASstring+´ - ´+Fields[1].Asstring);
         Next;
       end;
end;

//////////

combobox := Lista;



GOSTEI 0
Mago M3rl1n

Mago M3rl1n

29/07/2004

No select do query use

select codigo + ´ ´ + nome as nome_coluna

se codigo e nome forem de tipos diferentes, utilize cast para convesão


GOSTEI 0
Lucas Silva

Lucas Silva

29/07/2004

corrigindo...
combobox[b:1bbb3e88d4].items[/b:1bbb3e88d4] := Lista;


[quote:1bbb3e88d4=´Mago M3rl1n´]No select do query use

select codigo + ´ ´ + nome as nome_coluna

se codigo e nome forem de tipos diferentes, utilize cast para convesão[/quote:1bbb3e88d4]

Isso vai dar erro....

Uma coisa que ele pode fazer, é selecionar só os dois campos, pra otimizar a consulta!

select campo1, campo2 from tabela.!


GOSTEI 0
Welington

Welington

29/07/2004

Não tenho certeza, mas acho que o código abaixo var dar erro.:

function Lista: TStringList; begin with FrmQuerys.QueryProdu do Close; SQl.add(´Select * from tabela´); open; while not eof do begin Result.Add(Field[0].ASstring+´ - ´+Fields[1].Asstring); Next; end; end; ////////// combobox := Lista;


Acrescente a linha de código abaixo:

function Lista: TStringList; begin [b:3be4abe6c4]Result := TStringList.Create;[/b:3be4abe6c4] with FrmQuerys.QueryProdu do Close; SQl.add(´Select * from tabela´); open; while not eof do begin Result.Add(Field[0].ASstring+´ - ´+Fields[1].Asstring); Next; end; end; ////////// combobox := Lista;
[b:3be4abe6c4][/b:3be4abe6c4][b:3be4abe6c4][/b:3be4abe6c4][/url][/list][/list][/code]



GOSTEI 0
Lucas Silva

Lucas Silva

29/07/2004

Não tenho certeza, mas acho que o código abaixo var dar erro.:

Ia dar erro sim.. Eu esqueci de criar o StringList mesmo! :lol:


GOSTEI 0
Aprendizdelphi

Aprendizdelphi

29/07/2004

Valeu pela dica!
Márcia


GOSTEI 0
POSTAR