Database Search

TechHome

	ADSI LDAP CDO
	Samples from Users

• !!! Simple ADO Example !!!
• !ADO Object Model
• 1255 OLE Member Not Found
• ADO - ADOX requirements
• ADO - DAO Constants
• ADO AD Sort Problem
• ADO and GetObject
• ADO and Large Numbers
• ADO Convert Access data to Tab Delimited Text File
• ADO CreateParameter
• ADO Data Control Constants
• ADO Data Shaping
• ADO Error Issue
• ADO Error Object
• ADO Find vs DAO Seek Access Example
• ADO Jet Order By Clause
• ADO links
• ADO Sample for Stored Procedure
• ADO SaveAs and Excel or Convert Before Closing
• ADO Schemas
• ADO softseek
• ADO SQLOLEDB Example
• ADO Stream Binary File Download
• ADO Stream to Binary Buffer
• ADO with mySQL
• ADOX Append Table Columns
• ADOX Grant Permissions
• ado_seek
• Auto Form For ADO Database Tables
• Auto Generate GUIDs
• Basic Database Dialog Sample
• Beginner ADO Question
• Check Who is Using an MDB
• Close an Active Connection
• Connect to SQL Server 2000 MSDE
• Converting Text String to 4-char Soundex String
• Create Address Book XML File
• Create ADO Get and Put UDFs for Selected Database Table
• Create an AutoIncrement Column in Access
• csv2acc - ADO - CSV-delimited to MDB conversion
• csv2acc2 - ADO - CSV-delimited to MDB conversion2
• DAO CreateTableDef
• Delete All Records from Access Table
• Error 1261 using SetInfo Method
• Extract Column Data Using ADO
• Generic Recordset to Text file UDF
• Get Create_date From SQL Server Table Properties
• Get Extended ADO Connection-Version Info
• Get Result Data of Select Statement
• Get Users Email Address in Active Directory
• GetRows Array Results Explained
• How to Filter Records
• Import Data into My SQL
• Insert Rows From One Database to Another
• Inserting Rows that Contain Apostrophe
• Large Database Query Example
• Learning ADO Conversion to Winbatch
• Lock Database in ADO
• Long Discussion on ADO and Creating a Table
• Microsoft Access Database Engine 2010 Redistributable
• MySQL UDFs
• OLE and DAO Example
• OLE DB Data Link Properties Dialog
• Ole Exception ADODB Recordset
• OLE Exception Connecting to Oracle ODBC Driver
• Ole Exception ParentCatalog ADOX
• Parent-Child Fabricated Recordsets
• Playing around with ADO Schemas
• Problem Getting Record Count via ADO
• Retrieve all user objects in a domain via ADO
• Return a Value from an ADO array
• Samples for creating ADO connections
• Simulate Alter Structure for Persisted XML Recordset
• SQL Server 2005 XML with Winbatch
• SQL Server Blank Password
• SQL Server Update Using ADO
• SQLOLEDB Provider Error
• Stored Procedure with Return Value
• Streaming Recordset To Browser
• Tip - Avoid Duplicate Errors in Bulk INSERTS
• Use ADO to Insert Data From CSV Into Excel
• Use the Datalinks Dialog to insert ADO Connection info into a script
• Very Basic Database - Dialog ADO Sample
• Visual ADO Connection
• Wildcard for SQL LIKE Using ADO
• Write BLOB to MySQL

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ADOX Grant Permissions

#DefineFunction GrantPermissions(my_mdb, user, table)
    retval = 0
    ;Error  handling
    IntControl(73,1,0,0,0)

    cnn = ObjectCreate("ADODB.Connection")
    cat = ObjectCreate("ADOX.Catalog")
    ;Get handle to constants
    oconst = ObjectConstantsGet(cat)

    ;Opens a connection to the database using the Microsoft Jet 4.0 provider
    cConn = StrCat("Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=",my_mdb,";jet oledb:system database='C:\PROGRA~1\COMMON~1\System\SYSTEM.MDW'")

    cnn.Open(cConn)
    cat.ActiveConnection = cnn

    ;Retrieve original permissions
    ;lngPerm = cat.Users(user).GetPermissions(table, oconst.adPermObjTable)
    ;Message( "Original permissions: " , lngPerm)

    ; Revoke all permissions
    cat.Users(user).SetPermissions(table, oconst.adPermObjTable, oconst.adAccessRevoke, oconst.adRightFull)
    ;Display permissions
    ;Message("Revoked permissions: " , cat.Users(user).GetPermissions(table, oconst.adPermObjTable))

    ; Give the user full rights on the TestTable object
    cat.Users(user).SetPermissions(table, oconst.adPermObjTable, oconst.adAccessSet, oconst.adRightFull)
    ; Display permissions
    ;Message("Full permissions: " , cat.Users(user).GetPermissions(table, oconst.adPermObjTable))

    ;Restore original permissions
    ;cat.Users(user).SetPermissions(table, oconst.adPermObjTable, oconst.adAccessSet, lngPerm)
    ; Display permissions
    ;Message( "Final permissions: " , cat.Users(user).GetPermissions(table, oconst.adPermObjTable))

    ;Clean up
    cnn.Close
    cat = 0
    cnn = 0
    retval = 1
    Return(retval)

:WBERRORHANDLER
   ;GrantPermissionsError:
   cat = 0
   If cnn
      If cnn.State = oconst.adStateOpen Then cnn.Close
   End If
   cnn = 0
   Message( "Error granting permissions",StrCat(wberrorhandlerline,@CRLF,wberrortextstring,@CRLF,wberroradditionalinfo))
   Return(retval)

#EndFunction


;***************************************************************************
;**
;** Purpose: Gives User Full permissions to the Access Table
;**
;** Author: Deana Falk
;**
;** Revisions:
;**    December 13th 2005
;**    Designed and tested on Windows XP SP2, using WinBatch 2005G and
;**    MS Access 2000.
;***************************************************************************

; Change to fit your needs
table = "TestTable"
my_mdb = 'C:\Temp\Data\Test.mdb'
user = 'Deana'



ret = GrantPermissions(my_mdb, user, table)
If ret == 0
   Message("Notice","There was a problem granting permissions")
   Exit
EndIf
Message("","Done")

Article ID:   W17107

File Created: 2007:07:03:14:28:20

Last Updated: 2007:07:03:14:28:20