Guardar un DBGrid como archivo *.dbf

[richisaurio]

Hola, envio un enorme saludo a todos los participantes del foro.
El motivo del hilo es el siguiente, estoy haciendo un conversor de archivos de xls a dbf, ya conseguí recuperar el archivo xls ( de Excel ) a un DBGrid, pero el problema que tengo es como voy a guardarlo como un archivo con extension .dbf, mi objetivo final es que este archivo pueda ser abierto por una aplicación de Fox. Y por tanto es necesario que la estructura del archivo sea la adecuada.
Espero puedan ayudarme GRACIAS XD

[Neftali [Germán.Estévez]]

No se si has utilizado ADO para abrir el fichero de Excel en el DBGrid (si no lo has hecho míratelo o busca en la ayuda, porque es una buena forma de hacerlo). De la misma forma puedes utilizar también ADO pra grabar o conectar a tablas DBF.
Así que lo más sencillo sería tener dos conexiones ADO, una con la cadena de conexión a Excel, similar a esta:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";

Y la otra conexión apuntando a la tabla DBF, similar a esta:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;Extended Properties=dBASE IV;User ID=Admin;Password=;

A partir de ahí se trata de hacer un bucle que lea de una y grabe en otra.

[richisaurio]

Muchas gracias por responder, una pregunta mas .............
Cómo podría crear una nueva tabla .dbf utilizando la conexion ADO ????
Y como podría migrar los datos de xls a la tabla recien creada ??? GRX.

[Neftali [Germán.Estévez]]

Puedes crear la tabla utilizando una SQL. Si configuras la conexión tal y como te he comentado antes, una SQL como esta te creará la tabla en el directorio configurado en la conexión:

Código Delphi [-]
var
  SQl:string;
begin
  // Crear la tabla
  SQL := 'CREATE TABLE MYTABLE (NAME CHAR(30),Passwd CHAR(10),TEL integer,JOB CHAR(100))';
  ADOQ.SQL.Clear;
  ADOQ.SQL.Add(SQL);
  ADOQ.ExecSQL;

[richisaurio]

Otra pregunta mas porfavor
Mmmm me imagine que era mas complicado . Estuve toda la madrugad con eso.
Necesito hacer una consulta a los datos que tengo de excel y que ya estan cargados en un ADODataSet, la consulta la hacía de la siguiente manera:

    cadena:='select * from c:\base\ACTUA.xls';         // Esta linea esta bien ????
             ADOQuery1.Active:=False;
             ADOQuery1.SQL.Text :=cadena;
             ADOQuery1.Active := True;

y me da un eOLeException"Error en el objeto Parameter,el objeto esta mal definido, se proporciono informacion icompleta o hay una incoherencia".
Luego de hacer esa consulta, pensaba ya insertarlo en el archivo dbf. pero no funciona

[[poliburro]]

Empezado por richisaurio

Otra pregunta mas porfavor
Mmmm me imagine que era mas complicado . Estuve toda la madrugad con eso.

Pues no, con ADO la vida es más sencilla :P.

La consulta es de la siguiente manera:

Código SQL [-]
 
Select * From [Hoja1$]

Donde [Hoja1$] es el identificador de la hoja dentro del libro cuyos datos deseas consultar.

Recuerda que el libro lo configuraste en la conexión, por lo tanto la consulta es sobre las hojas.

Saludos.

[Cañones]

Con el mismo Office podes guardar tu xls en formato dbf.

Saludos.