Create Blank Recordset

Printable View

Jul 2nd, 2002, 05:12 AM
Manor39

Create Blank Recordset

As you'll guess from this posting I'm very new to Recordsets.

My question is, how do you create a blank recordset with just column headers?

I've created the one recordset from the database, but I now need to trawl through it and sort it into a very specific order (which is not possible by query) and I thought I would add each row to a new recordset, so that this one ends up in the correct order.

Regards
John
Jul 2nd, 2002, 05:59 AM
Gaffer

I guess you could always use an improbable criterion in your SQL statement:

e.g.
[ADO]
rs.Open ("select * from myTable where Customer = 'abcdefghi'"), myConnection

(assuming you have no customers called abcdefghi)

There doesn't seem to be any specific methods to do it.... (aside form constructin a fresh recordset from scratch - which to me is a waste of time and effort...)
Jul 2nd, 2002, 06:18 AM
Manor39

I forgot to mention in my previous posting that it will end up as an excel spreadsheet. My plan was to sort the recordset and then dump the lot in one go to the spreadsheet, but I think I will have post each row as I'm sorting.

Regards
John.
Jul 2nd, 2002, 06:30 AM
Gary.Lowe

Code:

SELECT * FROM YourTable WHERE 1 = 2
Jul 2nd, 2002, 07:05 AM
Gaffer

Quote:

Originally posted by Manor39
I forgot to mention in my previous posting that it will end up as an excel spreadsheet. My plan was to sort the recordset and then dump the lot in one go to the spreadsheet, but I think I will have post each row as I'm sorting.

Regards
John.

There's nothing wrong with putting each line into the spreadsheet as long as you keep an instance of the spreadsheet open throughout - it may save you from having to construct complicated recordsets....

If you need help in this, just ask :)
Jul 2nd, 2002, 07:10 AM
Gaffer

Oh yeah, Gary's example is nice too

(his code, not his avatar ;):p )
Jul 2nd, 2002, 07:11 AM
Gary.Lowe

Quote:

Originally posted by Gaffer
Oh yeah, Gary's example is nice too

(his code, not his avatar ;):p )

I took me 3 hours to decide on that :mad: :p
Jul 2nd, 2002, 07:22 AM
Gaffer

Quote:

Originally posted by Gary.Lowe

I took me 3 hours to decide on that :mad: :p

dammit you changed it!!!!!! (thought you were still mr Vegas.... :rolleyes: )
Jul 2nd, 2002, 08:53 AM
Manor39
This works:
VB Code:
```
rs.Fields.Append "NewField", adVarChar, 50, adFldKeyColumn
rs.Open
```
Thanks for your help guys.