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.

OLE and DAO Example

Keywords: 	 DAO

Question:

	Option Explicit

	Public objDAO As Object
	Public objWrkSpaces As Object
	Public objWrkSpace As Object
	Public objDatabase As Object

	Sub Main()
	Set objDAO = CreateObject("DAO.DBEngine.35")
	Set objWrkSpaces = objDAO.WorkSpaces
	End Sub

Answer:

	; Set objDAO = CreateObject("")
	; Set objWrkSpaces = objDAO.WorkSpaces

	objDAO=ObjectOpen("DAO.DBEngine.35")
	objWrkSpaces = objDAO.WorkSpaces
	;ObjectClose(objWrkSpaces ; depends what this is
	ObjectClose(objDAO)

Question (cont'd):

Example #2:

Make sure DAO.DBEngine.35 exists on those computers. Maybe try searching the registry for that application object. Search under HKEY_Classes_Root for DAO.DBEngine....

And make sure that version 3.5 (35 above) is installed. Open up the registry editor on the PC and do a search for:

DAO.DBEngine

If it's installed it will show up as: DAO.DBEngine.35

ODBC would've been about 100 lines or so.

dao = objectopen("DAO.DBEngine.35")

ws = dao.CreateWorkspace("JetWorkspace", "admin", "")
db = ws.OpenDatabase("c:\data\access\skytel paging.mdb")
;rs = db.openrecordset("Message Text")
sqlstr = "SELECT PINS.[Pager ID], PINS.[User Name], PINS.PIN, PINS.Group, PINS.[Pager Model], PINS.Other FROM PINS WHERE (((PINS.Group)='WESTERN_REG'));"

rs = db.openrecordset(sqlstr)

thepin = rs.fields("PIN")
theid = rs.fields("Pager Id")
thename = rs.fields("User Name")
thegroup = rs.fields("Group")

while rs.eof == 0
; rs.edit
; message("Debug", thefield.value)
; thefield.value = "New Value"
; rs.update
outline = strcat(theid.value, @crlf, thename.value, @crlf, thepin.value, @crlf, thegroup.value)
message("Debug", outline)
rs.movenext
endwhile

objectclose(rs)
objectclose(db)
objectclose(ws)
objectclose(dao)

message("Debug", "End of Job")

exit 

Article ID:   W13666

Filename:   OLE and DAO Example.txt

File Created: 2003:02:03:15:40:42

Last Updated: 2003:02:03:15:40:42