unidac 在linux loongxarch64或arm64使用SQLite

Posted 2023-04-09 秋·风

unidac SQLite默认使用静态连接方式，但UNIDAC官方SQLite未提供arm64或loongxarch64静态库，造成linux for龙芯或arm64无法使用SQLite，经跟踪unidac源码发现将souce/uniProviders/SQLite/LiteDac.inc添加

$DEFINE NOSTATIC

然后安装liteprovider10.lpk就可以，SQLite的libsqlite3.so编译方法见：linux编译加密版sqlite - 秋·风 - 博客园 (cnblogs.com)

（unidac SQLite使用so或dll时加密不会用）。

//////////////////////////////////////////////////
//  SQLite Data Access Components
//  Copyright © 2008-2022 Devart. All right reserved.
//////////////////////////////////////////////////

$I Dac.inc
$DEFINE NOSTATIC

$DEFINE UNIDACPRO

$IFNDEF NOSTATIC
  $IFDEF STD
    $IFNDEF LITE
      $DEFINE NOSTATIC
    $ENDIF
  $ENDIF

  $IFDEF FPC
    $IFDEF LINUX
      $DEFINE LINUX_FPC
    $ELSE
      $IFDEF DARWIN
        $DEFINE DARWIN_FPC
      $ENDIF
    $ENDIF
  $ENDIF

  $IFNDEF NOSTATIC
    $IFDEF IOS
      $IFNDEF CPUARM
        $DEFINE NOSTATIC
      $ENDIF
    $ENDIF
  $ENDIF
$ENDIF

  UniConnection1.Connected:=false;
  UniConnection1.ConnectString:=\'Provider Name=SQLite;\'+
  \'Database=\'+ExtractFilePath(Application.ExeName)+\'demo.db3;\'+
  \'Client Library=\'+ExtractFilePath(Application.ExeName)+\'libsqlite3.so\';
  UniTable1.TableName:=\'hardware\';
  UniTable1.Open;

在龙芯电脑使用UNIDAC SQLite的截图：

 

UniDac 使用日记（转）

UniDAC使用日记

1.        UniQuery默认状态为行提交，使用前根据需要设置readonly或cachedupdates属性
2.        UniQuery.Filter默认大小写区分，请注意设置FilterOptions属性([foCaseInsensitive])，TVirtualtable也存在相同情况
3.        UniQuery默认情况下，有些varchar类型的字段有自动加了一个空格，请注意设置Options.TrimVarChar=true
4.        UniQuery在进行Insert时，若字段不能为null且前台操作未填写时，可能会报错，请设置RequiredFields=true
5.        UniQuery在修改数据集时，默认的方式是按关键字生成SQL语句进行数据提交。还有另外两种方式：一是设置updateSQL，一是设置KeyFields（具体请sql跟踪查看）
6.        UniQuery的数据排序属性是IndexFieldNames
7.        数据提交的顺序，一定要注意:
   with MyQuery do
   begin
      Session.StartTransaction;
      try
         ... {Modify data}
         ApplyUpdates; {try to write the updates to the database}
         Session.Commit; {on success, commit the changes}
      except
         RestoreUpdates; {restore update result for applied records}
         Session.Rollback; {on failure, undo the changes}
         raise; {raise the exception to prevent a call to CommitUpdates!}
      end;
      CommitUpdates; {on success, clear the cache}
end;
对于单数据集的提交：
MyQuery. ApplyUpdates;
MyQuery. CommitUpdates;
8.        DataM中提供了一个功能Clone(Source, Dest)：一、Dest是TVirtualTable，则完整的将源数据集复制；二、Dest是UniQuery，则是将Source的SQL复制到Dest，并Open
9.        UniQuery.SetReadOnly属性说明
1)        我们经常会用到多表关联，且需要在前台修改数据。举个例子：a表和b表，在前台两个表字段都需要修改，则需要将SetReadOnly设置成false
2)        特别注意：若将一个UniQuery.SetReadOnly设置成true，而这个表有一个自增长ID，那么你在提交数据时会出错，跟踪SQL会发现，ID被前台前行传了一个null值
10．UniQuery. RefreshRecord，可以刷新当前选择的数据
11．我们经常会在UniQuery的SQL定义一些参数，在传参时，需要特别注意，例如：
QExec.Close;
QExec.SQL.Text:= ‘select * from YHB where sYHBH=_YHBH’;
在传参时有两种写法
1)最稳妥的写法
QExec. ParamByName(‘P_YHBH’).DataType:= ftString;
QExec. ParamByName(‘P_YHBH’).ParamType:= ptInPut;
QExec. ParamByName(‘P_YHBH’).AsString:= ‘张三’;(此处可将AsString换成Value)
2)下面这个写法我做了简单测试，也是可以的，但对复杂的SQL传参是否正确，未知
QExec. ParamByName(‘P_YHBH’).AsString:= ‘张三’;(在不对参数的数据类型和传入传出类型进行指定的情况下，绝对不能使用Value)
    在ADO?UniDAC的过程中一定要注意，在DataM中提供了一个函数PrepareParam，请注意看一下。
12．Sybase的一个特性
update a set a.fSJ=b.fSJ
from table1 a join table2 b on a.sYPBSM=b.sYPBSM
上述SQL语句在Sybase下执行不能通过，请改写成如下SQL(在MS和ASE中都能执行通过)
update table1 set fSJ=b.fSJ
from table1 a join table2 b on a.sYPBSM=b.sYPBSM