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

wang_80919

关于：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'));

freecat

试一下看看

lvye168

看看怎么弄的

gzwplato

看看怎么弄的

yqtg

学习一下。学习一下。

iambanshouren

感谢楼主的精华帖

Onlyme

技术好贴，学习！

abc2000

ok!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

luscen

谢谢！大侠有心了。共享精神更令人佩服。

a1300

gooooooood !