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

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.

在windows 上运行无误。

 

添加linux 平台编译支持

编译，运行程序

 

 

 结果出来了。与windows 下没任何区别。

记住：我们没有在linux 下安装任何sql server 驱动。

用delphi 就这么自信！

另外，以上人名，纯属虚构，如有雷同，爱理不理。

 

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

标签：using   classname   访问   oppo   -o   分享   ora   技术   lease