copiar daddos

[Marostegan 0]

olá pessoal... =//

 

seguinte...

 

esses tempos atrás precisei transferir dados de uma tabela para outra então fiz assim

 

begin
dm.q_servicos_fim.Close;
dm.q_servicos_fim.SQL.Clear;
dm.q_servicos_fim.SQL.Add('Insert into tbl_servicos_fim(cod_servico,data_entrada,data_entrega,servico,valor,desc_servico,empresa,res
ponsavel,telefone,celular,email,info_adcionais,data_fim) values ('''+f_ordem_de_servico.DBEdit1.Text+''','''+f_ordem_de_servico.DBEdit2.Text+''','''+f_ordem_de_servico.DBEdit3.Text+''','''+f_ordem_de_servico.DBEdit5.Text+''','''+f_ordem_de_servico.DBEdit4.Text+''','''+f_ordem_de_servico.DBMemo1.text+''','''+f_ordem_de_servico.DBEdit11.Text+''','''+f_ordem_de_servico.DBEdit7.Text+''','''+f_ordem_de_servico.DBEdit8.Text+''','''+f_ordem_de_servico.DBEdit9.Text+''','''+f_ordem_de_servico.DBEdit10.Text+''','''+f_ordem_de_servico.DBMemo2.text+''','''+DB_fim.text+''')');
dm.q_servicos_fim.ExecSQL;

 

beleza... funcionou certinho... ele apaga todos os dados de uma tabela e manda pra outra...

 

 

só que agora eu to fazedo a parte de vendas de produtos... então quando você vai cadastrar a venda (tbl_vendas_produtos) você insere lá a data da venda, o vencimento da garantia, o produto vendido, (entre outras informações...)... porém quando eu clico no botão CADASTRAR VENDAS tem que fazer o seguinte:

 

os campos: data da venda (data_venda) e vencimento da garantia (vencimento) precisam ser copiados para uma outra tabela (tbl_garantias)...

 

tanto na tbl_vendas_produtos quanto na tbl_garantias existem esses 2 campos (data_venda e vencimento)... como faço essa cópia?

 

meu BD é ACCESS! =(

 

obrigado galera!!

 

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

[marcio.theis 3]

Faz via SQL, executando um outro SQL depois de ter executado o POST.

[Marostegan 0]

certo...

 

teria como me dar um exemplo disso?

[Marostegan 0]

poxa... eu tentei aqui novamente... mais nao da certo...

 

=//

 

alguem poderia me dar um exemplo?

[Marostegan 0]

pessoal... dá uma forcinha ai pra mim!!

 

=//

[Marostegan 0]

pessoal... bom dia!!!

 

tpw... ninguem sabe msm com fazer isso??

 

ninguem ai pode me ajudar? preciso mto disso...

 

jah procurei varias coisas na net e testei aqui mais nao funciona!!!

 

só consigo transferir de um lugar para o outro... mas preciso copiar e não transferir....

 

 

qq coisa meu e-mail é: daniel@wm8.com.br

 

 

se alguem tiver um exemplo, um passo-a-passo ou qq coisa que ajude me avisa... depois eu posto aqui certinho a explicação (como sempre fiz!)

 

obrigado!

 

:blink:

[Sérgio H. Martins 0]

Ola amigo

 

Voce pode fazer direto pela query, por exemplo:

 

dm.q_garantias.append;

dm.q_garantiasdatavenda.text:=dm.q_servicos_fimdata_venda.text;

dm.q_garantias.post;

 

Deste modo acima quando você clicar no salvar ele copia para outra tabela, segue um exemplo abaixo:

 

CODE

//Esse exemplo é usado em um dbgrid, mas você pode pegar uma base por ele:

 

procedure TForm1.DBGrid1DblClick(Sender: TObject);

var

Idx :Integer;

begin

if DBGrid1.SelectedRows.Count > 0 then

begin

for Idx := 0 to DBGrid1.SelectedRows.Count-1 do

begin

 

// posiciona o dataset de origem no "n" registro selecionado

dm.ADOQuery1.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[idx]));

 

// move os dados do dataset de origem para destino aqui

dm.ADOQuery2.Append;

dm.ADOQuery2num_fatura.text := dm.ADOQuery1num_fatura.text;

dm.ADOQuery2num_duplic.text := dm.ADOQuery1num_duplic.text;

dm.ADOQuery2sistnum_estxxx.text := dm.ADOQuery1num_estxxx.text;

dm.ADOQuery2sistdat_emissa.text := dm.ADOQuery1dat_emissa.text;

dm.ADOQuery2sistdat_pagato.asstring :=dm.ADOQuery1dat_pagato.asstring;

dm.ADOQuery2sisttxt_situac.text := dm.ADOQuery1txt_situac.text;

dm.ADOQuery2num_valapa.text := dm.ADOQuery1num_valapa.text;

dm.ADOQuery2txt_bancoc.text := dm.ADOQuery1txt_bancoc.text;

Dm.ADOQuery2.Post;

 

 

end;

end;

end;

 

Espero que ajude, qualquer coisa estou a disposição.

 

Abraços

Sérgio Martins

[Marostegan 0]

eu não entendi mto bem...

 

deixa eu pensar de um modo mais simples...

 

vamos supor que tenho 2 tabelas..

 

tbl_clientes e tbl_clientes_fim

 

vamos dizer que em tbl_clientes tenha 3 campos:

- codigo

- nome

- telefone

 

e esses mesmos 3 campos tem no tbl_clientes_fim

 

ai tenhu 10 clientes cadastrados e quero copiar os dados de um deles para o tbl_clientes_fim

 

ai então abrir o form do cliente que quero e to com ee na tela, dai clico no botão TRANSFERIR e então é feito uma cópia desses dados para a outra tablea (tbl_clientes_fim)

 

 

como ficaria a programação dentro do botão TRANSFERIR?

 

 

obrigado... (e desculpe pelas perguntas... é que não consigo msm de jeito nenhum fazer isso... =///)

[Sérgio H. Martins 0]

Ola amigo

 

Primeiro você deve selecionar a linha que quer transf. por exemplo, usando um dbgrid.

 

Apos no evento onclick do botão transf. você pode colocar algo assim:

 

você deve utilizar a query para fazer isso, como não sei o nome que você colocou nas querys, estarei colocando algo parecido.

 

dm.ADOQueryclientes.edit; //você usa edit para atualizar dados do cliente, por exemplo, data da compra, mas para isso você deve selecionar a linha tbm antes de transf. você pode selecionar via sql buscando por um código por exemplo ou com um dbgrid.

 

 

dm.ADOQueryclientes.append; //você usa caso for inserir uma nova linha.

 

dm.ADOQueryclientescodigo.text:= dm.adoqueryclientesfimcodigo.text:

dm.adoqueryclientesnome.text:= dm.adoqueryclientes_fimnome.text;

dm.adoqueryclientestelefone.Text:= dm.adoqueryclientes_fimtelefone.Text:

 

 

dm.ADOQueryjurossist.post;

 

 

Qualquer coisa só perguntar...

 

 

Sergio Martins

[Marostegan 0]

olá amigo!

 

axo que entendi!

 

hoje (por necessidade de entrega de serviços...) estou trabalhando em um outro projeto... segunda-feira volto nesse ai vou testar essa explicação!!

 

qualquer dúvida volto aqui... (a hora que funciona certinho eu coloco a explicação e a programação aqui)

 

 

obrigado pela ajuda!!!

 

abraços!

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif