Fórum como gravar consulta e um banco .dbf ? veja o exemplo da #194478
12/11/2003
0
como gravar consulta e um banco .dbf ? veja o exemplo da
consulta!!!
With Qtudo do
Begin
close;
Sql.clear;
Sql.add(´select n.Nota, n.cod_Filial, n.Sai_ent, n.Pedido, n.Cod_cli, n.Nome, n.Cid, i.Cod_Prod, i.Quantnf´);
Sql.Add(´from NTF_CPM.DBF n, INF_CPM.DBF i ON n.Nota
= i.Nota´);
open;
end;
Pessoal aqui estou gerando uma consulta unindo 02 bancos mas
preciso jogar essa consulta em um 3º banco .dbf nome Itens_nota.dbf como
>> > >fazer Obrigado.
>> > >
consulta!!!
With Qtudo do
Begin
close;
Sql.clear;
Sql.add(´select n.Nota, n.cod_Filial, n.Sai_ent, n.Pedido, n.Cod_cli, n.Nome, n.Cid, i.Cod_Prod, i.Quantnf´);
Sql.Add(´from NTF_CPM.DBF n, INF_CPM.DBF i ON n.Nota
= i.Nota´);
open;
end;
Pessoal aqui estou gerando uma consulta unindo 02 bancos mas
preciso jogar essa consulta em um 3º banco .dbf nome Itens_nota.dbf como
>> > >fazer Obrigado.
>> > >
Infohelp
Curtir tópico
+ 0
Responder
Posts
12/11/2003
Carlosk
use um ttable...
table.tablename := ´Itens_nota.dbf´;
table.active;
e navegue pela Qtudo e vai adicionando em qtable assim:
Qtudo.first
while not qtudo.eof do begin
table.append;
table.fieldvalues[´CAMPO´] := Qtudo.FieldValues[´CAMPO´];
table.fieldvalues[´CAMPO2´] := Qtudo.FieldValues[´CAMPO2´];
table.post;
Qtudo.next;
end;
espero ter ajudado..
falows
table.tablename := ´Itens_nota.dbf´;
table.active;
e navegue pela Qtudo e vai adicionando em qtable assim:
Qtudo.first
while not qtudo.eof do begin
table.append;
table.fieldvalues[´CAMPO´] := Qtudo.FieldValues[´CAMPO´];
table.fieldvalues[´CAMPO2´] := Qtudo.FieldValues[´CAMPO2´];
table.post;
Qtudo.next;
end;
espero ter ajudado..
falows
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)