For a Command object:
set conn = New ADODB.Connection
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "F:\MaterialMaster\Material_Master.mdb"
set comm=New ADODB.Command
comm.Name="xxxxx"
debug.print(comm.Name)
conn.close
For a Field object:
set conn=New ADODB.Connection
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "F:\MaterialMaster\Material_Master.mdb"
set rs=New ADODB.Recordset
rs.open "SELECT * FROM tblAMSEA", conn
set f=New ADODB.Field
'Display the field attributes of the Orders Table
For each f in rs.Fields
debug.print "Attr:" & f.Attributes & vbCrLf
debug.print "Name:" & f.Name & vbCrLf
debug.print "Value:" & f.Value
Next
rs.Close
conn.close
set rs=nothing
set conn=nothing
For a Property object:
set conn=New ADODB.Connection
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "F:\MaterialMaster\Material_Master.mdb"
set rs=New ADODB.Recordset
rs.open "SELECT * FROM tblAMSEA", conn
set prop=New ADODB.Property
'Display the property attributes of the Orders Table
For each prop in rs.Properties
debug.print("Attr:" & prop.Attributes & vbCrLf
debug.print("Name:" & prop.Name & vbCrLf
debug.print("Value:" & prop.Value & vbCrLf
Next
rs.close
conn.close
set rs=nothing
set conn=nothing
|