SQL a Texto con Delphi

[YaninaGenia]

Quise decir donde pongo ese código para que en la exportación figuren los nombres de las columnas. Esa propiedad la conozco, tan novata no soy!!!


Yanina

[ContraVeneno]

_________________________________

[YaninaGenia]

Jajaja, no llores hijo, ahora me voy a poner a resolverlo porque ya vine de comer y me volviò a andar el cerebro. Es muy facil, en un ratito lo publico.

Yanina

[YaninaGenia]

Gracias Delphi.com.ar por tu ayuda, aca publico el còdigo que me mandaste un poco modificado:

procedure DataSetToStream(ADataSet: TDataSet; AStream: TStream);
var
  i: Integer;
  S: string;
begin
  if not ADataSet.IsEmpty then
  begin
	S := '';
	ADataSet.EnableControls;
	try
	  for i := 0 to ADataSet.Fields.Count -1 do
	  begin
		if (i = ADataSet.Fields.Count -1) then
		  S := S + ADataSet.fields[i].FieldName + #13#10
		else
		  S := S + ADataSet.fields[i].FieldName + ';';
	  end;
	  AStream.Write(S[1], Length(S));
	  ADataSet.First;
	  repeat
		S := '';
		for i := 0 to ADataSet.Fields.Count -1 do
		  if ADataSet.Fields[i].Visible then
		  begin
			if (i = ADataSet.Fields.Count -1) then
			  S := S + ADataSet.Fields[i].DisplayText + #13#10
			else
			  S := S + ADataSet.Fields[i].DisplayText + ';';
		  end;
		AStream.Write(S[1], Length(S));
		ADataSet.Next;
	  until ADataSet.Eof;
	finally
	  ADataSet.DisableControls;
	end;
  end;
end;

Con eso me salen las exportaciones con los nombres de las columnas. Le saquè el if que pregunta i > 0 porque no es necesario. Y en lugar del #9 le puse ; porque lo convierto a CSV.

Yanina Genia

[Thales]

Empezado por YaninaGenia

Quise decir donde pongo ese código para que en la exportación figuren los nombres de las columnas

Yanina

Te muestro una modificación del código de Federico para que muestre los nombres de los campos al principio del fichero

Código Delphi [-]
procedure DataSetToStream(ADataSet: TDataSet; AStream: TStream);
var
  I: integer;
  S: string;
begin
  with ADataSet do
  begin
    // Nombres de Campos
    S := '';
    for I := 0 to Pred(FieldCount) do
    begin
      if I > 0 then S := S + #9;
      S := S + Fields[i].DisplayLabel;
    end;
    S := S + #13#10;
    AStream.Write(S[1], Length(S));
    Open;
    // Registros
    while not Eof do
    begin
      S := '';
      for I := 0 to Pred(FieldCount) do
      begin
        if I > 0 then S := S + #9;
        S := S + Fields[i].DisplayText;
      end;
      S := S + #13#10;
      AStream.Write(S[1], Length(S));
      Next;
    end;
  end;
end;
 
procedure DataSetToFile(ADataSet: TDataSet; AFileName: string);
var
  Stream: TStream;
begin
  Screen.Cursor := crHourglass;
  try
    Stream := TFileStream.Create(AFileName, fmCreate);
    try
      DataSetToStream(ADataSet, Stream);
    finally
      Stream.Free;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

Un saludo

[Thales]

oops.. no me di cuenta que había más mensajes en el hilo y que YaninaGenia ya había dado con una solución

Un saludo