PDA

Ver la Versión Completa : migrando a firebird


JoseQ
13-08-2004, 01:43:38
Buenas, estoy empezando con FireBird (primera impresion --> simplemente genial !!! xD), para empezar a conocer como funciona me propuesto migrar una base de datos bastante sencilla k tenia en acces, la estructura de las tablas ya la tengo hecha, pero al intentar pasar los datos de la tabla antigua a la nueva no lo hace bien, me explico, solo me copia los 145 primeros registros y el antepenultimo :? aqui dejo el codigo que utilizo para volcar los datos


procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.Open;
ibtable1.Open;
while not adotable1.Eof do
begin
ibtable1.Insert;
ibtable1.FieldByName('IDENTIFICADOR').AsInteger:=adotable1.FieldByName('ID').AsInteger;
ibtable1.FieldByName('NOMBRE').AsString:=adotable1.FieldByName('TITULO').AsString;
ibtable1.FieldByName('SERIAL').AsString:=adotable1.FieldByName('S/N').AsString;
ibtable1.FieldByName('UBICACION').AsInteger:=adotable1.FieldByName('UBICACION').AsInteger;
ibtable1.FieldByName('CATEGORIA').AsInteger:=strtoint(adotable1.FieldByName('CATEGORIA').AsString);
ibtable1.FieldByName('SOPORTE').AsInteger:=adotable1.FieldByName('SOPORTE').AsInteger;
ibtable1.Post;
adotable1.next;
IBTRANSACTION1.CommitRetaining;
end;
end;


al ejecutar me da el siguiente error :

exception class EconvertError with message "" is not a valid integer value
espero que alguien me pueda echar una mano, gracias.

JoseQ
13-08-2004, 01:49:47
ejem, bueno, retiro todo lo dicho, ya esta solucionado, faltaba un valor en un registro