delphi7中在intraweb控件中如何实现与数据库链接? |
尚未結案
|
rainfoot
一般會員 發表:9 回覆:17 積分:5 註冊:2003-05-03 發送簡訊給我 |
我想请教一下:如果想把iwdbedit中的数据放到sql数据库中使用的语句为何系统不支持!
procedure TformMain.IWButton1Click(Sender: TObject);
begin
with table1 do
begin
indexfieldnames:='yonghm';
setkey;
fieldbyname('yonghm').Value:=iwdbedit1.Text;
if gotokey then
webapplication.showmessage('用户名已存在!请重新输入!')
else
begin
insert;//特别是该语句好像系统无法识别!!!
fieldbyname('yonghm').AsString:=iwdbedit1.Text;
fieldbyname('yonghmm').AsString:=iwdbedit2.Text;
post;
end;
end;
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
試試不要用 with Table1 do 這種方式:
procedure TformMain.IWButton1Click(Sender: TObject); begin Table1.indexfieldnames := 'yonghm'; Table1.setkey; Table1.fieldbyname('yonghm').Value := iwdbedit1.Text; if Table1.gotokey then webapplication.showmessage('用户名已存在!请重新输入!') else begin Table1.insert; Table1.fieldbyname('yonghm').AsString := iwdbedit1.Text; Table1.fieldbyname('yonghmm').AsString := iwdbedit2.Text; Table1.post; end; end;不過, 小弟用您的方式, 在編譯是無 error 的 您的錯誤訊息為何? --- 每個人都是一本書 發表人 - hagar 於 2003/05/16 14:37:27 |
rainfoot
一般會員 發表:9 回覆:17 積分:5 註冊:2003-05-03 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |