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.
这是什么原因?
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.
这是什么原因?