Gravar dados com loop
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;
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
Curtidas 0
Respostas
Vmlima
19/02/2009
Tente assim
ParamByName(´user´).asstring := grupos.FieldByName(´Usuarios´).AsString;
se der certo é pq vc não deu um add all fields nesta query...
Att.
ParamByName(´user´).asstring := grupos.FieldByName(´Usuarios´).AsString;
se der certo é pq vc não deu um add all fields nesta query...
Att.
GOSTEI 0
Paullsoftware
19/02/2009
Em que momento esse erro acontece?
Esse ponto foi um erro de digitação aqui do Post?
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
:wink: espero ter ajudado :roll:
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;
GOSTEI 0
L_carlos
19/02/2009
Vlw pessoal. problema resolvido.
Luiz
Luiz
GOSTEI 0