在开发数据库的应用的时候,经常需要写入日志,比如某个日志需要记录用户打开程序的时间和用户关闭程序的时间,显然这是两个动作,因为用户打开程序可能需要使用一段时间才会关闭。那么当用户打开程序时,我们首先就需要插入一条日志记录,记录下当前用户打开的时间,同时需要返回当前日志的ID值(自增),以方便用户关闭程序时使用该ID更新日志记录的关闭时间字段。
在Delphi中可以使用如下简单方法直接获取到当前对话的ID值:
var
ID : integer;
FDConnection := TFDConnection.Create(nil);
try
FDConnection.ConnectionDefName := Get_DBConnectionStr; //数据库连接参数串
ID := FDConnection.ExecSQLScalar('INSERT INTO 表名 (name,age) VALUES(:A1,:A2); SELECT scope_identity()',['sensor',42]);
finally
FDConnection.Free;
end;
说明:
1. SELECT scope_identity() 语句是重点;
2. FDConnection 会把整个 ExecSQLScalar 中的语句整体作为一个事务(会话),所以即便是多账户操作插入,返回的ID也是正确的。
3. ExecSQLScalar中是可以输入写多条SQL语句的。