Bando Access ADO. Post ou Insert

Question

Gente estou usando Banco Acess Conec��o ADO e Delphi 7Queria fazer o seguinte.Tenho a tabela ClientesCodNomeValorTenho a tabela d�vidaAnoCod do ClienteMESVALORQuero fazer um botao que pegue todos os c...

Reginaldo174 · Answer

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
ano : integer;
begin
ano := strtoint(edit1.text);
edit1.text := inttostr(ano -1);
querycliente.open;
querycliente.first;

while not querycliente.eof do
begin
for i := 1 to 12 do
begin
querydivida.insert;
querydividacodcli.value := queryclientecodcli.value;
querydividavalor.value := queryclientevalor.value;
querydividames.value := i ;
querydivid.post; // grave da forma que achar melhor
// etc...
end;
querycliente.next;
end;
end;

Uoquisala · Answer

Poderia me explicar este c�digo aqui.[quote:89d17631af=�reginaldo174�]procedure TForm1.Button1Click(Sender: TObject);vari : integer;ano : integer;begin  ano := strtoint(edit1.text);  edit1.text := inttostr(ano -1);  querycliente.open;  querycliente.first;  while not querycliente.eof do    begin      for i := 1 to 12 do       begin         querydivida.insert;         querydividacodcli.value := queryclientecodcli.value;         querydividavalor.value := queryclientevalor.value;         querydividames.value  := i ;         querydivid.post; // grave da forma que achar melhor         // etc...        end;      querycliente.next;    end;end;[/quote:89d17631af]...

F�rum Bando Access ADO. Post ou Insert #240878