mORMot 數據庫操做

mORMot　數據庫操做

1 使用Access數據庫,
    引用SynCommons, SynDB,SynOleDb三個單元. 
     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 　 

    1）鏈接FireBird:
        gProps := TSQLDBZEOSConnectionProperties.Create(
             'zdbc:firebird-2.0://127.0.0.1:3050/model?username=sysdba;'+ 
             'password=masterkey;LibLocation=fbclient.dll', '', '', ''); 

    2）鏈接MySql: 
         gProps := TSQLDBZEOSConnectionProperties.Create(
             'zdbc:mysql://127.0.0.1:3306/model?username=sysdba;'+ 
             'password=masterkey;LibLocation=libmysql.dll', '', '', ''); 

    3) 鏈接MySql Em: 
         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進程。

    4) 鏈接Oracle: 
         gProps := TSQLDBZEOSConnectionProperties.Create(
             'zdbc:Oracle:///orcl?username=sysdba;password=masterkey;'+ 
             'LibLocation=oci64\oci.dll', '', '', ''); 

    使用ISQLDBRows是速度最快的讀取SQL 數據庫的方法，若是咱們寫Web後臺程序，這是一個極好的方法。 

4 鏈接MS SQL Server數據庫： 

    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;



須要說明的是1.18 將 
  TOleDBMSSQLConnectionProperties 的 
      ProviderName 由SQLOLEDB 改爲 
      SQLNCLI10，
   要正常運行，須要安裝MSSQL Native Client 10的驅動，
   若是想讓你的程序在任何機器上將能跑，
  
   打開SynOleDB.pas將
     TOleDBMSSQLConnectionProperties.SetInternalProperties 
       代碼片斷改成
     fProviderName:='SQLOLEDB'便可。

     SQLNCLI10與SQLOLEDB都支持SQL Server 2000.

     SQLOLEDB任何Windows都帶，
     SQLNCLI10以及更高版本的SQLNCLI11須要安裝驅動，驅動又分32位與64位。

     上述代碼的toUTF函數是爲在Delphi7下編譯準備的，若是是2009以上版本能夠讓編譯器自動轉換。

     若是要作Json序列化爲utf8，可以使用ColumnUTF8。