dbexpress在程序設(shè)計(jì)中自動連接數(shù)據(jù)庫

時(shí)間：2018-12-06 10:04:01

關(guān)鍵字： database function

手機(jī)看文章

掃描二維碼
隨時(shí)隨地手機(jī)看文章

[導(dǎo)讀]function MSQLcon(var SQLConnection1: TSQLConnection; HS,SA,PW,DB:string):boolean;begin? try??? SQLCo

function MSQLcon(var SQLConnection1: TSQLConnection; HS,SA,PW,DB:string):boolean;
begin
? try
??? SQLConnection1.Close;
??? SQLConnection1.Params.Clear ;
??? SQLConnection1.DriverName := 'MSSQL ';
??? SQLConnection1.GetDriverFunc := 'getSQLDriverMSSQL ';
??? SQLConnection1.LibraryName := 'dbxmss30.dll ';
??? SQLConnection1.VendorLib := 'oledb';
??? SQLConnection1.Params.Add('DriverName=MSSQL');
??? SQLConnection1.Params.Add('HostName='+HS);
??? SQLConnection1.Params.Add('DataBase='+DB);
??? SQLConnection1.Params.Add('User_Name='+SA);
??? SQLConnection1.Params.Add('Password='+PW);
??? SQLConnection1.Params.Add('Blob=0');
??? sqlconnection1.open;
? except
?? Result:=False;
?? Exit;
? end;
?? Result:=True;
end;