Saludos¡¡¡
Pues con la novedad que estoy intentando cargar unos datos de unos .dbf pero con la cuestión que algunos tienen 870 columnas algunas menos pero la mayoria anda en ese rango, entonces lo ligue a un cxgrid(v 6.54) donde trae un método para exporta a excel llamado ExportGridToEXCEL pero ho sorpresa solo me trae 245 columnas
, tengo el siguiente código:
Código Delphi
[-] SaveDialog.Filter := 'Hoja de Cálculo Excel (*.xls) | *.xls';
SaveDialog.Title := ' Salvar listado como Hoja de Cálculo Excel';
if SaveDialog.Execute then
begin
ExportGridToEXCEL(SaveDialog.FileName,cxGrid1, True,True,True,'xls');
MessageDlg('La información fué salvada en ' + SaveDialog.FileName, mtInformation, [mbOk], 0);
end;
No se si me falte algún parametro o establecer algún valor o si ese es su limite, pensando en eso me puse a la tarea de investigar como podria crear los campos del Table de datos del .dbf a un ClientDataSet ligado a una tabla que solo tiene el campo Id, encontre información en un link de ROMAN
(http://www.clubdelphi.com/foros/showthread.php?t=5033)pero no se si es correcto como lo estoy utilizando, porque no me crea los campos fisicos por asi llamarlos en mi tabla de la bd de MySQL:
Código Delphi
[-]
dmConexion.cdsBach1i10.Open;
BACH1I10.Open;
numcol:=BACH1I10.FieldCount;
showmessage(inttostr(numcol));
for I := 0 to numcol-1 do
begin
FieldDefSource := BACH1I10.FieldDefs[i]; FieldDefDest := dmConexion.cdsBach1i10.FieldDefs.AddFieldDef; FieldDefDest.Assign(FieldDefSource);
end; showmessage('Campos copiados con éxito.');
Cualquier dato se los agradesco, gracias por su tiempo...