Fórum TDBComboBox #244957
29/07/2004
0
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
Curtir tópico
+ 0Posts
29/07/2004
Lucas Silva
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
29/07/2004
Mago M3rl1n
select codigo + ´ ´ + nome as nome_coluna
se codigo e nome forem de tipos diferentes, utilize cast para convesão
Gostei + 0
30/07/2004
Lucas Silva
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
30/07/2004
Welington
Acrescente a linha de código abaixo:
Gostei + 0
30/07/2004
Lucas Silva
Ia dar erro sim.. Eu esqueci de criar o StringList mesmo! :lol:
Gostei + 0
30/07/2004
Aprendizdelphi
Márcia
Gostei + 0