Query 问题将数据导出有点问题!
gxgl 2003-12-01 07:58:02 void __fastcall TForm1::Button2Click(TObject *Sender)
{
DataModule2->1->Close();
DataModule2->Query1->SQL->Clear();
DataModule2->Query1->SQL->Add("SELECT distinct Taijie FROM bk ");
DataModule2->Query1->ExecSQL();//; 不想得到任何数据 Open()返回表的某行
AnsiString str; char path[100]; // long i=0; * Nf where =35
if(!SaveDialog1->Execute()) return;
str= SaveDialog1->FileName;
if(!DataModule2->Query1->Bof)
DataModule2->Query1->First();
ofstream ws(str.c_str());
while(!DataModule2->Query1->Eof)
{if(DataModule2->Query1Nbs->AsInteger==1) str="S";
else str="N";
str=str+DataModule2->Query1Taijie->AsString
+DataModule2->Query1Year->AsString+"."+DataModule2->Query1Bdh->AsString;
ws<<str.c_str()<<endl;
DataModule2->Query1->Next();
}
ws.close();
}