Copiar Registro de uma tabela p/ outra tabela

Preste Bem ateção neste Exemplo............falou gata........

faca o seguinte ..crie 3 váriavel publicas ..

var
Form1: TForm1;
varedit1, varedit2:string;
verifica:integer;

implementation

depois mude seu código para

Va até o form2, abra ele ...ve no meu project/use unit , e escolha o Form1
depois mude seu código pra esse(VIRSE E VERSA)<<<OBS:::::

Proceduere Tform1buttonClick1 (Sender: Obeject) ;
Begin
varedit1:=DBEdit1.text;
varedit2:=DBEdit2.text;
verifica:=1;
Application.CreateForm(Tform2,form2);
Form2.ShowModal;
Form2.free;
end;

e no onActivate do Form2 coloque assim:

if verifica=1 then
begin
Table1.insert; {Esta talela onde vc vai grava o novo registro(tblAniversario)}
Dbedit3.text := varedit1;
Dbedit4.text := varedit2;
verifica:=0;
end;

coloque no onActivate do Form1 assim ...

verifica:=0;

No Form2 ´´onClick do BtnGravar´´ coloque....

Proceduere Tform1buttonClick1 (Sender: Obeject);
begin
table1.append; //ou { table1.Post;}
Application.MessageBox(´Gravaso com Sucesso !!!´,
´Retorno´,64);

>>>>>>Jairobig@hotmail.com

Mas como eu faço para copiar somente os aniversariantes do dia? Eu teria que comparar o dia e o mes do campo DataNasc da Tabela Cadastro, com a dia e o mes do campo DataNasc da Tabela Aniversariantes e depois eu copio as regsitros.

Obrigado

Vi

Meu amigo esquece tudo acima, e faca apenas isto aqui.


Primeiro adicione um query em sua tabela.

Em seguina coloque o evento onclick do botão o seguinte


Query1.SQL.Text:=´INSERT INTO tabelaaniversario SELECT * FROM tabeladeorigem WHERE campo_onde_esta_a_data=dia_de_hoje´;
Query1.ExecSQL;

se não der certo tente o seguinte

Query1.SQL.Text:=´INSERT INTO tabelaaniversario(campo1,campo2,...campoN) SELECT campo1,campo2,...campoN FROM tabeladeorigem WHERE campo_onde_esta_a_data=dia_de_hoje´;
Query1.ExecSQL;

mas com certeza vai da certo o primeiro.

Não esquece : http://instrutor.cjb.net/