Delphi Absolute Database（绝对数据库）使用入门（七）执行查询

最新推荐文章于 2024-09-09 12:41:15 发布

孤独的学者

最新推荐文章于 2024-09-09 12:41:15 发布

阅读量102

点赞数

分类专栏：绝对数据库文章标签： Absolute delphi 绝对数据库数据库

绝对数据库专栏收录该内容

9 篇文章 1 订阅

订阅专栏

本文详细介绍了如何在AbsoluteDatabase环境中手动执行SQL查询，包括设置TABSDatabase和TABSQuery组件，连接数据库，以及针对不同查询类型（返回记录集或非记录操作）的执行方法。

摘要由CSDN通过智能技术生成

执行一个查询

如果要手动执行SQL查询，请使用Absolute Database DBManager实用工具（...\AbsoluteDatabase\Ultils\Bin\DBManager.exe）。

若要从应用程序执行SQL查询，可以执行以下步骤：

1.	将组件面板的Absolute DB选项卡中的TABSDatabase和TABSQuery组件放置到一个数据模块或窗体上，如果您还没有这样做的话。

2.	设置TABSDatabase组件。将组件的 TABSDatabase.DatabaseName 设置为一个唯一的值，稍后将使用该值来标识数据库。设置TABSDatabase.DatabaseFileName属性为现有或新数据库文件的名称。

3.	设置TABSQuery组件。从可用TABSDatabase组件的下拉列表中选择设置TABSQuery.DatabaseName属性。将查询命令分配TABSQuery.SQL属性。如果您希望查询返回可修改的记录集，请设置TABSQuery.RequestLive属性为True。

4.	连接到数据库（可选）。

5.执行/打开查询。可以通过两种方式执行查询，

如果查询返回记录集，即SELECT命令，则将Active属性设置为True，无论是在对象检查器中的设计时，还是在运行时的代码中：ABSQuery1.Active：=True；或者在运行时调用Open方法，ABSQuery1.Open；

如果查询不返回记录，即INSERT、UPDATE等，则在运行时调用ExecSQL方法，ABSQuery1.ExecSQL

示例:

  {设置数据库组件}
  ABSDatabase1.DatabaseName := 'emp_db';
  ABSDatabase1.DatabaseFileName := 'c:\data\employee_db.abs';

  {设置查询组件}
  ABSQuery1.DatabaseName := 'emp_db';
  ABSQuery1.SQL.Text := 'select * from employee';
  ABSQuery1.RequestLive := True;

  if (not ABSDatabase1.Exists) then
    raise Exception.Create('Database file does not exist');

  {执行和打开查询}
  ABSQuery1.Open;