更新資料時的問題 |
|
尚未結案
|
|
f6487149
一般會員   發表：5 回覆：1 積分：1 註冊：2003-07-20 發送簡訊給我 |
我的目的是要將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 發送簡訊給我 |
|
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
引言: 我的目的是要將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) {============================ 为什么经过多年以后，得失的过程如此冷漠 ============================ |
發表時間：2005-07-27 16:58:25
IP:211.23.xxx.xxx 未訂閱
系統時間：2024-11-23 7:23:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |