FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error transfiriendo de Excel(ADO) a Paradox
Buenas
Hice una aplicación que me transfiere los datos de determinada planilla de Excel a una tabla Paradox. Tengo un componente AdoConnection1, AdoDataSet1 y una TTable1 (paradox). La conexión ADO hacia Excel funciona perfecto y además la muestra en un dbgrid. El problema viene cuando intento pasar los datos a la TTable1, lo hago de la siguiente manera: procedure TForm1.BitBtn3Click(Sender: TObject); var contador: integer; begin contador:=0; Table1.Active:=true; while not AdoDataSet1.EoF do begin contador:=contador+1; Table1.append; Table1.Fields[contador].Value := AdoDataSet1.Fields[contador].Value; AdoDataSet1.Next; end; end; Me tira el error: "List Index out of bounds (21)" mientras que 21 es la cantidad de campos que tengo tanto en el Excel como en la TTable1. ¿En qué estoy metiendo la pata? Muchas gracias. Walter |
|
|
|