delphi操作access(10分)

  • 主题发起人 主题发起人 boysunsight
  • 开始时间 开始时间
B

boysunsight

Unregistered / Unconfirmed
GUEST, unregistred user!
使用了webservice,代码如下:
SQLText:='select * from wenjian where DocId='+ID;

with TempClient1 do
begin
TempClient1.Data:= frmLogin.WebSVR.QueryData(SQLText);
TempClient1.First;
TempClient1.Edit;
TempClient1.FieldByName('DocName').AsString:=Trim(Edit1.Text);
TempClient1.FieldByName('Depart').AsString:=Trim(Edit2.Text);
TempClient1.FieldByName('Position').AsString:=Trim(Edit3.Text);
TempClient1.FieldByName('Content').AsString:=Trim(Memo1.Text);
end;

i:=frmLogin.WebSVR.UpdateData('WenJian',TempClient1.Data);
if i=0 then
begin
frmMain.Message1.MessageDlg('记录基本信息保存成功!',
mtInformation, [mbCancel, mbOk], 0);
end;

说明:WebSVR是一个ISOAP类型,
此代码运行到i:=frmLogin.WebSVR.UpdateData('WenJian',TempClient1.Data)时,i总是1,数据保存不成功。请问什么原因啊。
 

Similar threads

I
回复
0
查看
503
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
781
import
I
I
回复
0
查看
487
import
I
后退
顶部