mORMot使用基础　2　数据库连接

Q

Q744840146

Registered
Registered
注册
2015-05-24
消息
14
程序中要使用数据库，首先是引用SynCommons, SynDB单元，根据不同的数据库类型，简单举几个例子：

1 使用Access数据库,引用SynCommons, SynDB,SynOleDb三个单元,如果密码为空，设置后面三个参数直接为空就可以了.
mORMot数据库处理方式
代码: 
var
  gProps: TSQLDBConnectionProperties;
  rows: ISQLDBRows;
begin
  gProps := TOleDBJetConnectionProperties.Create('test.mdb', '数据库名', '用户名称', '用户密码');
  rows := gProps.ExecuteInlined('select * from dm_sys', True);
  if rows<>nil then 
    while rows.Step() do
      showmessage(rows.ColumnString('value'));
end;
普通记录集处理方式，增加单元引用　SynDBMidasVCL
代码: 
var
  gProps: TSQLDBConnectionProperties;
  ds: TSynDBDataSet;
begin
  gProps := TOleDBJetConnectionProperties.Create('test.mdb', '数据库名', '用户名称', '用户密码');
  ds := TSynDBDataSet.Create(nil);
  try
    ds.Connection := gProps;

    ds.CommandText := 'select * from dm_sys';
    ds.Open;
    ds.First;
    while not ds.Eof do
      ShowMessage(ds.FieldByName('value').AsString);
    ds.Close;
  finally
    FreeAndNil(ds);
  end;
end;
以后连接不同类型数据库，仅列出引用单元和初始化代码，具体使用基本同上面的代码。

2　使用Sqlite3数据库，引用SynCommons, SynDB,SynDBSQLite3, SynSQLite3, SynSQLite3Static
连接为
代码: 
gProps := TSQLDBSQLite3ConnectionProperties.Create('test.db3', '', '', '用户密码');
//Sqlite3的密码只设置最后一个参数

3　使用ZEOS可以连接不同数据库，引用SynCommons, SynDB,SynDBZeos
　 连接FireBird:
代码: 
 gProps := TSQLDBZEOSConnectionProperties.Create('zdbc:firebird-2.0://127.0.0.1:3050/model?username=sysdba;'+
'password=masterkey;LibLocation=fbclient.dll', '', '', '');
连接MySql:
代码: 
gProps := TSQLDBZEOSConnectionProperties.Create('zdbc:mysql://127.0.0.1:3306/model?username=sysdba;'+
'password=masterkey;LibLocation=libmysql.dll', '', '', '');
连接MySqlEm:
代码: 
gProps := TSQLDBZEOSConnectionProperties.Create('zdbc:mysqld-5:///ahoa?compress=yes;dbless=no;useresult=no;timeout=30;'+
'ServerArgument1=--basedir=./;'+
'ServerArgument2=--datadir=./data;'+
'ServerArgument3=--character-sets-dir=./share/charsets;'+
'ServerArgument4=--language=./share/english;'+
'ServerArgument5=--key_buffer_size=64M;'+
'codepage=utf8;AutoEncodeStrings=ON;controls_cp=CP_UTF16;LibLocation=.\lib\libmysqld.dll', '', '', '');
//MySql增强模式可以在程序启动时启动MySql数据库，无单独的MySql进程。
连接Oracle:
代码: 
gProps := TSQLDBZEOSConnectionProperties.Create('zdbc:Oracle:///orcl?username=sysdba;password=masterkey;'+
'LibLocation=oci64\oci.dll', '', '', '');
 
使用ISQLDBRows是速度最快的读取SQL 数据库的方法，如果我们写Web后台程序，这是一个极好的方法。
连接MS SQL Server数据库：
代码: 
type
  TForm1 = class(TForm)
    mmoLog: TMemo;
    btnOpen: TButton;
    procedure btnOpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses SynDB, SynOleDB, SynCommons;

{$R *.dfm}

procedure TForm1.btnOpenClick(Sender: TObject);
var
  dbConn: TOleDBConnectionProperties;
  rows: ISQLDBRows;
  cServer,cDatabase,cUserId,cUserPwd:RawUTF8;
