PDA

Vollständige Version anzeigen : Daten in verschiedene Tabellen verschieben


HPG
23.10.2001, 18:56
Hallo NG,

wie macht ihr folgendes ?

Daten stehen in einer Tabelle (nach einlesen) und sollen dann, je nach Nummer, auf drei verschieden Tabellen verschoben (nicht kopiert) werden. Ich dachte in etwa, nach Klick auf einen Button.

Beispiel: alle geraden Nummern nach Tab X, alle ungeraden nach Y und alle, die keines der Kriterien haben nach Tab Z.

Hat jemand einen Lösungsansatz oder einen Tipp ?

Vielen Dank im voraus
Hans-Peter

Andi_D
23.10.2001, 19:23
Da gibs mehrere Möglichkeiten. Die DAO-Variante würde etwa so aussehen...

Dim dbs As Database
Dim rst As Recordset
Dim rstX As Recordset
Dim rstY As Recordset
Dim strKriterien As String

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset("DeineQuellTabelle", dbOpenDynaset)
Set rstX = dbs.OpenRecordset("DeineTabelleX", dbOpenDynaset)
Set rstY = dbs.OpenReordset("DeineTabelleY", dbOpenDynaset)

rst.MoveFirst
Do Until rst.EOF = True
If rst("DeinFeld") = "Dein gesuchter Wert" Then
rstX.AddNew
rstX("DeinFeld") = rst("DeinFeld")
rstX.Update
Else
rstY.AddNew
rstY("DeinFeld") = rst("DeinFeld")
rstY.Update
End If

rst.MoveNext
Loop

Gruz Andi...

HPG
23.10.2001, 19:47
Hallo Andi,

klingt plausibel, wird bestimmt so funktionieren, jetzt, wo ich die Lösung sehe.

Noch eine Frage:
Kann Tabelle Y z.B. auch in einer anderen Datenbank sein ?
Übergebe ich da genauso ?
Was müßte dann bei SET DB= stehen ?

Danke
Hans-Peter

Andi_D
23.10.2001, 20:02
Set db = DBEngine.OpenDatabase("C:\Programme\DeineDB.mdb")
'oder wo auch immer... *g*

Gruz Andi...