For a Command object:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set comm=Server.CreateObject("ADODB.Command")
comm.Name="xx"
response.write(comm.Name)
conn.close
%>
For a Field object:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from orders", conn
set f=Server.CreateObject("ADODB.Field")
'Display the field attributes of the Orders Table
for each f in rs.Fields
response.write("Attr:" & f.Attributes & "<br />")
response.write("Name:" & f.Name & "<br />")
response.write("Value:" & f.Value & "<br />")
next
rs.Close
conn.close
set rs=nothing
set conn=nothing
%>
For a Property object:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from orders", conn
set prop=Server.CreateObject("ADODB.Property")
'Display the property attributes of the Orders Table
for each prop in rs.Properties
response.write("Attr:" & prop.Attributes & "<br />")
response.write("Name:" & prop.Name & "<br />")
response.write("Value:" & prop.Value & "<br />")
next
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
|