TSqlConnection
1.连接SQL SERVER数据库
procedure TForm1.Button1Click(Sender: TObject);
var
p: TSQLConnection;
begin
try
p := TSQLConnection.Create(nil);
try
p.ConnectionName := 'MSSQLConnection';
p.DriverName := 'MSSQL';
p.GetDriverFunc := 'getSQLDriverMSSQL';
p.KeepConnection := true;
p.LoginPrompt := False;
p.LibraryName := 'dbxmss.dll';
p.VendorLib := 'sqlncli10.dll';
p.Params.Values['Database'] := 'NewVisionTest';
p.Params.Values['HostName'] := '192.168.1.250';
p.Params.Values['User_Name'] := 'sa';
p.Params.Values['Password'] := 'sa';
p.Params.Add('GetDriverFunc=getSQLDriverMSSQL');
p.Params.Add('LibraryName=dbxmss.dll');
p.Params.Add('VendorLib=sqlncli10.dll');
p.Params.Add('VendorLibWin64=sqlncli10.dll');
p.Params.Add('MaxBlobSize=-1');
p.Params.Add('OSAuthentication=False');
p.Params.Add('PrepareSQL=True');
p.Params.Add('SchemaOverride=sa.dbo');
p.Params.Add('DriverName=MSSQL');
p.Params.Add('BlobSize=-1');
p.Params.Add('IsolationLevel=ReadCommitted');
p.Params.Add('OS Authentication=False');
p.Params.Add('Prepare SQL=False');
p.Params.Add('ConnectTimeout=60');
p.Params.Add('Mars_Connection=False');
p.Connected:=True;
except
on E: Exception do
raise Exception.Create('数据库连接不上');
end;
except
on E: Exception do
begin
Exit;
end;
end;
end;
2.连接中间层服务器
function TConnThread.ConnRemoteSvr(cn: TSQLConnection; const hostname, UserName,
password: string; const port: Integer): Boolean;
begin
try
cn.Close;
cn.DriverName := 'DataSnap';
cn.LoginPrompt :=False;
Cn.ConnectionName := 'DataSnapCONNECTION';
cn.Params.Clear;
cn.Params.Add('DriverName=DataSnap');
Cn.Params.Add('HostName='+HostName);
Cn.Params.Add('Port='+inttostr(port));
Cn.Params.Add('User_Name='+UserName);
Cn.Params.Add('Password='+PassWord);
cn.Open;
Result :=True;
except
Result :=False;
end;
end;
TSqlConnection相关推荐
- tsqlconnection连接datasnap出现connection closed gracefully错误的解决办法
1.在服务器上的两个主连接控件中的 filter中去除RSA选项,依次设置zlibcompress和pc1 key=test 2.在客户机的sqlconnection的flter中,依次设置pc1 k ...
- 客户端如何连接 DataSnap Server 调用服务的方法
一般http访问的地址是 http://localhost:8099/datasnap/rest/TServerMethods1/EchoString/abc 一.用FDConnection1连接Da ...
- 咏南LINUX中间件
咏南LINUX中间件 什么是跨平台? DELPHI跨平台已经不是停留在理论,而是可以实用了. 同一套中间件既能在WINDOWS服务器上面部署,又可以在LINUX服务器上面部署. 而做到这一切,只需要一 ...
- Delphi XE5 for Android (十)
我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完成服务器的设计: (1)利用向导完成DataSnap服务器的框架,如下图: 由于是实验, ...
- DELPHI第三方控件及组件大全(安装方法与使用)
一,DELPHI第三方控件安装方法介绍 1.对于单个控件,Componet–>install component..–>PAS或DCU文件–>install; 2.对于带*.dpk文 ...
- IOS操作数据库总结
iOS学习笔记-数据库操作(使用FMDB) iOS中原生的SQLite API在使用时,非常不便.于是,就出现了一系列将SQLite API进行封装的库,例如FMDB. PlausibleDataba ...
- Delphi2010 DataSnap 学习(一)
DataSnap到了Delphi2010有了很大的变化,已经可以完全抛弃DCOM之类的东西了,在以前版本中建立一个DataSnap,需要使用DCOMConnection或者SockConnection ...
- FB/IB多代事务结构详解--对FB事务最好的讲解
近来,接到很多人询问InterBase的事务处理问题.我在以前文章的基础上重新加以整理,写了这个说明InterBase事物处理的短文,希望对大家有所帮助.此外,我希望唐版主能把这个短文做成一个单独文件 ...
- 充分发挥bpl包的作用
充分发挥包的作用 本章要点: n 为何要用包 n 为何不用包 n 包的类型 n 包文件 n 使用运行期包 n 把包安装到Delph ...
最新文章
- iso镜像文件烧写到U盘
- Day02,Python条件判断及循环
- 程序员成功之路 ——The road ahead for programmer(转引)
- 【c++】5.函数传指针与传值特容易混淆的点
- OpenGL envmapsphere球形环境图的实例
- Java黑皮书课后题第8章:**8.12(金融应用:计算税款)使用数组重写程序清单3-5,每个纳税人身份都有6种税率。每种税率都应用在某个特定范围内的可征税收入
- git拉取分支报错:fatal:‘XXX' is not a commit and a branch ‘XXX' cannot be created from
- P4503-[CTSC2014]企鹅QQ【字符串hash】
- 使用.net Stopwatch class 来分析你的代码
- 什么是H标签?H1,H2,H3标签?以及和strong标签使用的方法及重要性
- python join函数_Python join()函数
- Mac上时钟也能自定义的方法你知道吗
- rabbitMQ linux 安装步骤
- Brocade 光纤交换机保存配置
- NanDigits GOF ECO 9介绍
- 迈克尔 杰克逊的50年与50图
- 【1.7k行代码优秀课设】基于stm32f4xx粤嵌GEC-M4的按键密码锁、呼吸灯、蜂鸣器音乐、超声波测距及倒车雷达、温湿度检测、光敏电阻自动灯光调节、USART串口控制系统
- 45个小众而实用的NLP开源字典和工具
- ⌨RK61键盘使用方法
- 谷歌获批GAN专利,一整套对抗训练网络被收入囊中
热门文章
- vue使用slot分发内容与react使用prop分发内容
- 快速搭建centos7
- android 两列菜单,【Android】实战开发之ListView同一个item显示2列的实现方法(仿2列商品列表)...
- oracle暂停索引,Oracle索引被抑制情况
- python 进位_蓝桥杯-Python-高精度加法
- 20200908:链表类题目集合上
- js导出变量 vue_vue.js前端实现excel表格导出和获取headers里的信息
- swift语言 数组定义_如何在Swift中声明弱引用数组?
- jq获得当前元素id
- [原创]FOCUS处理系统流程之:流程批量生成(个人专用懒人版)