急急,高分(200)相送,有关internet express问题......(200分)

  • 主题发起人 wangyukai
  • 开始时间
W

wangyukai

Unregistered / Unconfirmed
GUEST, unregistred user!
网友大家好!初入电子商务技术,现有难题,请多多指教,本人将不胜感谢.
问题:利用DELPHI5的internet express组件编写ISAPI/NSAPI结构的分布
式数据库的时候,在网页浏览器中能正常的显示数据库表的数据,而且能够
修改表中的数据,但是在新增的过程中却没有记录添加入表中,浏览器也没有
出现错误的提示,其中的更新用到Tclientdataset的更新功能.请大家能详细的
举个例子,指出错误所在与如何正确的使用,最好是有简单的例子与开发步骤
演示...
谢谢!
或Email:wangyukai15725@163.net
 
K

kkufo

Unregistered / Unconfirmed
GUEST, unregistred user!
确实没有办法的话,去看看李维的那三本书
 
A

autumn

Unregistered / Unconfirmed
GUEST, unregistred user!
自己使用sql 根据用户修改的detail包修改数据库
 
W

wjiachun

Unregistered / Unconfirmed
GUEST, unregistred user!
提问者:
如果你还要继续讨论请定期提前你的帖子,如果不想继续讨论请结束帖子。
请认真阅读大富翁论坛规则说明 http://www.delphibbs.com/delphibbs/rules.asp
 
R

rehuo

Unregistered / Unconfirmed
GUEST, unregistred user!
关注!!!!
 
L

liounzhou

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TWebModule1.WebModule1waSubmitAddAction(Sender: TObject;
Request: TWebRequest;
Response: TWebResponse;
var Handled: Boolean);
var
id:OleVariant;
params:integer;
//用来控制循环
begin
//查找科目是否存在,如果不存在,则在subject表中添加记录
cdsgeneral.Active:=True;
cdsgeneral.CommandText:='select * from subject';
if not cdsgeneral.Locate('SUBJECT',request.ContentFields.Values['subject'],
[loCaseInsensitive]) then
try
cdsgeneral.Insert;
//cdsgeneral是一个Tclientdataset组件。
cdsgeneral.FieldByName('SUBJECTID').Value:=IntToStr(cdsgeneral.RecordCount+1);
cdsgeneral.FieldByName('SUBJECTNAME').Value:=request.ContentFields.Values['subject'];
cdsgeneral.Post;
cdsgeneral.ApplyUpdates(0);
finally
cdsgeneral.Active:=False;
end;

try
//首先是插入知识库表的数据
cdsknp.Active:=True;

// cbajsbk.AppServer.Getknpid(request.ContentFields.Values['subject'],id);
//从服务器取得知识号
cdsknp.Insert;
cdsknp.FieldByName('KNID').Value:=id;
cdsknp.FieldByName('KNPKEY').Value:=request.ContentFields.Values['Title'];
cdsknp.FieldByName('REQUI').Value:=request.ContentFields.Values['object'];
cdsknp.FieldByName('SPECIFICATION').Value:=request.ContentFields.Values['content'];
cdsknp.Post;
if (cdsknp.ChangeCount<>0 ) then
cdsknp.ApplyUpdates(0);
finally
cdsknp.Active:=False;
end;
end;
 
W

wjiachun

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 

Similar threads

回复
0
查看
675
不得闲
S
回复
0
查看
948
SUNSTONE的Delphi笔记
S
S
回复
0
查看
769
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
顶部