Ver Mensaje Individual
  #2  
Antiguo 15-01-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
La forma más sencilla es abrir el archivo en Excel y guardarlo como archivo de Paradox.

Pero si lo quieres hacer mediante un programa tienes dos opciones (entre otras seguramente). Usar las componentes de Office (en la paleta Servers) para conectarte a una hoja de Excel de donde puedes con un ciclo copiar los valores de las celdas a una tabala paradox que previamente crees con la estructura adecuada.

Un ejemplo para esto:

Código:
var
Libro: _WORKBOOK;
Hoja: _WORKSHEET;
 
begin
Libro := Excel.Workbooks.Open(
	'tuarchivo.xls',
	false,
	false,
	null,
	'',
	null,
	true,
	null,
	'',
	true,
	null,
	null,
	false,
	0
);
Hoja := Libro.Sheets[1] as _WORKSHEET;
Excel.Visible[0] := true;
donde Excel es una componente de tipo TExcelApplication.

Y accedes a las celdas con

Hoja.Cells.Item[Row, Column] (índices están basados en 1)

Así, suponiendo que tu archivo tiene dos columnas (producto y precio) te creas una tabla paradox con las correspondientes columnas y usas una componente Table conectada a ella para copiar la hoja de Excel con un ciclo:

Código:
for Row := 1 to MaxRow do
begin
  Table.Append;
  Table['producto'] := Hoja.Cells.Item[Row, 1];
  Table['precio'] := Hoja.Cells.Item[Row, 2];
  Table.Post;
end;
La otra opción es usar ADO que te permite conectarte a una hoja de Excel como si fuera una tabla en una base de datos. En este enlace puedes encontrar un ejemplo de conección con ADO y cómo copiar con un ciclo de la tabla ADO a la tabla Paradox.

// Saludos

Última edición por roman fecha: 15-01-2004 a las 02:39:25. Razón: Algunos errorcillos
Responder Con Cita