各位專家好:
小弟目前碰到一無法解決之問題,小弟係使用bcb 6.0 sql server,資料表中有一編號欄位(如下圖),
在使用者進行作業時,最後有一edit元件供其輸入產品編號,但這4碼編號不能與原資料表中的編號欄位值重覆,
如資料表中當日"編號"欄位已有0101,則程式在使用者輸入0101時,就必需顯示錯誤訊息給使用者,.如"編號重覆"!!!
我的程式判斷流程大致如下:
1.先select * from 資料表 where 日期=當日日期
2open
i=0;
j=0;
3.while (i < ad0->recordcount).
{
if edit1->Text=ado1->編號欄位->AsString;
j=1;
i ;
}
if j=1 show "錯誤訊息"
但程式每次只要加上這一段,就當住了(語法也沒錯,變數也有設好),
請問大家如何解決,或是有更好的判斷方法嗎?????????多謝!!!!!
資料表如下------>

------
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~

aQuery->Close();
aQuery->SQL->Clear();
aQuery->SQL->Add("SELECT 編號欄位 FROM 資料表 WHERE 日期=當日日期 AND 編號欄位='" Edit1.text "'"); //用不到的欄位不要選，否則資料愈大愈慢！
aQuery->Open();
if ( aQuery->RecordCount() > 0 )
{
ShowMessage("資料已存在！");
}
.....
還有這邊是Delphi區，下次不要貼錯地方；另外你之前提的問題有些已經有解答了，不要吝嗇結案～

感恩啦,我下次知道啦,再次感謝!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ps.這里還真是有好多專業的程設師!!!!!

------
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~