ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   testing ADO recordset for PrimaryKeys (https://www.excelbanter.com/excel-programming/444104-testing-ado-recordset-primarykeys.html)

Jeff Norville

testing ADO recordset for PrimaryKeys
 
I'm pulling a recordset of data based on a query into Excel; currently
I flip through the Field.Name and Field.Type properties to populate
the header rows with recordset names and types (enumerating the types
as adInteger, adVarWChar, adBoolean, etc).

I don't find a way to test the recordset to see if the field came from
a table's primary key... which doesn't seem too taxing.

Looks like I would need to go to ADODB.Connection.OpenSchema and test
the originating table to find its keys. Could that be right?

Feels like I am missing something obvious, but I hope you'll humor the
question anyway!

Thanks,
Jeff

Ratheesh

testing ADO recordset for PrimaryKeys
 
On Jan 11, 5:36*pm, Jeff Norville wrote:
I'm pulling a recordset of data based on a query into Excel; currently
I flip through the Field.Name and Field.Type properties to populate
the header rows with recordset names and types (enumerating the types
as adInteger, adVarWChar, adBoolean, etc).

I don't find a way to test the recordset to see if the field came from
a table's primary key... *which doesn't seem too taxing.

Looks like I would need to go to ADODB.Connection.OpenSchema and test
the originating table to find its keys. *Could that be right?

Feels like I am missing something obvious, but I hope you'll humor the
question anyway!

Thanks,
Jeff


Hi Jeff,

I didnt get exactly what is your doubt, but incase if you are looking
for the heading
you can try this or make your question bit more clear -
Open your RecordSet and do the below loop before it pasting to your
destination
For ColH = 1 To RecordSet(Name of your Recordset).Fields.Count
Sheets("YourSheet").Cells(1, ColH) = RecSet.Fields(ColH -
1).Name
Next

Regards
Ratheesh


All times are GMT +1. The time now is 07:47 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com