Componente FreeWare que importe doctos de excel a dbf

[roman]

Otra cosa:

Te recomiendo que en lugar de asociar el Table directamente al alias ODBC lo hagas a través de una componente TDatabase:

Database1.AliasName -> alias ODBC
Database1.DatabaseName -> 'mibase' (puede ser cualquier nombre)
Database1.LoginPrompt -> false
Table1.DatabaseName -> 'mibase'

para que no te pida contraseña.

Por otra parte no necesitas ninguna componente extra para convertir a Dbase, Delphi trae todo lo necesario.

Te pongo un ejemplo.

Además de las componentes que ya tienes (Database1 y Table1) agrega otra TTable (digamos Table2) y le pones un nombre en TableName (el que gustes), y añade también una componente BatchMove que sirve precisamente para hacer transferencias.

Usa el siguiente código:

Código Delphi [-]
{ Creas la tabla destino }
Table2.TableName := 'exportado.dbf'; // cualquier nombre que gustes
Table2.TableType := ttDbase;
Table2.FieldDefs.Assign(Table1.FieldDefs);
Table2.CreateTable;

{ Transfieres datos }
BatchMove1.Source := Table1;
BatchMove1.Destination := Table2;
BatchMove.Execute;

¡Listo! Eso es todo.

// Saludos

[JorgeBec]

Siguiendo tu ultimo mensaje roman, a la hora de correr el programa me manda este mensaje...

raised exception class EDBEngineError with message 'Key violation' Microsoft odbc excel driver The Microsoft Jet DataBase Engine cannot open the file unknown it is already opened

General sql error
exclusively by another user or you need permission


por que podra ser...???

[marto]

¿Es posible que tengas el excel abierto?

[JorgeBec]

Tal vez lo que hice mal fue ponerle la propiedad Tablename de Table1 mal, lo puse de la siguiente forma

Lotes.xls$ y tambien probe de la siguiente forma
Lotes$

y de las 2 formas me manda el error antes mencionado y no, no tengo abierto Excel...

[JorgeBec]

Ok, ya paso el error ahora me marca lo siguiente

Table2.CreateTable;

en esta linea me marca 'EDBEngine with message Invalid Parameter '

supongo que algo en el Table2 esta mal, que podra ser???