tquery a archivo

[ecfisa]

Hola ralmic.

void QueryToTxt(TQuery *qy, const String aFileName)
{
  String tmp;

  TStrings *sl = new TStringList;
  __try {
    qy->Close();
    qy->Open();
    while (!qy->Eof) {
      tmp = "";
      for(int i=0; i<qy->Fields->Count; i++)
        tmp += qy->Fields->Fields[i]->AsString + ",";
      tmp.SetLength(tmp.Length()-1);
      sl->Add(tmp);
      qy->Next();
    }
    qy->Close();
    sl->SaveToFile(aFileName);
  } __finally {
    delete sl;
  }
}

Ejemplo de uso:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Query1->SQL->Text = "SELECT * FROM COUNTRY";
  QueryToTxt(Query1, "C:\\Carpeta\\Query.txt");
}

Saludos