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 |
#2
|
||||
|
||||
Entonces, vos mismo te das cuenta que estas traspasando los límites. Si 21 es el número de campos, el mayor indice (al estar en un arreglo basado en 0) es 20.
¿Que es lo que queres conseguir? Te recomiendo el uso de las etiquetas [delphi] y [code] para publicar trozos de código. mas información en el mensaje al inicio de cada foro, y en los vínculos de mi firma. Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#3
|
|||
|
|||
Si, me doy cuenta lo que está pasando pero ya estoy tan mareado de revisar código que no logro darme cuenta de que estoy haciendo mal como para pasarme.
En cuanto a lo de las etiquetas lo tengo en cuenta y en lo sucesivo prometo utilizarlas. Muchas gracias. |
#4
|
||||
|
||||
Entonces mejor tomate un respiro. En lo particular no he usado ADO para conectarme con excel, pero supongo que cada fila es un registro, no?
Te has dado cuenta que de la forma que estas "importando" los datos tomarás solo los datos de las celdas de la diagonal principal? (a,1), (b,2), (c,3) etc. No se que pretendes hacer, pero creo que venis confundido desde el inicio...
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#5
|
|||
|
|||
Gracias!
Realmente me voy a tomar un descanso porque lo que estaba haciendo es cualquier cosa. Pongo el código corregido ya que puede ser de utilidad a alguien mas. Código:
procedure TForm1.BitBtn3Click(Sender: TObject); var campos, bucle, contador: integer; begin contador:=0; campos:=adodataset1.Fields.Count - 1; Table1.Active:=true; while not Adodataset1.EoF do begin contador:=contador+1; Table1.Append; for bucle:= 0 to campos do begin Table1.Fields[bucle].Value := Adodataset1.Fields[bucle].Value; end; Adodataset1.Next; end; end; Un abrazo Walter |
|
|
|