Explorar una tabla paradox a access o excel???

[arieleb]

Hola a todos, tengo un problema con una aplicación que cree.
El tipo de base de datos que usé fué PARADOX (.DB) y ahora veo que el usuario tiene la necesidad de usar esos datos en un archivo excel y realmente no se si es posible EXPORTAR los datos de la base a un archivo .XLS.
Se puede exportar ??? y como se hace ???
Desde ya, agradezco su aporte.
Saludos.-
ARIEL.-

[albertron]

Hola Arieleb,

Échale un vistazo a los componentes ExportSuite de www.delphi.com.ar .

Un saludo.

[marcoszorrilla]

Aqui tienes un ejemplo utilizando una rejilla para visualizarlos, pones un botón y el siguiente código:

procedure TfrConFacturas.SpeedButton4Click(Sender: TObject);
var
excel:Variant;
fila,columna:Integer;
Data : TDataSet;
MyDataSet:TDataSet;
 
begin
try
excel:=CreateOleObject('Excel.Application');
except
ShowMessage('Excel no se pudo iniciar.');
exit;
end;
excel.Visible:=true;
 
Data:=Reja.DataSource.DataSet;
Data.First;
fila:=1;
columna:=1;
excel.Workbooks.Add;
 
//Poner los títulos
for columna := 0 to Reja.Columns.Count-1 do
begin
excel.Cells[fila,columna + 1].Value:=Reja.Columns[columna].FieldName;
end;
 
fila:=2;
 
//Desengachar controles para agilizar
DmXxxxx.Factura.DisableControls;
DmXxxxx.HLinalbaF.DisableControls;
try
while not(Data.eof) do
begin
 
for columna := 0 to Reja.Columns.Count-1 do
begin
if (columna < 4) or (Columna > 19) then
excel.Cells[fila,columna + 1].Value:=Data.FieldByName(
Reja.Columns[columna].FieldName).asString
else
excel.Cells[fila,columna + 1].Value:=Data.FieldByName(
Reja.Columns[columna].FieldName).asFloat;
end;
Data.Next;
fila:= fila + 1;
end;
Except
ShowMessage('Atención, se produjo un error en la transmisión.');
end;
DmXxxxx.Factura.EnableControls;
DmXxxxx.HLinalbaF.EnableControls;
 
end;

Un Saludo.

[[__hector]]

Otra solucion...

en http://www11.brinkster.com/drstein/c...ntes/index.asp hay un componente, GenExport, que permite exportar desde cualquier dataset a excel, lotus, csv y algun otro formato que no recuerdo. Es increiblemente facil de usar ademas