dbexpoda.dll v3.00 thinks it is v2.50.5 and does not like Oracle 10g too much
Posted: Tue 28 Feb 2006 16:04
D7. I've just downloaded the v3.00 driver and I can't help noticing that the file version of dbexpoda.dll is v2.50.5.0!! Also, it doesn't work with my schema using an entirely Oracle 10.1.0.5.0 environment. Happily this can be reproduced using the good ol' Scott starter database schema (EMP okay, DEPT raises exception).
Create a button, drop in this code, "Stop on Delphi Exceptions", and see what happens.
Create a button, drop in this code, "Stop on Delphi Exceptions", and see what happens.
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var
myCRSQLConnection : TCRSQLConnection;
pList: TStringList;
begin
myCRSQLConnection := TCRSQLConnection.Create(nil);
pList := TStringList.Create;
try
myCRSQLConnection.DriverName := 'Oracle (Core Lab)';
myCRSQLConnection.LibraryName := 'dbexpoda.dll';
myCRSQLConnection.VendorLib := 'OCI.DLL';
myCRSQLConnection.GetDriverFunc := 'getSQLDriverORA';
myCRSQLConnection.Params.Clear;
myCRSQLConnection.Params.Values['DriverName'] := 'Oracle (Core Lab)';
myCRSQLConnection.LoginPrompt := false;
myCRSQLConnection.Params.Values['DataBase'] := edit1.text;
myCRSQLConnection.Params.Values['User_Name'] := edit2.Text;
myCRSQLConnection.Params.Values['Password'] := edit3.Text;
myCRSQLConnection.Connected := True;
myCRSQLConnection.GetFieldNames('EMP', pList);
Memo1.Text := pList.Text;
pList.Clear;
myCRSQLConnection.GetFieldNames('DEPT', pList);
Memo2.Text := pList.Text;
//with dbexpoda.dll dated 9th Feb 2006 (v2.50.5.0 EH!?):
//Memo2 is Empty
//raised exception class EConvertError with message ''58?412' is not a valid integer value'
//Note, okay with dbexpoda.dll dated 17th Oct 2005 (v2.50.6.0)
finally
pList.Free;
myCRSQLConnection.Free;
end;
end;