AutoHotkey Community

COM_init()
COM_CoInitialize()

lastName = Doe
firstName = Jane

connProv := "ADsDSOObject"
connOpen := "Active Directory Provider"
Query := "<LDAP://myldapserver>;(&(objectclass=user)(objectcategory=person)(&(sn=" lastName ")(givenName=" firstName ")));distinguishedname,cn,employeeid,mail,givenname,sn,middlename,samaccountname,displayname,department,division,manager;subtree"

oConn := COM_CreateObject("ADODB.Connection")
oComm := COM_CreateObject("ADODB.Command")

COM_Invoke(oConn, "Provider", connProv)
COM_Invoke(oConn, "Open", connOpen)

COM_Invoke(oComm, "ActiveConnection", "+" . oConn)
COM_Invoke(oComm, "Properties", "SearchScope", "2")
COM_Invoke(oComm, "Properties", "Page Size", "500")

COM_Invoke(oComm, "CommandText", Query)
adoExecute := COM_Invoke(oComm, "Execute")

Loop
{
   If COM_Invoke(adoExecute, "EOF")
      Break
     
   exFields := COM_Invoke(adoExecute, "Fields")
   exField := COM_Invoke(exFields, "Item", "cn")   
   result .= COM_Invoke(exField, "Name") . ": " . COM_Invoke(exField, "Value") . "`r`n"
   COM_Invoke(adoExecute, "MoveNext")
   COM_Release(exField)
}

MsgBox   %   result

COM_Invoke(oConn, "Close")
COM_Release(exFields)
COM_Release(exField)
COM_Release(oConn)

;Dbq is the path to the dbf file. (S:\ or whatever) This sConnect is highly dbf oriented (DBASE). (http://www.codeproject.com/KB/database/connectionstrings.aspx#dBASE)
sSource := "SELECT WKORDNUM,NOTE1,NOTE2 FROM " . "wrkorder.dbf" . " WHERE WKORDNUM = '" . varOurWkNum . "'"
sConnect := "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=S:\;"

COM_Init() ; (Initialize the process, start the motor, on your mark)
prs :=  COM_CreateObject("ADODB.Recordset") ; define prs as a Recordset object, ready to be acted upon

;Define properties of recordset that tell how it will operate (BEFORE recordset opened) (numbers from w3schools.com/ado/ado_ref_recordset.asp ).
COM_Invoke(prs, "CursorLocation=", 3) ; adUseClient = 3 , local (not on server) use of data
COM_Invoke(prs, "CursorType=", 0) ; adOpenForwardOnly = 0 , cursor will not go backward (I don't need to in this case)
COM_Invoke(prs, "LockType=", 3) ; adLockOptimistic = 3 , Not entirely clear on this, but won't lock out others entirely?

COM_Invoke(prs, "Open", sSource, sConnect) ; Open the recordset, if any, using the source and connect string from above.

Loop
{
   If  COM_Invoke(prs, "EOF")
      Break ; no fields? no match? (not sure) checking for end of fields
   pFields   := COM_Invoke(prs, "Fields") ; Get all the fields (together) in the current row of the recordset
   ; The below are out of order, just to prove it didn't matter. First field index is 0.
        ; You could loop through these, as in other examples, but to me this saves steps by defining the variables as they come.
   pField := COM_Invoke(pFields, "Item", 2) , varNote2 := COM_Invoke(pField, "Value") , COM_Release(pField)
   pField := COM_Invoke(pFields, "Item", 0) , varWorkyNum := COM_Invoke(pField, "Value") , COM_Release(pField)
   pField := COM_Invoke(pFields, "Item", 1) , varNote1 := COM_Invoke(pField, "Value") , COM_Release(pField)

   ;Add ETAXXXX in front of Note1 and NOETAXXXX at end of Note2
        varNote1 := "ETAXXXX" . varNote1
        varNote2 .= "NOETAXXXX"

   ;This does the actual value changing of the individual field in this record. 1st part defines/addresses, 2nd part changes, 3rd part releases.
   pField := COM_Invoke(pFields, "Item", 1) , COM_Invoke(pField, "Value=", varNote1) , COM_Release(pField)
   pField := COM_Invoke(pFields, "Item", 2) , COM_Invoke(pField, "Value=", varNote2) , COM_Release(pField)

   COM_Invoke(prs, "Update") ; Is this even necessary? Works without it I think. Anyone know?
   COM_Release(pFields) ; Release the recordset row (group of fields).
   COM_Invoke(prs, "MoveNext") ; Move to next row, if multirow
}
COM_Invoke(prs, "Close") ; Close the recordset
COM_Release(prs) ; Release the resources/memory (afaik)
COM_Term() ; Close the whole COM process (end to Init)

sSource  := "sp_databases"
sConnect := "Provider=sqloledb;Data Source=MY-SERVER;Initial Catalog=MY-DATABASE;Integrated Security=SSPI;"


COM_Init()
prs :=   COM_CreateObject("ADODB.Recordset")
pcmd :=   COM_CreateObject("ADODB.Command")
COM_Invoke(pcmd, "CommandText", sSource)
COM_Invoke(pcmd, "CommandType", 4)
COM_Invoke(pcmd, "CommandTimeout", 400)
COM_Invoke(pcmd, "ActiveConnection", sConnect)

;;;;;;;;;;;  Method 1:  ;;;;;;;;;;;;

COM_Invoke(prs, "CursorType", 3)

activeLock := COM_Invoke(prs, "CursorType")
msgbox % activeLock

COM_Invoke(prs, "Open", "+" . pcmd)

activeLock := COM_Invoke(prs, "CursorType")
msgbox % activeLock

;Fails. The CursorType is reset when the connection is opened.

;;;;;;;;;;;  Method 2:  ;;;;;;;;;;;;

COM_Invoke(prs, "Open", "+" . pcmd, ,3)

;Fails with message: Error: Blank Parameter

;;;;;;;;;;;  Method 3:  ;;;;;;;;;;;;

COM_Invoke(prs, "Open", "+" . pcmd, sConnect, 3)

;Fails with message: Cannot change the ActiveConnection property of a Recordset object which has a Command object as its source.

COM_Invoke(prs, "Close")
COM_Release(prs)
COM_Term()

db_file = [DBLOCATION].Value
    sql = [SQLSUBMIT].Value

    Set conn = New ADODB.Connection
    conn.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & db_file & ";" & _
        "Persist Security Info=False"
    conn.Open

    'conn.Execute "DROP TABLE Employees"
    conn.Execute sql