web Service 数据库插入问题

songfuqiang 2007-08-14 07:49:44
这是我的一段Web Service 代码,如果把它写成普通的函数,它能正常的插入数据,但是写成一个Web Service的接口哪它就不行了,请问这是怎么回事?是要设置一些额外的属性嘛?另外,请大家推荐一本java 写Web Service 的书籍,因为这个项目最终用java改写!先谢谢了!
function TAddtion.InsertRecord(Const Stru:TMyDataStru):String;Stdcall;
var
Info:TMyDataStru;
i,iCount:integer;
ADOCon: TADOConnection;
ADOQuery: TADOQuery ;
ConStr,Str:String;
begin
ADOCon:=TADOConnection.Create(nil);
ADOQuery:=TADOQuery.Create(nil);
Str:='insert into test (id,Fullname,sex) valus(:p1,:p2,:p3)';
ConStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\重试\data_table.mdb;Persist Security Info=False';
ADOCon.ConnectionString:=ConStr;
ADOCon.LoginPrompt:=False;
ADOCon.Connected:=true;
ADOQuery.SQL.Clear;
try
ADOQuery.SQL.Add(str) ;
ADOQuery.Parameters.ParamByName('p1').Value :=info.iD;
ADOQuery.Parameters.ParamByName('p2').Value :=info.Name;
ADOQuery.Parameters.ParamByName('p3').Value :=info.Sex;
iCount:=ADOQuery.ExecSQL;
if Icount>0 then
result:='语句执行成功!'
else
Result:='Error';
Except
result:='出错了!'
end;
end;
...全文
53 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
wanghuayang1234 2007-08-20
  • 打赏
  • 举报
回复

ConStr:= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\重试\data_table.mdb;Persist Security Info=False ";
这个有问题,source不能用路径,访问的时候默认是作为本机的

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