[Resolvido] gravar dados de uma base de dados para outra base de

[Marcos Barbosa 1]

Pessoal, preciso pegar algumas informações de uma tabela de um determinado banco de dados e gravar na tabela que criei e fica em outra base de dados.

O primeiro problema é na conversão da data. Na minha tabela o campo datanascimento está como TIMESTAMP, igual a tabela da outro BD, mesmo assim da erro de conversão.

 

O outro problema é q só tá gravando primeiro registro e eu preciso que grave todos.

 

begin  // 0

 DM.QR_PAC_WIN_SSA.Close;
 DM.QR_PAC_WIN_SSA.SQL.Clear;

 DM.QR_PAC_WIN_SSA.SQL.Add('SELECT ID, NOME FROM PACIENTES');
 DM.QR_PAC_WIN_SSA.Open;

 DM.QR_PAC_TELE_SSA.Close;
 DM.QR_PAC_TELE_SSA.SQL.Clear;

 DM.QR_PAC_TELE_SSA.SQL.Add('INSERT INTO PACIENTES (ID, NOME)');
 DM.QR_PAC_TELE_SSA.SQL.Add('VALUES (:ID, :NOME)');

 DM.QR_PAC_TELE_SSA.Params.ParamByName('ID').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('ID').AsString;
 DM.QR_PAC_TELE_SSA.Params.ParamByName('NOME').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('NOME').AsString;

 DM.QR_PAC_TELE_SSA.execSQL;
 ShowMessage('ATUALIZADO');
end;  // 0

 

pessoal, o problema para gravar todos os dados está resolvido, falta a data.

 

var
cont :integer;
begin  // 0

 DM.QR_PAC_WIN_SSA.Close;
 DM.QR_PAC_WIN_SSA.SQL.Clear;

 DM.QR_PAC_WIN_SSA.SQL.Add('SELECT ID, NOME FROM PACIENTES');
 DM.QR_PAC_WIN_SSA.Open;

 DM.QR_PAC_TELE_SSA.Close;
 DM.QR_PAC_TELE_SSA.SQL.Clear;

 DM.QR_PAC_TELE_SSA.SQL.Add('INSERT INTO PACIENTES (ID, NOME)');
 DM.QR_PAC_TELE_SSA.SQL.Add('VALUES (:ID, :NOME)');

 cont := 0;

 DM.QR_PAC_WIN_SSA.First; // POSICIONA TABELE NO 1º REGISTRO
 while not DM.QR_PAC_WIN_SSA.Eof DO // FAZER ENQUANTO Ñ FOR FINAL DE ARQUIVO
   Begin // 1
     DM.QR_PAC_TELE_SSA.Params.ParamByName('ID').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('ID').AsString;
     DM.QR_PAC_TELE_SSA.Params.ParamByName('NOME').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('NOME').AsString;
     //  DM.QR_PAC_TELE_SSA.Params.ParamByName('DATANASCIMENTO').AsString := DM.QR_PAC_WIN_SSA.FIELDBYNAME('DATANASCIMENTO').AsString;
     DM.QR_PAC_TELE_SSA.execSQL;
     DM.QR_PAC_WIN_SSA.Next;  // manda p o próximo registro
     inc(cont);
   end; // 1

   ShowMessage(IntToStr(cont)+ ' Registros Atualizados !');
end;  // 0

[Marcos Barbosa 1]

Resolvido