Código Delphi
[-]
dcurso.First;
while not(dcurso.Eof)do
begin
inc(codigo);
dusuario.Insert;
dusuario.FieldByName('codigo').Value:=codigo;
if dcurso.fieldbyname('apellidos').isnull or dcurso.fieldbyname('nombre').isnull then
dusuario.cancel
else
begin
if not(dcurso.FieldByName('año').IsNull) then
dusuario.FieldByName('libre2').Value:=dcurso.fieldbyname('año').asstring;
dusuario.FieldByName('num_matricula').value:=dcurso.fieldbyname('expte').AsString;
if not(dcurso.FieldByName('fecha nac').IsNull) then
dusuario.fieldbyname('fecha_nacimiento').value:=dcurso.FieldByName('fecha nac').Value;
dusuario.FieldByName('nombre_usuario').Value:=trim(dcurso.FieldByName('apellidos').Value+' '+dcurso.FieldByName('nombre').Value);
dusuario.FieldByName('nombre_completo').Value:=trim(dcurso.FieldByName('apellidos').Value+' '+dcurso.FieldByName('nombre').Value);
dusuario.FieldByName('poblacion').Value:=dcurso.FieldByName('población').Value;
dusuario.FieldByName('direccion').Value:=dcurso.FieldByName('dirección').Value;
dusuario.FieldByName('provincia').Value:=dcurso.FieldByName('provincia').Value;
dusuario.FieldByName('codigo_postal').Value:=dcurso.FieldByName('cp').Value;
dusuario.FieldByName('telefono').Value:=dcurso.FieldByName('teléfono1').Value;
dusuario.FieldByName('telefono_2').Value:=dcurso.FieldByName('teléfono2').Value;
if not(dcurso.FieldByName('nif').IsNull)then
dusuario.FieldByName('nif').Value:=QuitaCaracter(dcurso.fieldbyname('nif').Value);
dusuario.FieldByName('comentario').Value:=dcurso.FieldByName('observaciones').Value;
dusuario.FieldByName('libre1').Value:=dcurso.FieldByName('curso').Value;
dusuario.Post;
end;
dcurso.Next;
end;
Este es el fragmento de codigo principal para el traspaso de lo que quiero. Simpremente recorro todos los campos de la tabla origen (access)y los voy insertando en la tabla destinto (firebird).
El tema de la foto no lo he conseguido pasar.