Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   importar excel (https://www.clubdelphi.com/foros/showthread.php?t=54022)

DavidSG4 06-03-2008 17:22:36

importar excel
 
Hola a todos soy nuevo por estos lares asi que un saludo a todos y un placer

mi problema es el siguiente tengo que introducir los datos de una tabla excel en una tabla paradox utilizo ado conection y desarrollo unos pasos que encontre en otro hilo que se siguen unos pasos para conectar al fichero excel y cojer los datos. breve descripcion de pasos.
1 insertar un adoconnection.
2 insertar un adodataset.
3 construir la ruta del fichero
4 darle un proveedor microsoft jet 4.0....
metodo..
table.append
while not adodataset1 false then
begin
table1.fieldbyname('campo').value:=adodataset1.fields[0].value
...
end

el caso es que el adodataset1 parece que no tiene datos pero si los tiene he probado a poner adodataset1.open pero tampoco.

a ver si alguien puede echarme un cable gracias y encantado.

duilioisola 06-03-2008 17:41:51

Envía el código (o parte de el) en donde insertas los datos.

de todos modos, creo que falta el post. (y el EOF)

Código Delphi [-]
while not adodataset1.EOF false then
begin
   table1.append; {esto lo moví dentro del while, porque el post cambia a estado browse}
   table1.fieldbyname('campo1').value:=adodataset1.fields[0].value;
   table1.fieldbyname('campo2').value:=adodataset1.fields[1].value;
   table1.fieldbyname('campo3').value:=adodataset1.fields[2].value;
   ...
   table1.Post; {esto graba la linea que acabas de rellenar}
end

DavidSG4 06-03-2008 18:52:57

Gracias por tu rapidez.

el codigo que escribo es como el que tu pones pero el problema es que no entra en el bucle while.

adodataset1.open;// lo he probado con esta linea y sin ella
while not adodataset1.eof=false // aqui pongo una parada doy F8 y salta como si no hubiera nada en el fichero excel.
begin
.............
end

Gracias.


La franja horaria es GMT +2. Ahora son las 07:52:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi