Como descreve em sua rotina, esta aparemente correto , so um detalhe para vc
verificar as duas tabelas tem de ter os campos identicos e nas mesmas posições
caso contrario sera gravado um dado numerio em string e vice e versa.
Carlos
BandaLemuel <[EMAIL PROTECTED]> escreveu:
Lista..........
Seguinte... quero pegar dados de um Db e gravar em outro.. segue abaixo a
função....
with query1 do
begin
Close;
Sql.clear ;
Sql.text := 'SELECT * FROM FC1000' ;
Open;
FetchAll;
First;
for x := 0 to RecordCount - 1 do
begin
Tabela2.insert ;
for y := 0 to fieldCount -1 do
Tabela2.fields[y] := fields[y] ;
Tabela2.post;
Next;
end;
end;
ShowMessage ('Finalizado' );
Mas ele dá erro , tipo ele diz erro ao converter string em Boolean .. uma coisa
assim... vcs podem me ajudar ??????
vlw... Wesley
[As partes desta mensagem que não continham texto foram removidas]
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
