1:
2:
3:
4:

DRIVER_NAME MSSQLDRV
SERVER_NAME DFCONNID=IBIS_CONNECT

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Object oCLIHandler is a cCLIHandler
End_Object

Procedure CreateConnectionID
  Integer iResult
  String sServer sUser sPasswort sTreiber sDatenbank
  String sConnectString
  
   If (sTreiber="MSSQLDRV") Begin
       Set psDriverID of oCLIHandler to "MSSQLDRV"
       
       If (Pos("Trusted", sUser)) Begin
           Move ("SERVER="+sServer + "; Trusted_Connection=yes; DATABASE=" + sDatenbank) to sConnectString
       End
       Else Begin 
           Move ("SERVER="+sServer+"; DATABASE=" + sDatenbank + "; UID=" + sUser+ "; PWD=" + sPasswort) to sConnectString
       End
       Get CreateConnectionID of oCLIHandler "IBIS_CONNECT" sConnectString 0 to iResult
      
   End    
End_Procedure