ASP/Access 2002: how do I get column names from table (in order) using OLE DB?

[Scotter]

When I use ADOX to get columns(fields) of a table, they are *auto-sorted
alphabetically by name*.
I need to get the list of field names as they appear when I open the MDB
file and view details of the table, *not* sorted by field name
alphabetically.
I tried using open schema with following code causing this error msg: "Item
cannot be found in the collection corresponding to the requested name or
ordinal"
Set rsSchema = conn.OpenSchema(4, Array(Empty, Empty, "config"))
rsSchema.Sort = "ORDINAL_POSITION"
Thanks!
--
Scotter

[[MSFT]]

Hi Scotter,

Have you set the cursor's location to client side? I have tested following
code and it seems to work:

Dim rsSchema
Dim cnn

Set cnn = CreateObject("ADODB.connection")

cnn.CursorLocation = 3
cnn.Provider = "Microsoft.Jet.OLEDB.4.0;"
cnn.Open "Data Source=C:\db1.mdb;"

Set rsSchema = cnn.OpenSchema(4, Array(Empty, Empty, "table1"))
rsSchema.Sort = "ORDINAL_POSITION"


Luke

[Aaron [SQL Server MVP]]

Why do you keep posting the same message multiple times? Hitting send once
is usually sufficient.

[url]http://www.aspfaq.com/search.asp?q=schema[/url]

--
[url]http://www.aspfaq.com/[/url]
(Reverse address to reply.)




"Scotter" <spam@spam.com> wrote in message
news:YF5Ec.33065$w3.6459@fe2.texas.rr.com...

> When I use ADOX to get columns(fields) of a table, they are *auto-sorted
> alphabetically by name*.
> I need to get the list of field names as they appear when I open the MDB
> file and view details of the table, *not* sorted by field name
> alphabetically.
> I tried using open schema with following code causing this error msg:

"Item

> cannot be found in the collection corresponding to the requested name or
> ordinal"
> Set rsSchema = conn.OpenSchema(4, Array(Empty, Empty, "config"))
> rsSchema.Sort = "ORDINAL_POSITION"
> Thanks!
> --
> Scotter
>
>

[Scotter]

Thanks! Yeah problem was I left out the cursorlocation=3

"[MSFT]" <lukezhan@online.microsoft.com> wrote in message
news:47kIARbXEHA.3788@cpmsftngxa10.phx.gbl...

> Hi Scotter,
>
> Have you set the cursor's location to client side? I have tested following
> code and it seems to work:
>
> Dim rsSchema
> Dim cnn
>
> Set cnn = CreateObject("ADODB.connection")
>
> cnn.CursorLocation = 3
> cnn.Provider = "Microsoft.Jet.OLEDB.4.0;"
> cnn.Open "Data Source=C:\db1.mdb;"
>
> Set rsSchema = cnn.OpenSchema(4, Array(Empty, Empty, "table1"))
> rsSchema.Sort = "ORDINAL_POSITION"
>
>
> Luke
>