PDA

Vollständige Version anzeigen : Spaltenposition ansprechen


martin_
20.09.2001, 12:37
Wie kann ich aus einer Tabelle tbl1 die erste, dritte und vierte Spalte in eine neue Tabelle tbl2 abspeichern.
Das Problem hierbei ist, daß mir die Spaltennamen der tbl1 nicht bekannt sind (und ich ein Accessanfänger bin).
Wär klasse wenn mir jemand helfen könnte
Martin

Scorefun
20.09.2001, 17:19
am besten machst Du das über die Fields-Auflistung eines Recordsets:


dim db as databasse
dim rs1 as recordset
dim rs2 as recordset

set db = currentdb
set rs1 = db.openrecordset("tbl1")
set rs2 = db.openrecordset("tbl2")

rs1.movefirst

do while rs1.eof = false
rs2.addnew
rs2.fields(0) = rs1.fields(0)
rs2.fields(1) = rs1.fields(2)
rs2.fields(2) = rs1.fields(3)
rs2.update
rs1.movenext
loop
rs1.close : set rs1 = nothing
rs2.close : set rs2 = nothing
db.close: set db = nothing


Wobei die Fieldsauflistung immer bei 0 beginnt.
In meinem Fall werden die Spalten 1,3,4 von tbl1 in Spalte 1,2,3 der tbl2 kopiert.

HTH

Martin?
20.09.2001, 19:42
Funzt einwandfrei! :)
Ein riesengroßes Dankeschön!!!!! :)
Martin