bde 无oracle

BDE是Delphi程序开发中常用的数据库连接组件，但是由于某些原因，如版本限制和需求变更等，可能需要进行BDE无oracle的开发，本文将主要探讨如何使用BDE进行无oracle的开发。

首先，我们需要使用其他数据库来代替Oracle，比如MySQL和SQL Server等，这里我们以MySQL为例。在使用BDE连接MySQL之前，需要安装BDE的MySQL驱动。

BDE设置图示:
(1) 打开BDE Administractor
(2) 点击Configuration
(3) Driver ->Native ->MySQL
(4) 配置MySQL的Host Name、Port Number、Database等参数
(5) 配置失败，再配置VendorLib。将MySQL目录下的libmySQL.dll复制到BDE的Bin目录下即可

配置好BDE的MySQL驱动之后，就可以在Delphi代码中使用BDE进行MySQL操作了。比如，我们可以使用以下代码连接MySQL并查询数据：

var
Query: TQuery;
begin
Query := TQuery.Create(nil);
try
Query.DatabaseName := 'MySQLConnection';
Query.SQL.Add('SELECT * FROM TableName');
Query.Open;
// 使用查询结果
finally
Query.Free;
end;
end;

此外，BDE无法连接Oracle的情况下，也可以考虑使用其他组件来连接Oracle数据库，比如ADO和dbExpress等。

使用ADO连接Oracle时，需要使用Microsoft的Oracle驱动。ADO可以通过如下代码连接Oracle并查询数据：

var
Connection: TADOConnection;
Recordset: TADORecordset;
begin
Connection := TADOConnection.Create(nil);
try
Connection.ConnectionString := 'Provider=OraOLEDB.Oracle.1;Data Source=OracleServer;User ID=UserName;Password=PassWord;';
Connection.Open;
Query := TADOQuery.Create(nil);
try
Query.Connection := Connection;
Query.SQL.Add('SELECT * FROM TableName');
Query.Open;
// 使用查询结果
finally
Query.Free;
end;
finally
Connection.Free;
end;
end;

使用dbExpress连接Oracle需要安装Oracle dbExpress驱动，然后在Delphi中创建一个dbExpress连接组件并配置相应的参数，如下所示：

dbExpress设置图示:
(1) 地址：点击SelectDriver，选择OracleDriver
(2) 用户名、密码、数据库：根据情况输入相应的信息

配置好dbExpress连接组件之后，就可以使用以下代码连接Oracle并执行查询操作了：

var
Connection: TSQLConnection;
Query: TSQLQuery;
begin
Connection := TSQLConnection.Create(nil);
try
Connection.ConnectionName := 'OracleConnection';
Connection.Open;
Query := TSQLQuery.Create(nil);
try
Query.SQLConnection := Connection;
Query.SQL.Add('SELECT * FROM TableName');
Query.Open;
// 使用查询结果
finally
Query.Free;
end;
finally
Connection.Free;
end;
end;

综上所述，当需要在BDE无法连接Oracle的情况下使用BDE进行开发时，可以使用BDE的MySQL驱动来连接MySQL数据库，并可以考虑使用其他组件来连接Oracle数据库，如ADO和dbExpress等。