2Pascal-新时代的Pascal

 找回密码
 立即注册
搜索
热搜: fastreport
查看: 10708|回复: 33

Delphi fireDac 连接 oracle mysql 绿色版 DEMO V2016-10-20

[复制链接]

90

主题

293

帖子

8万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
82425
发表于 2015-8-28 11:39:31 | 显示全部楼层 |阅读模式
京东购书支持本站
关于:Oracle

放 1 个
FDPhysOracleDriverLinkMain: TFDPhysOracleDriverLink;
1 个
FDConnectionServer: TFDConnection;

FDPhysOracleDriverLinkMain DriverID 设置为 MyOra 或者别的名字。


    FDPhysOracleDriverLinkMain.Release;
    //保证从 EXE 目录获取 DLL。
    FDPhysOracleDriverLinkMain.VendorHome := ExcludeTrailingPathDelimiter(TPath.GetLibraryPath);
    //保证本信息不空。
    FDPhysOracleDriverLinkMain.NLSLang := 'SIMPLIFIED CHINESE_CHINA.ZHS16GBK';
    FDConnectionServer.Params.Clear;
    FDConnectionServer.Params.Values['DriverID'] := 'MyOra';
    //下面的连接字符串,比较完整。不容易发生错误。
    FDConnectionServer.Params.Values['Database'] := '(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)' +
      '(HOST = ' + Trim(LabeledEditOracleServer.Text) + ')(PORT = ' + Port + ')) ) ' +
      ' (CONNECT_DATA = (SERVICE_NAME = ' + Trim(LabeledEditOracleDBNAME.Text) +')))';
    FDConnectionServer.Params.Values['User_Name'] := Trim(LabeledEditOracleUser.Text);
    FDConnectionServer.Params.Values['Password'] := Trim(LabeledEditOraclePWD.Text);
    FDConnectionServer.Params.Values['AuthMode'] := 'Normal';
    FDConnectionServer.Params.Values['CharacterSet'] := 'UTF8';
    FDConnectionServer.Open;

以上就是打开代码。

你的 exe 目录放
oci.dll
oraocci11.dll
oraociei11.dll
orasql11.dll

注意 32 位的 EXE 放 32 位的 DLL。64 位的 EXE 放 64位的 DLL。

DLL 从 oracle 官网下 instantclient-basic ( 没有lite)开头的压缩包就行。里头有。注意 32 64 的区别。
http://www.oracle.com/technetwor ... t/index-097480.html
Instant Client Downloads for Microsoft Windows (32-bit)
Instant Client Downloads for Microsoft Windows (x64)

经过测试 12.x 版本的可以使用如下几个 DLL(winxp 不支持 12i)。
oci.dll
oraons.dll
oraocci12.dll
oraociei12.dll
orasql12.dll

下面是目前的 oracle 绿色版下载地址。
链接:
http://pan.baidu.com/s/1eSjywKE
密码:
游客,如果您要查看本帖隐藏内容请回复


关于:MySql

放 1 个
FDPhysMySQLDriverLinkMain: TFDPhysMySQLDriverLink;
1 个
AConnection: TFDConnection;

FDPhysMySQLDriverLinkMain DriverID 设置为 MySQLMain 或者别的名字。


      FDPhysMySQLDriverLinkMain.Release;
      //保证从 EXE 目录获取 DLL。
      FDPhysMySQLDriverLinkMain.VendorLib :=
        IncludeTrailingPathDelimiter(TPath.GetLibraryPath) + 'libmysql.dll';
      AConnection.Params.Clear;
    //User_Name=root
    //Password=你的密码
    //Port=3306
    //Server=  //本机空就可以,不要写<LOCAL>
      AConnection.Params.Values['Port'] := '3306';
      AConnection.Params.Values['Server'] := '';
      AConnection.Params.Values['DriverID'] := 'MySQLMain';
      AConnection.Params.Values['Database'] := Trim(LabeledEditOracleDBNAME.Text);
      AConnection.Params.Values['User_Name'] := Trim(LabeledEditOracleUser.Text);
      AConnection.Params.Values['Password'] := Trim(LabeledEditOraclePWD.Text);
      AConnection.Params.Values['CharacterSet'] := 'utf8';

以上就是打开代码。

你的 exe 目录放
libmysql.dll

注意 32 位的 EXE 放 32 位的 DLL。64 位的 EXE 放 64位的 DLL。

DLL 从 mysql 官网下,下载的压缩包中 lib 目录下就有。

libmysqld.dll 是 Embedded (嵌入式)版本。

下面是目前的 mysql 绿色版下载地址。链接:
http://pan.baidu.com/s/1slnfGAD
密码:
游客,如果您要查看本帖隐藏内容请回复



sqlite、Access 打开数据库支持多国语言
      AConnection.Params.Values['StringFormat'] := 'Unicode';
默认是 Choose,等于是删除该选项。
     AConnection.Params.Delete(AConnection.Params.IndexOfName('StringFormat'));
(C)(P)Flying Wang
回复

使用道具 举报

0

主题

8

帖子

103

积分

注册会员

Rank: 2

积分
103
发表于 2016-10-20 10:08:25 | 显示全部楼层
京东数码购物支持本站
试一下看看
回复 支持 反对

使用道具 举报

0

主题

13

帖子

66

积分

注册会员

Rank: 2

积分
66
发表于 2016-12-15 16:46:59 | 显示全部楼层
京东购书支持本站
看看怎么弄的
回复 支持 反对

使用道具 举报

0

主题

12

帖子

28

积分

新手上路

Rank: 1

积分
28
发表于 2016-12-23 17:22:44 | 显示全部楼层
京东数码购物支持本站
看看怎么弄的
回复 支持 反对

使用道具 举报

0

主题

28

帖子

168

积分

注册会员

Rank: 2

积分
168
发表于 2016-12-26 12:26:32 | 显示全部楼层
京东数码购物支持本站
学习一下。学习一下。
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2017-4-26 09:10:16 | 显示全部楼层
京东数码购物支持本站
感谢楼主的精华帖
回复 支持 反对

使用道具 举报

0

主题

1

帖子

4

积分

新手上路

Rank: 1

积分
4
发表于 2017-4-26 09:19:36 | 显示全部楼层
京东数码购物支持本站
技术好贴,学习!
回复 支持 反对

使用道具 举报

0

主题

24

帖子

121

积分

注册会员

Rank: 2

积分
121
发表于 2017-5-12 23:24:34 | 显示全部楼层
京东数码购物支持本站
谢谢!大侠有心了。共享精神更令人佩服。
回复 支持 反对

使用道具 举报

0

主题

11

帖子

30

积分

新手上路

Rank: 1

积分
30
发表于 2017-7-9 19:11:21 | 显示全部楼层
京东数码购物支持本站
gooooooood !
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|新时代Pascal论坛

GMT+8, 2021-1-23 10:34 , Processed in 0.132840 second(s), 28 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表