Ver Mensaje Individual
  #4  
Antiguo 06-06-2011
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 26
maeyanes Va por buen camino
Hola...

Si ya sabes cuales son los tipos de datos de los campos, no debe ser dificil lo que buscas hacer.

Podrías hacer algo como esto:

Código Delphi [-]
procedure ExportData(const TableName: string);
var
  I: Integer;
  ExportedData: TStringList;
  Line: string;
  Query: TQuery; // Puedes cambiarlo por el tipo que uses.

begin
  Query := TQuery.Create(nil);
  try
    // Configuras el componente para que use la conexión a la base de datos.
    Query.SQL.Text := Format('select * from %s', [TableName]);
    Query.Open;
    Query.First;
    ExportedData := TStringList.Create;
    try
      while not Query.Eof do
      begin
        Line := '';
        for I := 0 to Pred(Query.FieldCount) do
          Line := Format('%s%s,', [Line, Query.Fields[i].Value]);
        Delete(Line, Lenght(Line), 1); // Eliminamos la coma final
        ExportedData.Add(Line);
        Next
      end;
      ExportedData.SaveToFile(TableName + '.txt') // o .csv
    finally
      ExportedData.Free
    end
  finally
    Query.Free
  end
end;

Y ya para leer los datos, solo tienes que hacer un método que lea el archivo de texto y obtenga el valor de cada campo, sabiendo que cada valor está separado por una coma (,).

Te recomiendo que leas sobre los archivos de valores separados por comas (csv).

Espero te sirva.



Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita