FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Explorar una tabla paradox a access o excel???
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.- |
#2
|
|||
|
|||
#3
|
||||
|
||||
Aqui tienes un ejemplo utilizando una rejilla para visualizarlos, pones un botón y el siguiente código:
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;
__________________
Guía de Estilo de los Foros Cita:
|
#4
|
||||
|
||||
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
__________________
Héctor Geraldino Software Engineer |
|
|
|