Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Tablas planas
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-03-2008
DavidSG4 DavidSG4 is offline
Miembro
 
Registrado: oct 2007
Posts: 92
Poder: 17
DavidSG4 Va por buen camino
Arrow 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.
Responder Con Cita
  #2  
Antiguo 06-03-2008
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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
Responder Con Cita
  #3  
Antiguo 06-03-2008
DavidSG4 DavidSG4 is offline
Miembro
 
Registrado: oct 2007
Posts: 92
Poder: 17
DavidSG4 Va por buen camino
Arrow

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.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Importar desde Excel Lucas_diaz1810 Conexión con bases de datos 5 03-11-2006 18:15:26
Importar Excel a RTF CARSOFT_AR Varios 0 24-08-2005 19:59:18
importar de excel a BD jmlifi Varios 2 09-08-2005 11:47:18
Importar Campos De Excel jadelphi Varios 2 13-04-2005 20:02:54
importar de excel joanajj Servers 3 04-08-2004 12:35:02


La franja horaria es GMT +2. Ahora son las 10:41:10.


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
Copyright 1996-2007 Club Delphi