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

更新資料時的問題

尚未結案
f6487149
一般會員


發表:5
回覆:1
積分:1
註冊:2003-07-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-07-27 16:58:25 IP:211.23.xxx.xxx 未訂閱
我的目的是要將dbf中原本為 0001-0000 0001-0001.....資料格式資料 更改成1, 1-1的資料,以下為我的程式碼,請問這是哪裡有問題呢?? ADOTable1->Active = true; AnsiString text,text1,texttemp,newtext; int inttemp1=0,inttemp2=0; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("select * from hg1214.dbf "); ADOQuery1->Open(); ADOTable1->First(); while(!ADOTable1->Eof) { text = ADOQuery1->FieldByName("ID")->AsString; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 當迴圈執行至此會出現 field "ID" not found的訊息 text1 = text.SubString(0,4).c_str(); inttemp1 = StrToInt(text1); texttemp = text.SubString(text1.Length() 2,text.Length()-text1.Length()); inttemp2 = StrToInt(texttemp); if(inttemp2!=0) { newtext = IntToStr(inttemp1) "-" IntToStr(inttemp2);} else { newtext = IntToStr(inttemp1); } ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("update hg1214.dbf"); ADOQuery1->SQL->Add("set ID = '" newtext "'"); ADOQuery1->SQL->Add("where ID = '" text "'"); ADOQuery1->ExecSQL(); ADOTable1->Next(); }
bass15
高階會員


發表:24
回覆:171
積分:119
註冊:2003-10-27

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-28 00:49:07 IP:61.59.xxx.xxx 未訂閱
你確定hg1214.dbf 裡有 ID 這個欄位嗎
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-07-28 08:44:16 IP:218.15.xxx.xxx 未訂閱
引言: 我的目的是要將dbf中原本為 0001-0000 0001-0001.....資料格式資料 更改成1, 1-1的資料,以下為我的程式碼,請問這是哪裡有問題呢?? ADOTable1->Active = true; AnsiString text,text1,texttemp,newtext; int inttemp1=0,inttemp2=0; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("select * from hg1214.dbf "); ADOQuery1->Open(); ADOTable1->First(); while(!ADOTable1->Eof) { text = ADOQuery1->FieldByName("ID")->AsString; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 當迴圈執行至此會出現 field "ID" not found的訊息 text = ADOTable1->FieldByName("ID")->AsString; //改成这句试试,因ADOQuery1在您第一次做更新的时候,值已改变了。看您的意思也是应该改为ADOTable1才对,试试看 >>>>>>> ID = '" newtext "'>SQL->Add("where ID = '" text "'"); ADOQuery1->ExecSQL(); ADOTable1->Next(); }
============================ 为什么经过多年以后,得失的过程如此冷漠 ============================
系統時間:2024-03-29 3:18:36
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!