delphi xe10.2 FIREDAC 三种连接

以下都是在DELPHI XE10.2中测试通过

FireDAC supports three distinct options for connecting to your database. These are:

Temporary connections （临时）

Persistent connections （持久）

Private connections （专用）

一、Temporary connections （临时）

1）通过控件FDConnection直接创建

通过从FIREDAC标签处拖入FDConnection到窗口中，效果如下图

————————————————

双击FDConnection1，出下图

上图中需注意必选 DRIVE ID ,DATABASE,PASEWORD,USER_NAME,SERVER

如是本机，SERVER处可填127.0.0.1；

按OK，即可。

2）、Defining a Temporary Connection Using FDConnection.Params（通过FDConnection.Params创建临时连接）

上例中添加TFDPhysMSSQLDriverLink中窗口中

在窗口CREATE中添加如下代码

procedure TForm1.FormCreate(Sender: TObject);

begin

{需添加TFDPhysMSSQLDriverLink到窗口中}

FDConnection1.Params.Add('Database=salesdb');

FDConnection1.Params.Add('password=123');

FDConnection1.Params.Add('User_Name=sa');

FDConnection1.Params.Add('Server=win7server');

FDConnection1.Params.Add('DriverID=mssql');

FDConnection1.Connected:=true;

FDQuery1.Open;

end;

或者采取如下代码

procedure TForm1.FormCreate(Sender: TObject);

begin

FDConnection1.ConnectionString := 'Database=' +

'salesdb;' +

'User_Name=sa;password=123;Server=win7server;DriverID=MSSQL';

FDConnection1.Connected:=true;

FDQuery1.Open;

end;

————————————————

3）、Creating a Named Connection Definition Using the FireDAC Explorer（通过tools/FireDAC Explorer 创建连接）

在CONNECTION Definition右击选择connection Definition

————————————————

支持对连接重命名（右击目标连接，选择重命名）

最后要注意，右击目标连接 APPLY 一次，保存之后，重启 DELPHI XE 10 ,在右侧

把连接名ConnectionDef1拖入空口即可，ConnectionDef1下的所有项目都支持拖动到窗口哟，然后Connected:=true 就好了。

二、Persistent connections （持久）

A persistent connection employs a named connection whose definition exists in an external ini file. This named connection may be created at either design time or at runtime.

可通过注册表或INI文件来创建；

(一)、用记事本创建一个新的文件，输入以下内容：

[conn.ini]

Encoding=UTF8

REM Connections not related to this discussion appear here

[MSsql]

DriverID=MSSQL

Protocol=TCPIP

Database=salesdb

User_Name=sa

Password=123

Server=win7server

CharacterSet=

ExtendedMetadata=Tru

然后别存为

————————————————

把此CONN.INI文件复制到你的应用文件夹下

之后在窗口CREATE中输入以下代码

procedure TForm1.FormCreate(Sender: TObject);

begin

FDManager.ConnectionDefFileName :=

ExtractFilePath(ParamStr(0)) + 'conn.ini';

FDConnection1.ConnectionName := 'MSsql'; //跟CONN.INI中的第二个括号中的MSsqL一致

FDConnection1.Open;

FDQuery1.Active:=true;

end;

效果跟前面的一致。（可以共享给其它程序用哟）

三、 Private connections （专用）

直接上代码

procedure TForm1.FormCreate(Sender: TObject);

var

Params: TStrings;

begin

Params := TStringList.Create;

try

Params.Add('Database=salesdb' );

Params.Add('User_Name=sa');

Params.Add('password=123');

Params.Add('Server=win7server');

Params.Add('Pooled=True');

Params.Add('DriverID=mssql');

FDManager.AddConnectionDef('mssql_test', 'mssql', Params);

{ mssql_test随便取名，MSSQL是MSSQL SERVER的驱动名称，我用的是 MSSQL SERVER ,所以用MSSQL;

如果你用的是INTEBASE的数据库，其结构类似如下:}

{Params.Add('Database=' +

'C:\Users\Public\Documents\Embarcadero\' +

'Studio\19.0\Samples\Data\EMPLOYEE.GDB');

Params.Add('User_Name=sysdba');

Params.Add('Server=127.0.0.1');

Params.Add('Pooled=True');

Params.Add('DriverID=IB');

FDManager.AddConnectionDef('IB_EMPLOYEE', 'IB', Params);}

finally

Params.Free;

end;

FDConnection1.ConnectionDefName := 'mssql_test';

FDConnection1.Connected := True;

FDQuery1.Active:=true;

end;

————————————————

原文链接：https://blog.csdn.net/qq_25439957/article/details/85921956

推荐分享