Duplicate empty recordset

[cedx]

Hi,

How do I make a copy of a recordset with just the field names in it without any data?

I tried the Clone method but it does not seems to work with a declared recordset and a recordset from a Data control.

This is the code I used:

Dim rs as Recordset
set rs.Clone = Data1.Recordset

Thanks in advance.

[Clunietp]

Dim fld As DAO.Field
Dim tbl As DAO.TableDef

Set tbl = New TableDef

For Each fld In Data1.Recordset.Fields

tbl.Fields.Append tbl.CreateField(fld.Name, fld.Type, fld.Size)

Next fld


MsgBox tbl.Fields.Count


I don't know what you want to do with the tabledef afterwards, but there it is!

Tom

[JHausmann]

select *
insert into output_tbl
from input_tbl
where 1=0


works in SQL Server

[pardede]

just a little modification to hausmann's suggestion, the code find VB-sql is:

SELECT * INTO outputtable
FROM inputtable WHERE False