BDE?(50分)

  • 主题发起人 主题发起人 jjy_888
  • 开始时间 开始时间
J

jjy_888

Unregistered / Unconfirmed
GUEST, unregistred user!
各位高手,请看下面代码:
var
aDatabase: TDatabase;
begin
aDatabase := TDatabase.Create(nil);
with aDatabase do begin
DriverName := 'oracle';
DatabaseName := 'bill';
KeepConnection := FALSE;
LoginPrompt := FALSE;
Connected := FALSE;
Session.GetDriverParams(DriverName, Params);
Params.Values['SERVER NAME'] := 'in';
Params.Values['USER NAME'] := 'xy';
Params.Values['PASSWORD'] := 'xy2002';
Open;
end;
aDatabase.Free;
end;
此程序一执行到open就出错:Project e:/test/project1.exe faulted with message:
'access biolation at 0x4be43541:read of address 0xfff830f8''.process stopped.
Use Step or Run to continue.
这是什么原因?
 
跟踪看Params有没对


----
http://www.8421.org
 
先直接在一个FORM中用一个TDATABASE把上面的参数设定好,看能联上了.
 
后退
顶部