線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:890
推到 Plurk!
推到 Facebook!

請問一下multaiple -step operation error 的問題

尚未結案
Schuamcher
一般會員


發表:30
回覆:42
積分:14
註冊:2004-11-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-08-23 19:03:58 IP:211.22.xxx.xxx 未訂閱
請問一下當我用ADOQuery將txt檔的程式寫入資料庫(MS-SQL Server)裡面時,當我寫到一半時出現multaiple -step operation error ,在怎麼樣都寫不進資料庫裡,但是手動仍可增加,程式碼如下  
TStringList * SLTXOSettle = new TStringList;
TStringList * SLTXOSettle1 ;
AQuerySQL->Close();
AQuerySQL->SQL->Clear();
AQuerySQL->SQL->Add("select * from TXOSettle");
AQuerySQL->Open();
SLTXOSettle->LoadFromFile(ExtractFilePath(Application->ExeName) "TXOSettle.txt");
for (int i =  0 ; i < SLTXOSettle->Count ; i  )
    {if (SLTXOSettle->Strings[i].SubString(1,1) == 2)
        {SLTXOSettle1 = new TStringList ;
         SLTXOSettle1->Text = StringReplace(SLTXOSettle->Strings[i],"\t","\r\n",TReplaceFlags()<Insert();
             AQuerySQL->FieldValues["TradeDate"] =  SLTXOSettle1->Strings[0];
             if (SLTXOSettle1->Strings[4] == "買權")
                {AQuerySQL->FieldValues["CommodityName"] =  "TXO0"   SLTXOSettle1->Strings[3] 
                 OpMonIntToStr("C", StrToInt(SLTXOSettle1->Strings[2].SubString(5,2)))   SLTXOSettle1->Strings[2].SubString(4,1);
                 AQuerySQL->FieldValues["CPFlag"] = "C";
                }
             else
               {AQuerySQL->FieldValues["CommodityName"] =  "TXO0"   SLTXOSettle1->Strings[3] 
                OpMonIntToStr("P", StrToInt(SLTXOSettle1->Strings[2].SubString(5,2)))   SLTXOSettle1->Strings[2].SubString(4,1);
                AQuerySQL->FieldValues["CPFlag"] = "P";
                }
             AQuerySQL->FieldValues["SettleMonth"] =  SLTXOSettle1->Strings[2];
             AQuerySQL->FieldValues["KPrice"] =  StrToInt(SLTXOSettle1->Strings[3]);
             AQuerySQL->FieldValues["Volume"] =  StrToInt(SLTXOSettle1->Strings[9]);
             AQuerySQL->FieldValues["OI"] =  StrToInt(SLTXOSettle1->Strings[11]);
             AQuerySQL->FieldValues["MeanPrice"] =  (StrToFloat(SLTXOSettle1->Strings[12]) 
             StrToFloat(SLTXOSettle1->Strings[13]))/2;
             AQuerySQL->Post();
             }
         catch(...)
             {
             }             delete   SLTXOSettle1;
         SLTXOSettle1 =NULL;
         }
    }
 delete   SLTXOSettle;
 SLTXOSettle =NULL;
 ShowMessage("更新完成");    
謝謝
系統時間:2024-03-28 23:21:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!