Create Blank Recordset

**Manor39** · Jul 2nd, 2002, 05:12 AM

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

**Gaffer** · Jul 2nd, 2002, 05:59 AM

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...)

**Manor39** · Jul 2nd, 2002, 06:18 AM

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.

**Gary.Lowe** · Jul 2nd, 2002, 06:30 AM

Code:

 SELECT * FROM YourTable WHERE 1 = 2

**Gaffer** · Jul 2nd, 2002, 07:05 AM

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

**Gaffer** · Jul 2nd, 2002, 07:10 AM

Oh yeah, Gary's example is nice too

(his code, not his avatar

)

**Gary.Lowe** · Jul 2nd, 2002, 07:11 AM

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

(his code, not his avatar )

I took me 3 hours to decide on that

**Gaffer** · Jul 2nd, 2002, 07:22 AM

Originally posted by Gary.Lowe

I took me 3 hours to decide on that

dammit you changed it!!!!!! (thought you were still mr Vegas....

)

**Manor39** · Jul 2nd, 2002, 08:53 AM

This works:

VB Code:

rs.Fields.Append "NewField", adVarChar, 50, adFldKeyColumn
rs.Open

Thanks for your help guys.

Thread: Create Blank Recordset

Thread Tools

Display

Create Blank Recordset

Posting Permissions