Hallo Leute,
ich möchte die Datensätze einer Tabelle „Kurse“ in einzelne Tabellen überführen.
Wenn also der erste Datensatz der Tabelle gelesen wurde, soll zunächst nachgesehen werden, ob schon eine Tabelle mit der Bezeichnung aus der ersten Spalte (ISIN) besteht oder nicht.
Besteht eine Tabelle bereits, soll der Datensatzhineingeschrieben werden.
besteht noch keine Tabelle, soll eine erstellt werden und dann hineingeschrieben werden.
Das hab ich bisher:
Public Sub Kurseaufteilung()
Dim db As Database
Set db = DBEngine.Workspaces(0).Databases(0)
Dim recLesen, recSchreiben, recISIN As Recordset
Dim intPos As Variant
Dim ISIN As String
Set recLesen = db.OpenRecordset(„Select * From Kurse Order By ISIN DESC“)
Set recSchreiben = db.OpenRecordset(„Select * From ISIN“)
Do Until recLesen.EOF…
Kann jemand weiterhelfen ?
Christian