dbexpress在程序设计中自动连接数据库

最新推荐文章于 2025-10-29 14:04:49 发布

原创最新推荐文章于 2025-10-29 14:04:49 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#database #function #string #数据库 #user

本文提供了一个使用Delphi连接MS SQL Server的示例代码。该代码详细展示了如何配置SQLConnection组件，包括设置数据库驱动、主机名、数据库名、用户名及密码等参数，并尝试打开连接，如果出现异常则返回失败。

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;