Conversão de Dados

[ZéLuiz 0]

Tenho uma base de dados Paradox, e como é uma porcaria resolvi migrar para o MYSQL. Possuo dados do tipo DATE, que o Paradox trata como DD/MM/AAAA e o MYSQL como AAAA-MM-DD. Essa diferença esta me dando problemas.

 

Migrei todo o banco de dados pelo Datapump do Delphi, porem a data me veio como campo nulo! Por causa dessa diferença de formatação o MYSQL não esta aceitando minhas datas.

 

Então fiz um código pra inverter os valores e gravar na tabela MYSQL.

 

 

procedure TForm1.Button1Click(Sender: TObject);

var datasaida, anoo, mess, diaa:string;

ano, mes, dia:word;

data1:TDate;

begin

table1.First; // tabela MYSQL

table2.First; // Tabela Paradox

while not table1.eof do begin

data1 := table2['datasaida'];

decodedate(data1, ano, mes, dia);

anoo := floatToStr(ano); mess:= floatToStr(mes); diaa := floatToStr(dia);

datasaida := anoo+'-'+mess+'-'+diaa;

table1.Edit;

table1['datasaida'] := datasaida;

table1.post;

table1.next;

table2.next;

end;

end;

 

 

Esse codigo deveria funcionar neh!!......mas assim que chego no Post me vem um erro:

 

"Couldn´t perform the edit because another user changed the record."

 

Alguem saberia uma solução pra esse probleminha???

[ZéLuiz 0]

....ahhhh.....eu havia mudado o campo datasaida da tb mysql para o tipo date..........isso ocasionou o erro!!primeiro o tenho que gravar os dados, com o campo como char, depois eu mudo o tipo pra date!!deu certo pra meu caso particular!!!flwps