| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
lucasc
Membro Junior
Registrado: Quinta-Feira, 10 de Mai de 2007
Mensagens: 305
|
 Enviada: Qua Mai 10, 2023 11:51 am Assunto: Lista de dados |
 |
|
Prezados,
Preciso criar um método para carregar dados do banco e listar num objeto:
Exemplo: Carregar a colna ID e DESCRIÇÃO, e listar, as vezes num CheckListBox, as vezes num ComboBox, as vezes num ListBox.
Se fosse num ComboBox ficaria da seguinte forma:
| Código: |
Procedure CarregaDados(Combo:TComboTox);
Var Query:TFDQuery;
begin
Query:=TFDQuery.Create(Nil);
Combo.Clear;
With Query do
begin
Connection:=MD.FDCon_FIB;
Close;
Sql.Clear;
Sql.Add('SELECT '+Campo+' FROM '+Tabela);
Open;
if IsEmpty then
exit;
While Not Query.Eof do
begin
Combo.Items.Add(FieldByName(Campo).AsString);
Next;
end;
end;
Query.Close;
Query.Free;
|
[/quote]
Como ficaria esse código para carregar os dados em qualquer outro objeto, conforme sitei? |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Qui Mai 11, 2023 10:56 am Assunto: |
|
|
quais objetos?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
lucasc
Membro Junior
Registrado: Quinta-Feira, 10 de Mai de 2007
Mensagens: 305
|
| Enviada: Qui Mai 11, 2023 11:45 am Assunto: |
|
|
Dados do banco, exemplo:
Cadastro de eventos:
IDEVENTO
DESCRICAO
SELECT LPAD(IDEVENTO,3,'0')||' - '||DESCEVENTO DESCRICAO FROM FIN_EVENTOS
Preciso carregar esse dados, as vezes num combo, as vezes num listbox. |
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Sex Mai 12, 2023 8:44 am Assunto: |
|
|
ambos tem a propriedade items, mas vc pode fazer assim:
| Código: | function CarregaDados(ACampo, ATabela: String): TStringList;
var
Query: TFDQuery;
sl: TStringList;
begin
sl := TStringList.Create;
Result := sl;
Query := TFDQuery.Create(Nil);
try
Query.Connection := MD.FDCon_FIB;
Query.Close;
Query.Sql.Clear;
Query.Sql.Add('SELECT ' + ACampo + ' FROM ' + ATabela + ' ORDER BY '+ ACampo);
Query.Open;
// removi o exit, por causa do free la embaixo
sl := TStringList.Create;
While Not Query.Eof do
begin
sl.Add(Query.FieldByName(ACampo).AsString);
Query.Next;
end;
Result := sl;
finally
Query.Close;
Query.Free;
sl.Free;
end;
end;
|
e pode usar assim:
| Código: | ListBox1.Items := CarregaDAdos('descricao','produtos');
ComboBox1.Items := CarregaDados('descricao','produtos');
|
so testar e adaptar
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
