使用unidac 在linux 上无驱动直接访问MS SQLSERVER

Posted 2020-09-09 Delphi 窑洞

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了使用unidac 在linux 上无驱动直接访问MS SQLSERVER相关的知识，希望对你有一定的参考价值。

随着delphi 10.2 开始了对Linux 的重新支持。devart 也迅速的发布了unidac 7.0，

最大的特性就是支持linux和MongoDB.

并有了其他更新：

In this release we added such significant features as:

The new UniDAC version includes a new MongoDB provider which allows you to work with a cross-platform document-oriented database MongoDB. Its main features are high performance, easy deployment and comprehensive support for the latest versions of the MongoDB server.
In DBF provider, we added support for the Direct mode. Using DBF data provider, you can work with a variety of database formats: dBaseIII-dBase10, dBase for Windows, HiPer-Six, FoxPro 2, Visual FoxPro.
Now, working with Oracle in the Direct mode becomes more appealing, we supported Oracle 12c authentication, Oracle Cloud (DbaaS), Oracle Encryption, Oracle Data Integrity. We also added support for the ANYDATA type.
What is more, for Interbase and Firebird, you have an opportunity to manage batch operations using a transaction and to obtain an active transaction number using DBMonitor.
In NexusDB data provider, we added support for using ConnectionString and the TFmtBCD fields.

更多的情况可以访问官网www.devart.com .此公司在数据库存取方面的功力，已经逆天。

今天给大家说的是利用undiac 的直连数据库功能，在Linux下不安装任何驱动，访问MS SQLSERVER 功能。

如果你没有现成的sql server 数据库,可以直接在微软的网页上下载sql server 2016 express 版，此版本为免费版本。

安装后，启动TCP/IP 支持，同时注意windows 防火墙的设置，确保网络访问正常。

在windows 上，使用客户端程序，建立一个sql server 数据库，同时建一个测试表。

输入一些测试数据

OK, 准备结束。启动delphi。

新建一个控制台工程。

再建一个datamodule

放上对应的控件

注意uniconnection 的属性设置

ok, 设置完毕

回到主程序。

program linuxdata;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Classes,
  dmp in \'dmp.pas\' {dmf: TDataModule};

var
  i:integer;
  s:string;
begin

  try
   dmf:=Tdmf.Create(nil);
   dmf.UniConnection1.Connected:=true;
   writeln(\'数据库版本:\'+dmf.UniConnection1.ServerVersionFull);
   with dmf.cx do
    begin
    SQL.Clear;
    sql.Add(\'select *  from TB_user\');
    open;
    for I := 0 to fields.Count-1 do
          begin
            write(\'|\');
            write( fields[i].FieldName);
            end;
     writeln(\'|\');
    while not eof do
      begin
        for I := 0 to fields.Count-1 do
          begin
              write(\'|\');
             write( fields[i].AsString) ;
             end;
        writeln(\'|\');
        next;
      end;
    end;
  writeln(\'打完收功!\');
  readln;

  except
    on E: Exception do
      Writeln(E.ClassName, \': \', E.Message);
  end;
end.