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

發文回覆瀏覽次數：944

推到 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-11-23 9:58:44

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！