Ok, ahí va. Que conste en actas que quizá diga burradas pues como dije no conozco ADO. Lo bueno es que quienes sí lo conocen están dormidos así que no se reirán.
1. Agrega las componentes ADO a la paleta de componentes
2. Agrega una componente TAdoConnection a tu formulario y pon su propiedad LoginPrompt en false.
3. Haz doble click en la componente para que se abra el editor de la propiedad ConnectionString y selecciona "Use connection string" y luego oprime el botón "Build" para que se abra la ventana de vínculo de datos.
4. En esa ventana, en la ficha "Proveedor" (Provider) selecciona Microsoft Jet 4.0 OLE DB y da click en siguiente.
5. En la ficha "Conexión" (Connection), en el cuadro "Usar nombre de origen de datos" (o algo así) escribe el nombre del archivo excel (te deja buscarlo con un botoncito)
6. En la ficha "Todas" (All) selecciona "Extended properties" y luego "Modificar valor" y escribes "Excel 8.0" (sin las comillas)
7. Oprime 'Ok' las veces necesarias para cerrar todas las ventanas.
Esta fue la parte "difícil", crear la cadena de conexión.
8. Ahora coloca una componente TAdoDataSet en el formulario y asigna el AdoConnectio a su propiedad "Connection"
9. Pon la propiedad CommandType del DataSet en cmdTableDirect y en la propiedad CommandText escoges la hoja que desees del archivo de Excel (si todo salió bien te aparece una lista con las hojas del libro) El nombre de la hoja aparece seguido de un signo $, es normal.
A partir de aquí ya todo es "coser y cantar". El AdoDataSet funciona similar a un Table (aunque de sólo lectura) y lo abres con su propiedad Active:=true o con el método Open (cuidado porque a mi me marcó un error cuando lo activé en tiempo de diseño y luego corrí la aplicación así que mejor lo dejé inactivo y lo abrí hasta la ejecución).
Para la transferencia simplemente usas un bucle:
Código:
while not AdoDataSet1.EoF do
begin
Table1.Append;
Table1.Fields[0].Value := AdoDataSet1.Fields[0].Value;
Table1.Fields[1].Value := AdoDataSet1.Fields[1].Value;
Table1.Fields[2].Value := AdoDataSet1.Fields[2].Value;
...
AdoDataSet1.Next;
end;
o con FieldByName como lo hiciste tú. En lo anterior Table1 es la tabla Paradox ya creada con la estructura deseada.
Espero que te sirva. Parece complicado pero en realidad no lo es tanto, es sólo que es largo describir los pasos de forma escrita.
// Saludos