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

• 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.

Get Column Data From an Access Database

 Keywords: Column Data Access Database .MDB 

---

Question:

How can I read data from a cell in a specific column in a Access Database *.mdb?

Answer:

The following code, should get you started. Simply specify a valid .mdb file, table name, and column name, to get a list of all values in that column.

mdb = "C:\Temp\Data files\test.mdb" 
tablename = "Contacts"
columnname = "ID"
query = StrCat("select ",columnname," from ",tablename)

; create the access application object
objApp = objectopen("Access.Application")
; open the database
objApp.opencurrentdatabase(mdb)
; get the current database object
objCurrentdb = objApp.currentdb
; open the recordset
objRecordset = objCurrentdb.openrecordset(query)
; get the fields collection
objfields = objRecordset.fields
; loop through the recordset
while objRecordset.eof == @false
   fieldcount = objfields.count
	For x = 0 to fieldcount-1
	   objfield = objfields.Item(x)
      message(objfield.name, objfield.value)
	Next
	objRecordset.movenext
endwhile
objRecordset.close
objApp.closecurrentdatabase
objApp.quit

; close up the objects...
objectclose(objfield)
objectclose(objfields)
objectclose(objRecordset)
objectclose(objCurrentdb)
objectclose(objApp)

message("", "Done")
exit

---

Article ID:   W15618

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

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