[Instantobjects-cvscommit] Source/Brokers/ADO InstantADO.pas,1.7,1.8

[Nando D. <na...@us...>]

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