客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
在开发Datasnap三层中，使用FireDac 连接 MSSQL数据库。 实现过程如下： 1、在ServerMethods 单元中放入 FDManager、FDPhysMSSQLDriverLink1、FDGUIxWaitCursor1等控件。 2、自定义过程： private var oParams: TStrings;
procedure TSrvMethods.SetupFDManager; //加载数据库链接信息。
begin
//*****初始化*****
oParams := TStringList.Create;
//********* 连接池
oParams.Add('DriverID=MSSQL');
//oParams.Add('CharacterSet=utf8');
oParams.Add('Server=192.168.1.199');
//oParams.Add('Port=3306');
oParams.Add('Database=DSCSYS');
oParams.Add('User_Name=sa');
oParams.Add('Password=');
// 毫秒
oParams.Add('POOL_CleanupTimeout=36000');
// 毫秒
oParams.Add('POOL_ExpireTimeout=600000');
//最多连接数
oParams.Add('POOL_MaximumItems=60');
oParams.Add('Pooled=True');
//*******
FDManager.Close;
FDManager.AddConnectionDef('MSSQL_DSCSYS', 'MSSQL', oParams);
try
FDManager.Active := True;
except
on E: Exception do
begin
frmMain.Log.Error(e.Message, 'Error');
end;
end;
end;
3、在 Create 事件中： procedure TSrvMethods.DSServerModuleCreate(Sender: TObject); begin SetupFDManager; // 加载数据库链接 end; 4、在查询使用中，动态生成FDConnection，设置Connected为true 就是 从连接池中取一个连接；具体代码如下 function TSrvMethods.QueryData(SQLStr: string): string; var fdqry1: TFDQuery; mConn: TFDConnection; begin try //***动态创建，用完释放; mConn := TFDConnection.Create(nil); mConn.ConnectionDefName := 'MSSQL_Conn'; mConn.Connected := true; fdqry1 := TFDQuery.Create(nil); try fdqry1.Close; fdqry1.Connection := mConn; fdqry1.SQL.Clear; fdqry1.SQL.Add(SQLStr); fdqry1.Open(); result := '{result:"OK",DataSet:}'; frmMain.Log.Debug('ok', 'debug'); finally fdqry1.Free; mConn.Free; end; except on E: Exception do begin result := '{Result:"失败 Error:' + e.message + '"}'; frmMain.Log.Debug('NOok', 'debug'); end; end; end; 5、在关闭时候，释放创建的对象 procedure TSrvMethods.DSServerModuleDestroy(Sender: TObject); begin oParams.Free; end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论