begin
  cServer:='127.0.0.1';
  cDatabase:='SM1';
  cUserId:='sa';
  cUserPwd:='sa';
  dbConn := TOleDBMSSQLConnectionProperties.Create(cServer,cDatabase,cUserId,cUserPwd);
  //Change TOleDBMSSQLConnectionProperties.SetInternalProperties set fProviderName:='SQLOLEDB' if you don't have SQLNCLI10 installed;
  //dbConn.ConnectionStringDialogExecute;
  //dbConn.ConnectionString:='Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=SM1;User Id=xx;Password=xxxx;';
  mmoLog.Lines.Add(dbConn.ConnectionString);
  rows := dbConn.ExecuteInlined(ToUTF8('select * from 部组信息'), True);
  if rows<>nil then
    while rows.Step() do
      mmoLog.Lines.add(rows.ColumnString(ToUTF8('名称')));
  dbConn.Free;
end;

end.
需要说明的是1.18将TOleDBMSSQLConnectionProperties的ProviderName由SQLOLEDB改成SQLNCLI10，要正常运行，需要安装MSSQL Native Client 10的驱动，在本站的ftp服务器【/会员FTP/数据库工具】可以下载，如果想让你的程序在任何机器上将能跑，打开SynOleDB.pas将TOleDBMSSQLConnectionProperties.SetInternalProperties代码片段改为fProviderName:='SQLOLEDB'即可。SQLNCLI10与SQLOLEDB都支持SQL Server 2000.
SQLOLEDB任何Windows都带，SQLNCLI10以及更高版本的SQLNCLI11需要安装驱动，驱动又分32位与64位。
上述代码的toUTF函数是为在Delphi7下编译准备的，如果是2009以上版本可以让编译器自动转换。
如果要做Json序列化为utf8，可使用ColumnUTF8。
 
简单的一个例子，例子中包括两种连接数据库的方式，一种是本地，一种是远程，在选择连接方式后点击连接，就可以进行数据操作了

远程方式是通过8192端口进行连接的，可以通过端口检测工具看到8192端口的使用情况QQ图片20160622094316.png
 

附件

请教一下如何使用
TSQLDBZEOSConnectionProperties
连接
MSSQL 2014的数据库？
ZeOSDBO 连接上述数据库，用FreeTDS_MsSQL>=2005，连接出现character sets错误，连接失败，也一并请教，谢谢！
附件是ZeOSDBO7.2.1
 

附件

zeos7.1和7.2版差别比较大，建议使用7.1.4版

没用过sqlserver 2005以上版本　:(
 
问题解决了。
upload_2016-6-23_9-11-40.png

详细过程（WIN10X64环境，测试X32&X64APP）
将附件里的freetds-0.95.87\32 bits + iconv\sybdb.dll复制到C:\Windows\SysWOW64->适用X32APP；
将附件里的freetds-0.95.87\64 bits\sybdb.dll复制到C:\Windows\System32->适用X64APP。
留意最主要的设置：
Delphi: 
object ZConnection1: TZConnection
    ControlsCodePage = cCP_UTF16
    ClientCodepage = 'UTF8'
    Catalog = ''
    Properties.Strings = (
      'codepage=UTF8'
      'AutoEncodeStrings=ON'
      'controls_cp=CP_UTF16')
    Connected = True
    HostName = '127.0.0.1'
    Port = 0
    Database = 'ABC'
    User = 'sa'
    Password = '******'
    Protocol = 'FreeTDS_MsSQL>=2005'
    Left = 56
    Top = 72
  end
 
最后编辑:
用TSQLDBOracleConnectionProperties 怎么连接oracle数据库，客户端会否要安装oracle客户端？
哪位大侠给个示例。谢谢！！
 
您必须登录或注册才可回复。

Similar threads

X
使用unidac 连接FB 3.0 （含嵌入版） - xalion
回复
0
查看
723
xalion
X
S
[付费]数据集内容输出 JSON 格式数据
回复
0
查看
752
swish
S
X
在datasnap 中使用unidac 访问数据（客户端） - xalion
回复
0
查看
770
xalion
X
X
使用kbmmw 生成客户端delphi函数原型 - xalion
回复
0
查看
700
xalion
X
X
在datasnap 中使用unidac 访问数据（服务器端） - xalion
回复
0
查看
943
xalion
X
后退
顶部