![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
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 |
|
#2
|
|||
|
|||
|
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 |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|