Trazer mais de um dado
Bom dia pessoal.
Bom, estou com um problema para trazer todos os resultados do banco para minhas variaveis no delphi, sei que não é desse jeito, mas eu fiz assim.
Criei uma procedure que trouxesse a quantidade de informações para depois atribuir o contador à uma variável e criar um while para receber as informações nas seguintes variaveis:
procedure TDadosFtErpAgruFC.SetProperties;
VAR
CONT : Integer;
begin
cont := 1;
while cont <= FtTotalAgrupCli do
begin
Ft := quFt.FieldByName(FT).AsString;
FtSimples := quFt.FieldByName(FT_SIADNE).AsString;
CodigoCliente := quFt.FieldByName(COD_CLI).AsInteger;
NomeCliente := quFt.FieldByName(GUERRA_CLI).AsString;
ClienteFull := quFt.FieldByName(CLIENTE_FULL).AsString;
cont := cont + 1;
end;
end;
Não está funcionando, ele na terceira variavel (Codigo Cliente) porque é a partir deste campo que as informações são diferentes.
Como conseguir trazer todas as informações nestas variáveis?
Att,
Bom, estou com um problema para trazer todos os resultados do banco para minhas variaveis no delphi, sei que não é desse jeito, mas eu fiz assim.
Criei uma procedure que trouxesse a quantidade de informações para depois atribuir o contador à uma variável e criar um while para receber as informações nas seguintes variaveis:
procedure TDadosFtErpAgruFC.SetProperties;
VAR
CONT : Integer;
begin
cont := 1;
while cont <= FtTotalAgrupCli do
begin
Ft := quFt.FieldByName(FT).AsString;
FtSimples := quFt.FieldByName(FT_SIADNE).AsString;
CodigoCliente := quFt.FieldByName(COD_CLI).AsInteger;
NomeCliente := quFt.FieldByName(GUERRA_CLI).AsString;
ClienteFull := quFt.FieldByName(CLIENTE_FULL).AsString;
cont := cont + 1;
end;
end;
Não está funcionando, ele na terceira variavel (Codigo Cliente) porque é a partir deste campo que as informações são diferentes.
Como conseguir trazer todas as informações nestas variáveis?
Att,
Flavio Silva
Curtidas 0
Respostas
Flavio Silva
12/03/2012
***Não está funcionando, ele trava na terceira variavel (Codigo Cliente) porque é a partir deste campo que as informações são diferentes.
GOSTEI 0
Bruno Leandro
12/03/2012
voce pode criar um record e ir adicionando, não sei se é a solução ideial, mas pra mim ficou vago a necessidade disso.
exemplo
criar um record
Tinformacao = record
codigo: integer;
nome: string;
end;
ai voce declara uma variavel
rInformacao : array of Tinformacao;
ai antes de setar as informações
voce executa
setlength(rInformacao,length(rInformacao)+1)
rInformacao[i].codigo := qry.field.asinteger;
rInformacao[i].nome:= qry.field.asstring;
exemplo
criar um record
Tinformacao = record
codigo: integer;
nome: string;
end;
ai voce declara uma variavel
rInformacao : array of Tinformacao;
ai antes de setar as informações
voce executa
setlength(rInformacao,length(rInformacao)+1)
rInformacao[i].codigo := qry.field.asinteger;
rInformacao[i].nome:= qry.field.asstring;
GOSTEI 0
Flavio Silva
12/03/2012
Obrigado man, atendeu minhas necessidades.
Abrass
Abrass
GOSTEI 0