안녕하세요~
시간한줌입니다....
csv파일이 뭔진 잘 몰것지만 쉼표 구분하에 된다면~ 아마 이렇지 않을까요? ㅡㅡㅋ

컴파일은 안해봤지만 아마 이것과 유사하지 않을까 생각됩니당~ 걍 참고만 하시길.. ㅋㅋ

{
    DM->ADOQuery1->Close();
    DM->ADOQuery1->SQL->Clear();
    DM->ADOQuery1->SQL->Add(Memo1->Lines->Text);
    DM->ADOQuery1->Open();

    int i_Count = DM->ADOQuery1->RecordCount;
   
    if( i_Count <= 0 ) return;
   
    AnsiString str_Data = "";

    TSaveDialog* svDlg = new TSaveDialog(this);
    svDlg->InitialDir = "";
    svDlg->FileName = ExtractFileName("test.csv");
    TFileStream * fs;
   
    if(svDlg->Execute() == TRUE)
    {
         str_savefilename = svDlg->FileName;
         fs = new TFileStream(svDlg->FileName, fmCreate|fmShareCompat);

         for( int i=0 ; i<i_Count ; i++)
         {
             str_Data += DM->ADOQuery1->FieldByName("Data1")->AsString + ",";
             str_Data += DM->ADOQuery1->FieldByName("Data2")->AsString + ",";
             str_Data += DM->ADOQuery1->FieldByName("Data2")->AsString + '\n';
             DM->ADOQuery1->Next();
         }
         fs->Write(str_Data.c_str(), str_Data.Length());
    }
    delete fs;
    delete svDlg;
}


Happy 님이 쓰신 글 :
: Memo1에 쿼리문을 입력하고 버튼을 누르면 동적으로  그리드에 뿌려집니다.
: 만약 Memo1에 select * from test 라고 입력하면
: test테이블의 데이터가 전부다 보여지게 되는겁니다.
: 데이터 소스에 ADO방식으로 데이터베이스에 연결한후 DBGrid에 연결했습니다.
: 그리드에 관련한 소스는 없는데요^^;
: 현재 결과는 그냥 잘뿌려집니다
:
: void __fastcall TForm2::Button1Click(TObject *Sender)
: {
:          ADOQuery2->Close();
:          ADOQuery2->SQL->Clear();
:          ADOQuery2->SQL->Add(Memo1->Lines->Text);
:          ADOQuery2->Open();
:          ADOQuery2->Active=false;
:          ADOQuery2->Active=true;
:
: 
: }
:
:
: 답변 부탁드릴께요^^
: 
: