tquery a archivo

[ralmic]

Hola estimados, necesito pasar los datos de un tquery a un archivo de texto o csv para después agregar estos datos a una tabla igual que se encuentra en otra base de datos, ya hice las conexiones. mi base de datos es sybase 9, y trabajo en c++ xe3, intente migrarlo con sql incrustado en c++ usando la opción output de sybase pero me da un error que esta mala la sentencia. lo pruebo en el isql y me importa el archivo sin problemas. gracias de antemano.

[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

[ralmic]

Gracias había hecho un código parecido, no andaba tan perdido, ahora para agregar esos datos a la tabla, como hacer para que a las cadenas, fechas y demas les ponga comillas y asi poder agregarlos o este código es suficientemente inteligente y hace eso??

[ecfisa]

Hola ralmic.

La función que hice no agrega comillas, pero con un simple cambio podes indicarle el formato que deseas:

void QueryToTxt(TQuery *qy, const String aFileName, const String Quote)
{
  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 += Format("%s%s%s,", ARRAYOFCONST(((String)Quote,
          (String)qy->Fields->Fields[i]->AsString, (String)Quote)));
      tmp.SetLength(tmp.Length()-1);
      sl->Add(tmp);
      qy->Next();
    }
    qy->Close();
    sl->SaveToFile(aFileName);
  } __finally {
    delete sl;
  }
}

Ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ...
 // Sin comillas
 QueryToTxt(Query1, "C:\\Pruebas\\NoQuote.txt","");

 // Con comillas simples
 QueryToTxt(Query1, "C:\\Pruebas\\SingleQuote.txt",'\'');

 // Con comillas dobles
 QueryToTxt(Query1, "C:\\Pruebas\\DoubleQuote.txt",'"');
}

Saludos

[ralmic]

gracias es excelente tu código, realmente quise modificarlo para mis necesidades soy un poco novato en builder y parece que no hay mucha ayuda. con este método le pone comilla a todo no importa que sea carácter o no lo que me faltaría es como pornerle comillas a los valores que no sean numéricos. para poder a agregarlos a un a tabla. será posible?? . saludos.

[ecfisa]

Hola ralmic.

Empezado por ralmic

...
lo que me faltaría es como pornerle comillas a los valores que no sean numéricos. para poder a agregarlos a un a tabla. será posible?? ...

Si claro,

void QueryToTxt(TQuery *qy, const String aFileName, const String Quote)
{
  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]->InheritsFrom(__classid(TNumericField)) ?
               qy->Fields->Fields[i]->AsString + "," :
               Quote+qy->Fields->Fields[i]->AsString+Quote + ",";
      tmp.SetLength(tmp.Length()-1);
      sl->Add(tmp);
      qy->Next();
    }
    qy->Close();
    sl->SaveToFile(aFileName);
  } __finally {
    delete sl;
  }
}

Uso:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  QueryToTxt(Query1, "C:\\Pruebas\\DoubleQuote.txt",'"');
}

Saludos