Ver Mensaje Individual
  #1  
Antiguo 21-09-2006
Avatar de Goyo
Goyo Goyo is offline
Miembro
 
Registrado: feb 2006
Posts: 89
Reputación: 19
Goyo Va por buen camino
Como pasar datos de una hoja de Excel a Bases de Datos de Paradox

estoy tratando de pasar datos de excel 2003 a una base de datos de Paradox, no ya cheque un post (http://www.clubdelphi.com/foros/showthread.php?t=2696&highlight=excel pero la verdad no me funciono, hice los pasos tal como se indica.

la tabla cuenta con 8 campos:
1. NumeroVehiculo
2. Placas
3. Marca
4. Tipo
5. Modelo
6. NumerodeSerie
7. Cilindros
8. Resguardo

tengo un formulario principal que llama a otro formulario desde un menu de opciones... (importar datos), en el formulario hijo puse los componentes AdoConnection y los demas que mencionan en el post, todo el codigo lo puse de la siguiente manera:

Código Delphi [-]
procedure TFrmImportarVehiculos.FormCreate(Sender: TObject);
begin
dm.TbVehiculos.Append;
while not AdoDataSet1.EoF do
  begin
  dm.TbVehiculos.Append;
  dm.TbVehiculos.Fields[0].Value := AdoDataSet1.Fields[0].Value;
  dm.TbVehiculos.Fields[1].Value := AdoDataSet1.Fields[1].Value;
  dm.TbVehiculos.Fields[2].Value := AdoDataSet1.Fields[2].Value;
  dm.TbVehiculos.Fields[3].Value := AdoDataSet1.Fields[3].Value;
  dm.TbVehiculos.Fields[4].Value := AdoDataSet1.Fields[4].Value;
  dm.TbVehiculos.Fields[5].Value := AdoDataSet1.Fields[5].Value;
  dm.TbVehiculos.Fields[6].Value := AdoDataSet1.Fields[6].Value;
  dm.TbVehiculos.Fields[7].Value := AdoDataSet1.Fields[7].Value;
  AdoDataSet1.Next;
end;
end;


en el formulario solo tengo los componentes que se indican en el post y este lo llamó desde un formulario principal
Responder Con Cita