delphi7+access2000
有9台客户端+1台服务器。用adoquery把数据插入数据库,如果是一台一台的执行,什么问题都没有,但是如果有两台同时插入程序就会死掉了。
我的插入的代码是这样的:
with qry1 do
begin
SQL.Clear;
SQL.Add('select * from sender where 发送地址="123"');
ExecSQL;
append;
sendtime:=now;
fieldbyname('发送时间').AsDateTime:=sendtime;
fieldbyname('发送地址').AsString:=edtip.caption;
fieldbyname('接收地址').AsString:=edtaddr.caption;
fieldbyname('内容主题').AsString:=edttopic.caption;
Tblobfield(fieldbyname('发送内容')).LoadFromStream(ms);
fieldbyname('传送状态').AsBoolean:=true;
fieldbyname('读状态').AsBoolean:=false;
Refresh;
close;
end;}
有9台客户端+1台服务器。用adoquery把数据插入数据库,如果是一台一台的执行,什么问题都没有,但是如果有两台同时插入程序就会死掉了。
我的插入的代码是这样的:
with qry1 do
begin
SQL.Clear;
SQL.Add('select * from sender where 发送地址="123"');
ExecSQL;
append;
sendtime:=now;
fieldbyname('发送时间').AsDateTime:=sendtime;
fieldbyname('发送地址').AsString:=edtip.caption;
fieldbyname('接收地址').AsString:=edtaddr.caption;
fieldbyname('内容主题').AsString:=edttopic.caption;
Tblobfield(fieldbyname('发送内容')).LoadFromStream(ms);
fieldbyname('传送状态').AsBoolean:=true;
fieldbyname('读状态').AsBoolean:=false;
Refresh;
close;
end;}
ExecSQL; //这里应该改为Open;