Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

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.

Example Converts CSV file into an Access Database

Keywords:   csv2acc.wbt	  ADO - TAB-delimited to MDB conversion

---

Here is a script that uses a simple SELECT to insert a csv file into a table. This should also place an entry for the csv in the schema.ini file.

---

csv2acc.wbt

nVer      = 2000  ; for office 97, see nVer (below)
cMDB      = "C:\TEMP\NEWTBL.MDB"
If FileExist(cMDB) Then FileDelete( cMDB )


cPath     = "C:\TEMP"
cTXT      = "USERS.TXT"  ; first row has column names
If ! FileExist( Strcat( cPath,"\",cTXT ) )
   message("Unable to Continue","Missing Text File %cTXT%")
   Exit
Endif

; on with the show
BoxOpen("Updating %cMDB%","Inserting Records")
If nVer   == 97 ;create Office 97 compatible file
   cConn  = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=%cMDB%;Jet OLEDB:Engine Type=4"
Else
   cConn  = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=%cMDB%"
Endif

If ! FileExist( cMDB )
   cat    = ObjectOpen("ADOX.Catalog")
   cat.Create(cConn)
   ObjectClose(cat)
Endif

DB        = ObjectOpen("ADODB.Connection")
DB.Open(cConn)
cSQL   = 'SELECT * INTO [USERS] FROM [TEXT;DATABASE=%cPath%;HDR=YES;FMT=Delimited].[%cTXT%];'

DB.EXECUTE(cSQL)

;ok, so Table is Created
RS     = ObjectOpen("ADODB.Recordset")

cSQL   = 'SELECT USER, SUM(MINUTES) as TOTALMINUTES FROM USERS GROUP BY USER;'
RS     = DB.EXECUTE(cSQL)

RS.MoveFirst()
While ! RS.Eof()
   fld = RS.Fields("USER")
   n   = fld.Value
   fld = RS.Fields("TOTALMINUTES")
   m   = fld.Value
   Message( "User %n%","Had %m% Total Minutes" )
   RS.MoveNext()
EndWhile

RS.Close()
ObjectClose(RS)
DB.Close()
ObjectClose(DB)
BoxShut()
Exit

---

Article ID:   W15597

File Created: 2003:05:13:11:29:10

Last Updated: 2003:05:13:11:29:10