PureBasic Forums - English

Code: Select all

;/////////////////////////////////////////////////////////////////////////////////
;***COMate***  COM automation through iDispatch.
;*===========
;*
;*ADO demo.  Based on a PureDispHelper example by Kiffi.
;*Create and read a MDB database.
;/////////////////////////////////////////////////////////////////////////////////

XIncludeFile "adoconstants.pbi"

IncludePath "..\..\"
XIncludeFile "COMatePLUS.pbi"

OpenConsole()

 #ADS_CHASE_REFERRALS_EXTERNAL = 40;//parseInt('40',16);
; 	
; 		// Create connection object
; 	var _conn = new ActiveXObject("ADODB.Connection")	
; 
; 		// Create command object	
; 	var _com = new ActiveXObject("ADODB.Command");
; 	
; 		// Prepare connection object For use
; 	_conn.Provider = "ADsDSOObject";
; 	_conn.Open("Active Directory Provider");
; 	
; 		// Prepare command object For use
; 	_com.ActiveConnection = _conn;		
; 	_com.Properties("Page Size") = 100;
; 	_com.Properties("Timeout") = 60;
; 	_com.Properties("Searchscope") = 2;
; 	_com.Properties("Cache Results") = false;  // Do not cache the result set.	
; 	_com.Properties("Chase referrals") = ADS_CHASE_REFERRALS_EXTERNAL;


Define.COMateObject  adoConnection, adoRecordSet,adoCommand,ocomm2

;Create a new MDB database.
;==========================
  
  connectionString$ = "Active Directory Provider"


    adoConnection = COMate_CreateObject("ADODB.Connection")
    adoCommand = COMate_CreateObject("ADODB.Command")
    adoRecordSet = COMate_CreateObject("ADODB.RecordSet")
    
    If adoConnection
      adoConnection\SetProperty("Provider = 'ADsDSOObject'")
      If adoConnection\Invoke("Open('" + connectionString$ + "')") = #S_OK
        ;Insert some records.
        ;Note that since the SQL statement is to contain single quotes (which will interfere with COMate), we must use
        ;the $0027 escape sequence instead.
          SQL$ = "<LDAP://dc=domain1,dc=domain2,dc=domainSuffix>;(&(objectClass=user)(cn=*));cn,dn,adsPath;subtree"
        If COMate_GetLastErrorCode() = #S_OK
            
            adoCommand\SetProperty("ActiveConnection = " + Str(adoConnection) + " as COMateObject")

            ;put command options
            ;_com.Properties("Searchscope") = 2;
            
            adoCommand\SetProperty("CommandText = '" + SQL$ + "'")
            
            ;sqlCheck$ = adoCommand\GetStringProperty("CommandText")
            
            
            adoRecordSet = adoCommand\GetObjectProperty("Execute()")
            err$ = COMate_GetLastErrorDescription()
          If adoRecordSet
            rcount = adoRecordSet\GetIntegerProperty("RecordCount")
            Debug(rcount)
            Repeat
              EOF = adoRecordSet\GetIntegerProperty("EOF")
              If EOF = -1  ;Variant_TRUE
                Debug("bullshit")
                Break
              EndIf
              
              cn$ = adoRecordSet\GetStringProperty("Fields('cn')\Value")
              dn$ = adoRecordSet\GetStringProperty("Fields('dn')\Value")
              adsPath$ = adoRecordSet\GetStringProperty("Fields('adsPath')\Value")
              
              PrintN("Darrick is: ")
              PrintN(#TAB$ + cn$)
              PrintN(#TAB$ + dn$)
              PrintN(#TAB$ + adsPath$)

              adoRecordSet\Invoke("MoveNext")
            ForEver
            adoRecordSet\Invoke("Close")
            adoRecordSet\Release()
          Else
            PrintN("Couldn't create the recordset object!")
          EndIf                
        Else
          PrintN("There was a problem adding the records!")
        EndIf                
      Else
        PrintN("Couldn't create open the connection!")
      EndIf        
      adoConnection\Invoke("Close")
      adoConnection\Release()
    Else
      MessageRequester("COMate - ADO demo", "Couldn't create a connection object!")
    EndIf