使用ADO，多線程訪問ACCESS數據庫的開發

2020-03-24 18:18:59

字體：大中小

來源：轉載

供稿：網友

本人最近正在進行呼叫中心的座席端和服務器軟件開發，座席端登錄部分是進行提取主機信息，然后使用SOCKET提交給遠程服務器，服務器再在后臺數據庫中進行查找信息，進行對比，看是否允許座席端主機登錄，因為我的電腦中無法安裝SQLSERVER，所以，后臺數據庫暫時使用access小型數據庫進行代替，到后期可以改為SQLSERVER數據庫，，我在后臺數據庫中使用了兩個表，使用WORKMARK字段將其相關聯，如果在第一個表中查找到信息以后馬上會進入第二個表中進行查找，如果第一個表中的信息符合，就返回個客戶第二個表中的信息，因為座席端主機有200多臺，為了防止幾臺主機同時進行驗證信息，引起沖突，我在服務器端建立多線程，利用線程進行后臺的查詢，以及查找結果的回傳，編寫成功后進行測試，發現當一個主機連接后可以測試成功，但是，當第二個或者以后的線程產生時，數據集在第一個表中可以查到正確的信息，但是進入第二個表中時，會發現按照正確的查找條件進行查找時，查到的信息都為NIL，而且經過跟蹤，發現，其實ADO已經找到了正確的信息，而且已經發送成功了，但是卻無法接收到，當時我在論壇中發表了一個帖子尋求幫助，原貼內容：http://expert.csdn.net/Expert/topic/1420/1420051.xml?temp=.3060114有些朋友說可能ACCESS數據庫不提供多線程訪問，但是我聽說很多的論壇中好像都使用了ACCESS進行后臺線程的查找的。翻看MSDN中關于COM的說明：發現我的線程中竟然缺少最重要的兩個函數過程CoInitialize( nil )；凡是訪問com對象都應該使用。線程的關閉時應該使用CoUnInitialize;否則ADO肯定出錯，我相信肯定有不少的朋友經歷過這種問題的：我的線程代碼如下：unit Unitquerythread;interfaceuses
windows,SysUtils,Classes, Dialogs,ADODB,db, NMMSG, ActiveX{必須要有};type
QueryThread = html' target='_blank'>class(TThread)
private
FComputerInfor,FIPaddressinfo: string; //傳遞的信息
FAdoQuery,FAdoQUserInfor:TadoQuery; //動態生成的表一,表2

Fadoconnection:Tadoconnection; //動態生成的連接
Fnmmsg,FNMretureMSG:TNMMSG;//用來發送返回信息的組件
filestream:tfilestream;
procedure ExtractInfor(TransInfo:string{自定義的從該提交信息中分離信息的過程});
procedure ShellexeQuery;
Destructor Destroy; protected
procedure Execute; override;
public
constructor create(ComputerInfor:string;{傳輸來的計算機信息}IPaddressinfo:string{傳輸來的IP地址信息};nmmsg,NMretureMSG:TNMMSG);
end;
var
ExtractDomainUser:string; //提取出來的域用戶名
ExtractComputername:string;//提取出來的計算機名稱
ExtractDomainname:string;//提取出來的域名
strlist:Tstringlist;
IPlist:Tstringlist;//保存查找到的本工作組的ip地址信息
const defeat='defeat'; //驗證失敗，必須注銷客戶機，在數據庫中重新進行寫入
implementation
uses Unitsendthread;
constructor QueryThread.create(ComputerInfor, IPaddressinfo: string;nmmsg,NMretureMSG:TNMMSG);
begin
CoInitialize( nil );//使用com對象必須要初始化
inherited create(false);
FreeOnTerminate:=true;
FComputerInfor:=ComputerInfor;
FIPaddressinfo:=IPaddressinfo;
IPlist:=Tstringlist.create;//創造ip列表
FAdoQuery:=TAdoQuery.Create(nil); //動態生成表一
FAdoQUserInfor:=TadoQuery.Create(nil);//動態生成表2
Fadoconnection:=Tadoconnection.Create(nil);//動態生成的連接
Fadoconnection.LoginPrompt :=false;
Fadoconnection.KeepConnection :=true;
Fadoquery.Connection:=Fadoconnection;
FAdoQUserInfor.Connection :=Fadoconnection;
Fadoconnection.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PersonInformation.mdb;Mode=Read;Persist Security Info=False';
Fnmmsg:=nmmsg;
FNMretureMSG:=NMretureMSG;
strlist:=Tstringlist.Create;

end;destructor QueryThread.Destroy;
begin
FAdoQuery.FREE;
FAdoQUserInfor.FREE;
Fadoconnection.Free;
strlist.Free;
iplist.free;
CoUnInitialize;//必須使用
inherited destroy;
end;procedure QueryThread.Execute;
begintry
begin
extractinfor(FComputerInfor); //進行信息提取
Synchronize(ShellexeQuery);//
end;
exceptself.Terminate;end;end;procedure QueryThread.ExtractInfor(TransInfo: string);//改過程進行提取用#進行分割//的串里的各個字符串integer;
j:array [1..2]of integer;//用來保存分割符的位置
H,L,M,N:integer;//進行組合字符串時的循環參數begin

全局變量，首先清空
ExtractDomainUser:='';
ExtractDomainname:='';
ExtractComputername:='';
H:=1;//=================================
try
begin
for i := 1 to length(TransInfo) do if TransInfo[i]='#' then //找到了
begin
j[H]:=i;

inc(H);

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：Access用戶級安全攻略

下一篇：Excel-Access 97 網頁制作速成