我用AdoQuery连接Access数据库:procedure ThreadFun(lParam:integer);stdcall;
var i:integer;
begin
with Form1 do begin i:=1;
while i<=100 do begin
AdoQuery1.Edit;
AdoQuery1.FieldValues['a']:=AdoQuery1.FieldValues['a']+1;
AdoQuery1.Post;
i:=i+1;
end;
Memo1.Lines.Append(inttostr(lParam)+':over'); end;end;procedure TForm1.Button1Click(Sender: TObject);
var tmp:DWORD;
begin
CloseHandle(CreateThread(nil,0,@ThreadFun,Pointer(1),0,tmp));
CloseHandle(CreateThread(nil,0,@ThreadFun,Pointer(2),0,tmp));
end;无论怎么改都会出错!分别用两个AdoQuery控件问题仍旧!分别用两个进程同时操作问题仍旧.
别告诉我用线程同步技术哈.如果两台机子同时操作一个数据库怎么解决?
var i:integer;
begin
with Form1 do begin i:=1;
while i<=100 do begin
AdoQuery1.Edit;
AdoQuery1.FieldValues['a']:=AdoQuery1.FieldValues['a']+1;
AdoQuery1.Post;
i:=i+1;
end;
Memo1.Lines.Append(inttostr(lParam)+':over'); end;end;procedure TForm1.Button1Click(Sender: TObject);
var tmp:DWORD;
begin
CloseHandle(CreateThread(nil,0,@ThreadFun,Pointer(1),0,tmp));
CloseHandle(CreateThread(nil,0,@ThreadFun,Pointer(2),0,tmp));
end;无论怎么改都会出错!分别用两个AdoQuery控件问题仍旧!分别用两个进程同时操作问题仍旧.
别告诉我用线程同步技术哈.如果两台机子同时操作一个数据库怎么解决?
解决方案 »
- 菜单按钮实现····
- Tchartseries与Tlineseries有什么区别和联系呢?
- paradox的blob数据列不可见的问题
- 如何获得局域网的计算机在公网上的IP
- 熟悉DELPHI調用存儲過程的朋友,請幫忙糾正我這條語句????
- 求问dbgrid的点击记录行,返回记录的序列???~!
- 请问delphi中有没延时的函数?就是能延时一段时间再触发某一事件。谢
- 程序目录下有ws2help.dll文件夹后,程序不能运行
- 在*.txt中搜索和修改问题
- 这个控件的思路是什么?
- 我现在用Delphi写了一个服务程序,我想加上描述信息,如何来加上描述信息,请高手指点!!
- 请问Fastreport是如何实现主从关系打印的,急!!!!
为什么要这样写.