Estou fazendo uma instrução sql e coloquei dentro do while
um insert na TblCarCheques(RxMemoryData) mas dá esse erro:
pois eu quero que percorre por todos registros que está,
vindo da consulta e ai insere na TblCarCheques, para jogar para o DbGrid!
pois isso eu quero em tabelas temporarias!
TblCarCheques: Cannot perform this operation on a closed dataset.
Esse é mu codigo fonte:
if RdbRep.Checked then
begin
with QryCarChe do
begin
close;
sql.Clear;
sql.Add('Select L.Codigo, L.Aluno, L.Valor, L.Cheque, L.Agencia, L.Conta, L.Vencimento, A.Codigo, A.Nome from lancamento L, Alunos A'
+' where L.Aluno = A.Codigo and L.pagamento is null and L.cheque is not null');
open;
end;
while ( not QryCarChe.Eof ) do
begin
if ( not TblCarCheques.Active ) then TblCheques.Open;
with TblCarCheques do
begin
Insert;
Fields[00].AsInteger := QryCarChe.FieldByName('Aluno').AsInteger;
Fields[01].AsString := QryCarChe.FieldByName('Nome').AsString;
Fields[02].AsString := QryCarChe.FieldByName('Cheque').AsString;
Fields[03].AsCurrency := QryCarChe.FieldByName('Valor').AsCurrency;
Fields[04].AsDateTime := QryCarChe.FieldByName('Vencimento').AsDateTime;
Fields[05].AsInteger := QryCarChe.FieldByName('Codigo').AsInteger;
Post;
end;
QryCarChe.Next;
end;
end;
Pergunta
robinhocne
Estou fazendo uma instrução sql e coloquei dentro do while
um insert na TblCarCheques(RxMemoryData) mas dá esse erro:
pois eu quero que percorre por todos registros que está,
vindo da consulta e ai insere na TblCarCheques, para jogar para o DbGrid!
pois isso eu quero em tabelas temporarias!
Esse é mu codigo fonte:
Editado por robinhocneLink para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.