Update of /cvsroot/instantobjects/Source/Brokers/ADO
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20227/Brokers/ADO
Modified Files:
InstantADO.pas
Log Message:
fixed bug #880699
Index: InstantADO.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/ADO/InstantADO.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** InstantADO.pas 10 Feb 2005 23:42:35 -0000 1.7
--- InstantADO.pas 21 Feb 2005 12:13:38 -0000 1.8
***************
*** 697,701 ****
MySQLPrefix = 'My';
IBMDB2Prefix = 'IBMDADB2';
! begin
if HasConnection then
begin
--- 697,702 ----
MySQLPrefix = 'My';
IBMDB2Prefix = 'IBMDADB2';
! MSOraclePrefix = 'MSDAORA';
! begin
if HasConnection then
begin
***************
*** 704,708 ****
else if HasPrefix(MSSQLPrefix) then
Result := ptMSSQLServer
! else if HasPrefix(OraclePrefix) then
Result := ptOracle
else if HasPrefix(MySQLPrefix) then
--- 705,709 ----
else if HasPrefix(MSSQLPrefix) then
Result := ptMSSQLServer
! else if HasPrefix(OraclePrefix) or HasPrefix(MSOraclePrefix) then
Result := ptOracle
else if HasPrefix(MySQLPrefix) then
|
