Fórum Gravar dados com loop #368583

19/02/2009

0

Olá,

Estou usando o codigo abaixo para gravar dados numa tabela chamada CONTATOS, onde o campo user deverá pegar todos os nomes do campo usuarios de uma outra tabela chamada GRUPO, quer dizer, fazer um loop dentro do codigo abaixo para que durante a gravação dos dados na tabela contatos o campo user seja preenchido com todos os usuarios que existem na tabela GRUPO. Porém esta dando erro UNDECLARED IDENTIFIER gruposUsuarios. O que estou fazendo de errado? Obrigado.

obs: grupos é um ibtable da paleta IBX do delphi.

grupos.first;
while not grupos.eof do begin
with .QryINSCONT do begin
ParamByName(´data´).asDate := DTHOJE.Date ;
ParamByName(´nome´).asstring := ednome.Text ;
ParamByName(´endereco´).asstring := edendereco.text;
ParamByName(´telefones´).asstring := edtelefones;
ParamByName(´user´).asstring := gruposUsuarios.AsString;
ExecSql;
End;
grupos.next;
end;


L_carlos

L_carlos

Responder

Posts

23/02/2009

Vmlima

Tente assim

ParamByName(´user´).asstring := grupos.FieldByName(´Usuarios´).AsString;


se der certo é pq vc não deu um add all fields nesta query...



Att.


Responder

Gostei + 0

24/02/2009

Paullsoftware

Em que momento esse erro acontece?

Esse ponto foi um erro de digitação aqui do Post?
with .QryINSCONT do begin


Remova o [b:1314699619]With[/b:1314699619] e tente novamente blz?

outra coisa, procure usar a [b:1314699619]TAG CODE [/b:1314699619]aqui do Forum, pois, fica melhor de entender o seu código na hora da leitura e interpretação do mesmo

grupos.first;
while not grupos.eof do
 begin
   QryINSCONT.ParamByName(´data´).asDate := DTHOJE.Date ;
   QryINSCONT.ParamByName(´nome´).asstring := ednome.Text ;
   QryINSCONT.ParamByName(´endereco´).asstring := edendereco.text;
   QryINSCONT.ParamByName(´telefones´).asstring := edtelefones;
   QryINSCONT.ParamByName(´user´).asstring := gruposUsuarios.AsString;
   QryINSCONT.ExecSql;
   grupos.next;
 end;
:wink: espero ter ajudado :roll:


Responder

Gostei + 0

28/02/2009

L_carlos

Vlw pessoal. problema resolvido.

Luiz


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar