VB: Too many fields in an openrecordset statement. 2

[MarkRobinson]

I've got a table with 68 fields. Too long to fit into an opebrecordset statement. I had to split them up as below.
Seems sloppy.
Is there a better way?

Even better, is there a statement like:
Set rs1 = db.openrecordset("SELECT MECdata.* from MECdata;&quot
that selects all fields in the table?

here's my current code:

Set db = CurrentDb
stmt1 = "MECdata.Time, MECdata.Stat, MECdata.NdType0, MECdata.NdID0, MECdata.Volt0, MECdata.PVPwr0, MECdata.LoadPwr0, MECdata.PVKWH0, MECdata.LoadKWH0, MECdata.ACKWH0, MECdata.MCMErr0, MECdata.MCMStat0, MECdata.tab1, MECdata.NdType1, MECdata.NdID1, MECdata.Volt1, MECdata.PVPwr1, MECdata.LoadPwr1, MECdata.PVKWH1, MECdata.LoadKWH1, MECdata.ACKWH1, MECdata.MCMErr1, MECdata.MCMStat1, MECdata.tab2, MECdata.NdType2, MECdata.NdID2, MECdata.Volt2, MECdata.PVPwr2, MECdata.LoadPwr2, MECdata.PVKWH2, MECdata.LoadKWH2, MECdata.ACKWH2, MECdata.MCMErr2, MECdata.MCMStat2,MECdata.tab3,"
stmt2 = "MECdata.NdType3, MECdata.NdID3, MECdata.Volt3, MECdata.PVPwr3, MECdata.LoadPwr3, MECdata.PVKWH3, MECdata.LoadKWH3, MECdata.ACKWH3, MECdata.MCMErr3, MECdata.MCMStat3, MECdata.NdType4, MECdata.tab4, MECdata.NdID4, MECdata.Volt4, MECdata.PVPwr4, MECdata.LoadPwr4, MECdata.PVKWH4, MECdata.LoadKWH4, MECdata.ACKWH4, MECdata.MCMErr4, MECdata.MCMStat4, MECdata.tab5, MECdata.NdType5, MECdata.NdID5, MECdata.Volt5, MECdata.PVPwr5, MECdata.LoadPwr5, MECdata.PVKWH5, MECdata.LoadKWH5, MECdata.ACKWH5, MECdata.MCMErr5, MECdata.MCMStat5, MECdata.tab6 FROM MECdata;"
stmt = "Select " & stmt1 & stmt2
Set rs1 = db.openrecordset(stmt)

 

[rdodge]

With SQL Writing and using MS Jet 4.0 DB Engine, you can use the following SELECT code:

SELECT MECdata.* FROM MECdata;

to select all fields within the "MECdata" table.

So your OpenRecordset Method would be something like:

Set rst = CurrentDB.OpenRecordset("SELECT * FROM MECdata;",dbOpenDynaset,dbSeeChanges,dbPessimistic)

Ronald R. Dodge, Jr.
Production Statistician
Master MOUS 2000
When the going gets tough, the tough gets going.

 

[MarkRobinson]

Thanks.
Yes, I guess it was pretty obvious...