Código Delphi
[-]procedure TForm20.ImportarClick(Sender: TObject);
begin
adoqdbf.open;
table1.open;
while not table1.eof do
begin
adoqdbf.append;
adoqdbf.FieldByName('Codproy').AsInteger := Table1.FieldByName('Proy').AsInteger;
adoqdbf.FieldByName('Codposic').AsInteger := Table1.FieldByName('Pos').AsInteger;
adoqdbf.FieldByName('Espec').AsInteger := Table1.FieldByName('Esp').AsInteger;
adoqdbf.FieldByName('Desc').AsString := Table1.FieldByName('Nombre').AsString;
adoqdbf.FieldByName('Horas').AsInteger := Table1.FieldByName('Trabajo').AsInteger;
adoqdbf.FieldByName('Fecini').AsDateTime := Table1.FieldByName('Comienzo').AsDateTime;
adoqdbf.FieldByName('Fecfinp').AsDateTime := Table1.FieldByName('Fin').AsDateTime;
table1.next;
end;
ShowMessage('Se han cargado nuevas posiciones al Sistema de Tarjetas');
end;
Bueno, me ha quedado asi y pues ya funciona, muchisimas gracias por su ayuda!
CARAL, respondiendo a lo que dijistes de que porque se usan dos bases de datos es porque la tabla .dbf se crea a partir de una exportacion que hacen desde MICROSOFT PROJECT a traves de una macro de visual basic...
Como es algo urgente, me toca por el momento dejandolo trabajar asi para luego ver como borro por completo el sistema viejo (si te contara el enredo con el que se trabaja jajajaja)