正文
DBAccess
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
01.单SQL执行.DBA.ExeuteSQL(SQL语句,是否返回值,是否事务处理,返回值<字符型>):Boolean;
-- 执行SQL后,将影响的行数进行返回
02.批量SQL执行.DBA.ExecuteBatchSql(TStringList,是否事务):Boolean;
--将需要执行的SQL添加到TStringList中去,然后一次性执行,要么都成功,要么都失败
03.数据库存储过程的执行 DBA.ExecuteStoredProc(过程名,参数对象,是否事务):Boolean;
--参数名称，需与存储过程中定义的参数名一致,否则会出现参数找不着的错误
--在配置参数时,三号参数需要标识参数方向，是传入参数还是返回参数
04.数据库存储守程返回数据集的应用
DBA.ReadStoredProcDataset(存储过程名,参数对象,数据集个数,是否ADO模式):Boolean;
--数据集个数：返回的数据集个数,
--是否ADO模式：如果开启则需要使用AdoDataSet对象接收数据集;如果不开启，使用CDS接收数据集
--数据集的接收：ReadStoredProcDataset(序位,接收对象<CDS或AdoDataSet>)
序位从0开始，只取一次，取完后，自动清理
--数据集的清理：ClearStoredProcDataSet;
-------------------------------------------------------------------------------
解析动作：存储过程可使用 TAdoStoredProc进行处理，也可以直接使用AdoQuery进行处理
a.配置好正常的SQL语句,通过Open执行，
b.借用 _RecordSet;进行多数据集的提取 ==> var NR:_RecordSet
c.NR := Qry1.RecordSet;
while NR<>nil do
begin
Qry2.RecordSet := NR; --> 如果上面开启ADO模式，则直接返回Qry2
--这里使用的是TAdoQuery,也可以使用 TAdoDataSet.RecordSet := NR;
--若需要返回CDS数据,则借用 TDataSetProvider进行转换
TDataSetProvider.dataset := Qry2;
CDS.Data := TDataSetProvider.data; --将CDS进行返回
end
-------------------------------------------------------------------------------
特别说明:如果要同步返回多个数据集，上面的Qry2和CDS需要动态创建，才满足遍历的多数据集
返回，当然，如果明确知道有几个数据集，则可以分别用一同的数据集接收
-------------------------------------------------------------------------------
05.DBA对数据集的读取
a.ReadDataset(SQL语句,CDS或Ado数据集):Boolean; 只是简单的读取数据集回来
b.大数据集读取
function ReadLargeDataset(aSQLStr: String; RecordsPerPage: integer; var RetCDS: TClientDataset): boolean; overload;
在读取大数据集时，会触发 OnDatasetFetchProgress 事件，可用于处理进度条事件
function ReadLargeDataset(aSQLStr: String; RecordsPerPage: integer; LocalTable: string; LocalAdoConn: TAdoConnection): boolean;
overload
在读取大数据集时，也可转存到本地数据库中去,但需要标识要写入哪个数据库表，同时提供对本地数据库的连接
c.简单返回值的读取: function ReadSimpleResult(SqlCommand: string; var RetValue: string): boolean;
如Select count(*)、Select sum()等，执行此SQL命令所返回的简单值，通过RetValue返回。
d.对读大数据过程中的取消读取: ReadLargeCancel;
06.DBA对数据集的写操作
a.绝对的向数据表中写数据: function WriteDataset(Cds: TClientDataset; TableName: string; Condition: string=''): boolean;
如果Condition不为空，则系统将会先删除符合条件的记录，然后再进行数据的插入操作
07.DBA数据表结构的读取: function ReadTableHead(TableName: string; var Cds: TClientDataset): boolean; overload;
实际返回的就是一个没有符合条件记录的空数据集，数据表结构还是以字段方式存在，而不是对数据表结构的详细描述说明
08.DBA数据记录的追加:
a. AppendRecord(TableName: string; RecordParcel: TQBParcel)
先创建一个QBParcel,并按字段类型，向里面添加记录数据: 字段名与字段值
然后再调用AppendRecord进行数据记录的添加
*** 字段名称不能超过30个字符，否则会被忽略掉
b. 使用CDS来添加记录
先用ReadTableHead读取数据表结构，然后再往CDS中添加记录
最后调用 AppendRecord(表名,CDS)来提交数据
** 但本方法只支持一次添加一条记录(内部封装时，限制了一条)
---------------------------------------------------------------
同样的对于数据记录的修改,也可以使用QBParcel和CDS二种方法,
只不过调用的方法分别变成了: UpdateRecord(表名,条件,数据集记录) ==>同样的受限于1条记录
09.DBA对CDS异动数据的提交
a. 直接提交Delta: CommitCdsDelta(TableName: String; KeyFieldList: String; Delta: OleVariant)
这种方法对提交的Delta中，将原来的值改成Null值的时候无法处理
b. 直接提交CDS:CommitCdsDelta(TableName: String; KeyFieldList: String; Cds: TClientDataset)
----------------------------------------
** 数据提交成功后，需要对本地CDS进行合并操作: CDS.MergeChangeLog;
10.多数据集读取
借用 TStringList进行SQL的存储, 然后统一调用
通过 ReadMultipleDatasets(BatchSQL: TStringList; IsAdoFormat: boolean=false) 进行读取
通过 GetResultDataset(aIndex: integer; var aCds: TClientDataset)进行数据集的提取
通过 ClearResultDataSets 进行结果集的清理
11.多数据集写操作
a.先添加要写库的数据集: AddWriteDataset(TableName: string; ClearSql: string; 数据集<CDS或AdoDataSet>):
b.添加完成后，再写:WriteMultipleDatasets();
c.清理: ClearWriteDataSets;
12.主键值的生成
GenerateId(表名; 关键字段名; 过滤条件; FieldMask: ansistring; ConstList: ansistring; var NewId: ansistring):
FieldMask： 关键字段编码范式，内含的字符串意义为：
A： 自增型字段
I： 整数型字段
YY： 两位年
YYYY： 四位年
MM： 月
DD： 日
HH： 时
NN： 分
SS： 秒
XX...X： 流水号（长度取决于X的个数，一个键值里最多只能有一个）
CC..C： 固定字符串（长度取决于C的个数，一个键值里可有多个）
ConstList： 编码范式中存在固定字符时所对应的实际字符串，若有多个串，中间用半角逗号分隔
关键值的退还
FreeUnusedId(TableName: string; KeyFieldName: string; FilterCondition: string; IdToFree: ansistring)
13.分页查询的处理
14.大数据集的读取 ReadLargeDataset(SQL语句,每页记录数,接收CDS)
