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.

Create ADO Get and Put UDFs for Selected Database Table

#DefineFunction SchemaListTables(ConnectionStr)
   cnn = ObjectCreate("ADODB.Connection")
   cnn.Open(ConnectionStr)
   adSchemaTables = 20
   TableList     = ""
   rsSchema = cnn.OpenSchema(adSchemaTables)
   While !rsSchema.eof
;      message(rsSchema.fields("TABLE_NAME").value, rsSchema.fields("TABLE_TYPE").value)
      If rsSchema.fields("TABLE_TYPE").value == "TABLE" Then TableList = ItemInsert(rsSchema.fields("TABLE_NAME").value, -1, TableList, @TAB)
      rsSchema.movenext
   EndWhile
   rsSchema.close()
   cnn.close()
   Return(TableList)
#EndFunction

;Winbatch [Tested 2006B - should work with all versions after 2004]
;
;Create simple ADO get/put UDF's for selected Database Table
;useful for add/edit routines
;Uses Microsoft Access but could be modified to any ADO Provider
;
;The get() UDS created accepts a flag, if true it will
;initialize default variable entries
;
;Stan Littlefield, April 5, 2006
;//////////////////////////////////////////////////////////////////////////

BoxOpen("Please Wait","Creating Get/Put Subroutines")
cMDB = AskFilename( "Name of MDB file", DirScript(), "MDB Files|*.mdb", "", 1 );name of MDB
If ! FileExist(cMDB) Then Exit
cOut = StrCat(DirScript(),"UDFS.wbt")
cConn = StrCat('Provider=MicroSoft.Jet.OLEDB.4.0; Data Source="',cMDB, '"')

;tablename = AskLine( "Name of Table", "Please type the name of the Table", "") ;name of table
tablename = AskItemlist("Choose a table", SchemaListTables(cConn), @TAB, @SORTED, @SINGLE, @FALSE)

oRS = CreateObject("ADODB.Recordset")
oRS.Open(tablename,cConn,1,3,2)
cGet = StrCat("#DefineSubRoutine AdoGet(mode)",@CRLF,"If mode Then oRS.Addnew()",@CRLF)
cPut = StrCat("#DefineSubRoutine AdoPut()",@CRLF)
cInit = StrCat('cMDB = "',cMDB, '"', @CRLF)
cInit = StrCat(cInit,'If ! FileExist("', cMDB, '") Then Exit',@CRLF)
cInit = StrCat(cInit,`cConn = Strcat( 'Provider=MicroSoft.Jet.OLEDB.4.0; Data Source="',cMDB, '"')`,@CRLF)
cInit = StrCat(cInit,'oRS = CreateObject("ADODB.Recordset")',@CRLF,'oRS.Open("', tablename, '",cConn,1,3,2)',@CRLF)
cInit = StrCat(cInit,";",tablename," Table Var Init",@CRLF,"AdoGet(1)",@CRLF)
cEnd = StrCat("Return(1)",@CRLF,"#EndSubRoutine",@CRLF,@CRLF)

For i = 0 To (oRS.Fields.count)-1
   cField = oRS.Fields(i).Name
   ;to overcome WB's 28 char limit on variables
   cF1 = StrReplace(cField," ","")
   If StrLen(cF1)>27 Then cF1=StrSub(cF1,1,27)
   BoxText(cField)
   cPut = StrCat(cPut,'oRS.Fields("',cField,'").Value = c',cF1,@CRLF)
   cGet = StrCat(cGet,"c",cF1,' = oRS.Fields("',cField,'").Value',@CRLF)
Next
cGet = StrCat(cGet,"If mode Then oRS.CancelUpdate()",@CRLF)
oRS.Close()
oRS=0
FilePut(cOut,StrCat(cGet,cEnd,cPut,cEnd,@CRLF,cInit))
If FileExist(cOut)
   BoxText(StrCat("File Created: ",cOut) )
   TimeDelay(1)
EndIf
Message("Debug", "Check")
BoxShut()
Exit

Article ID:   W17110

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

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