原生ADO + oracle9i的问题

mrchen_fj 2003-12-03 04:18:11

请教大虾：
我用ADO访问oracle9i，退出后出现异常；而改成访问access却没有异常。
当我执行ButtonAccess后，关闭FORM，则正常退出。当我执行ButtonOra时，关闭FORM，则报异常。请高手指教。

原码如下：

unit UnitFormMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,adodb, StdCtrls, DB,ADOInt, Grids, DBGrids,ComObj;

type
TForm1 = class(TForm)
ButtonOra: TButton;
ButtonAccess: TButton;
procedure ButtonOraClick(Sender: TObject);
procedure ButtonAccessClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonOraClick(Sender: TObject);
var
objRec : adodb._recordset;
objConn : adodb._Connection;
strSql : string;
begin
objConn := adodb._connection(CreateOleObject('ADODB.CONNECTION'));
objRec := AdoDb._Recordset(CreateOleObject('ADODB.RECORDSET'));
objConn.Open('Provider=MSDAORA.1;Password=tiger;User ID=scott;
Data Source=ora;Persist Security Info=True','','',
adConnectUnspecified);
objRec.LockType := adLockReadOnly;
objRec.CursorLocation := adOpenStatic;

strSql := 'select * from tab';

objrec.Open(strSql,objConn,adOpenStatic,adLockReadOnly,0);

AdoDataset1.Recordset := objRec;
AdoDataset1.Active := true;

objConn := nil;
objRec := nil;
end;

procedure TForm1.ButtonAccessClick(Sender: TObject);
var
objRec : adodb._recordset;
objConn : adodb._Connection;
strSql : string;
begin
objConn := adodb._connection(CreateOleObject('ADODB.CONNECTION'));
objRec := AdoDb._Recordset(CreateOleObject('ADODB.RECORDSET'));
objConn.Open('Driver={Microsoft Access Driver
(*.mdb)};DBQ=c:\visualtopo\xian','','',
adConnectUnspecified);

strSql := 'select * from sbb';

objrec.Open(strSql,objConn,adOpenStatic,adLockOptimistic,MB_OKCANCEL);
/// ......
objConn := nil;
objRec := nil;
end;

end.

...全文