Database Search

TechHome

• Access 2000 Advanced DML Transactions
• Access Recordset to CSV File UDF
• Access RunCommand Constants
• ACCESS Table or Query Exists
• Access to Excel via SQL
• Access Visible Problem
• Adding Fields to an Existing Access Table
• Advanced DML Transactions
• Advanced SQL in the Jet 4.0 Provider Example
• Another OLE with Access Example
• Automating Access Tutorial
• Check if Access Table Exists
• Commit Rollback Begin Trans Updatebatch
• Control Access Forms
• Count Access Records
• Csv to Access
• Dealing with ACCESS 97 Field Types
• execute a macro in Access
• Execute a Public function in Access
• Export Access Report in Choice of Formats
• Export MDB to Flat File
• Find Read and Insert Data in Access
• Gather ACCESS Table and Column Information Into Excel
• Get Access Version That Created MDB File
• Get Column Data From an Access Database
• Get Record Count
• How to Use the OpenTable method
• Launch Access Macro from Commandline
• Loop thru a recordset in Access
• Office 2003 Macro Security Issue
• OLE and Access
• OLE Import a table into Access
• OLE Import Table into Access
• Open Access DB with DAO
• Pack an Access Database
• Query and Export Data from Microsoft Access
• Read Write Delete Tables from Access DB
• Repair MDB
• Retrieve Data in Access
• SQL UPDATE Fails with Access
• UDF to Return Record Count
• Updating Table From Filtered Recordset
• Ways to Get Data from and Access file without Access installed

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

Dealing with ACCESS 97 Field Types

 Keywords:  

Sample Code:

; //////////////////////////////////////////////////////////////
; OLE DB Script that Reads ACCESS 97 Field Types and Values
; Stan Littlefield 02/01/2001
; //////////////////////////////////////////////////////////////

MDB="wbtest.mdb"
tablename="Test"
cConn  = "Provider=MicroSoft.Jet.OLEDB.4.0; Data Source=%MDB%;"
DB     = ObjectOpen("ADODB.Connection")
DB.Open(cConn)
;select everything from the table
RS     = DB.Execute("SELECT * FROM %tablename%")
flds   = RS.Fields
;Count the fields
nCnt   = flds.Count()

For i=0 To nCnt-1
   ;extract the field
   fld = RS.Fields(i)
   n   = fld.Name
   t   = fld.Type
	; handle for Ole object type
	; winbatch cannot retrieve that value
   If t<>205
      v   = fld.Value
      message("Field %i% %n%",%t%)
      message("Value","%v%")
   Else
      message("Field %i% %n%",strcat(%t%," is an Object Type"))
   Endif
Next

DB.Close()
ObjectClose(DB)
exit

Article ID:   W14688

Filename:   Dealing with ACCESS 97 Field Types.txt

File Created: 2001:02:07:13:13:08

Last Updated: 2001:02:07:13:13:08