使用Active属性判断可否使用远程数据库

最新推荐文章于 2025-11-08 14:48:35 发布

原创最新推荐文章于 2025-11-08 14:48:35 发布 · 291 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #query #oracle #sql

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一种在应用程序启动时自动尝试连接远程Oracle数据库的方法，并在连接失败时无缝切换到本地YaoJian数据库的实现方案。

procedure TForm1.FormShow(Sender: TObject)；
begin
Query1.Active := False；
//改变数据库之前，必须将数据集关闭
try
  Query1.DatabaseName := 'ORACLE'；
  //首先将查询组件的数据库名设置成远程数据库，即ORACLE，然后打开查询
  Query1.Active := True；
except
  on EDatabaseError do
    //如果无法连接远程数据库，将出现EDatabaseError异常
    Query1.DatabaseName := 'YaoJian'；
    //如果打开查询出错，则存取本地的Paradox数据库，其数据库名为‘YaoJian’
    Query1.Active := True；
    //打开使用本地数据库的SQL查询
End；
End；