INSERT INTO funktioniert nicht

the_lorn

Mitglied
Hi!

Ich versuche gerade ber vba meine Daten aus der alten Datenbank in meine neuen Tabellen (der neuen Datenbank) zu "importieren".
Da sich manche Spaltennamen und Spaltenanzahlen geändert haben benutze ich INSERT INTO. Das geht bei fast allen Tabellen außer drei!
Dort schreibt er nur genau einen Datensatz rein. Das wars! Kann mir einer von euch sagen woran das liegt?
Kann das damit zusammenhängen, dass sich in den neuen Tabellen die Schlüsselwerte verändert haben? Genauer sind die Schlüssel vom Typ String und sind jetzt 10 Stellen länger als in den orginalen Tabellen. Aber warum schreibt er dann einen Datensatz rein? Es gibt auch keine Fehlermeldung!

Möglicherweise weiß jemand wie ich auf einem anderen Weg meine Datensätze in die neuen Tabellen bekomme?!


thanks schon mal für Anregungen
 
Ich hab raus gefunden, wenn ich in meiner neuen Datenbank die Relationen lösche funktioniert das einfügen. Nun dacht ich mir ich kann das automatisch machen und mir die alten Relationen merken.
Also tat ich das...:

Code:
Global Re As Relations

Function delRelations(path As String) 
Dim db As Database
Dim rel As Relation
Set db = DBEngine.OpenDatabase(path)
Set Re = db.Relations
For Each rel In db.Relations
    writeLog (rel.Name)
    writeLog rel.Attributes
    writeLog rel.ForeignTable
    writeLog rel.Table
    writeLog "-----------------------"
    db.Relations.Delete rel.Name
Next rel
db.Close
End Function

Function createRelations(path As String)
Dim db As Database
Dim rel As Relation
Set db = DBEngine.OpenDatabase(path)
'Set Re = db.Relations
For Each rel In Re
    'writeLog (rel.Name)
    'writeLog rel.Attributes
    'writeLog rel.ForeignTable
    'writeLog rel.Table
    'writeLog "-----------------------"
    db.Relations.Append rel
Next rel
db.Close
End Function

wenn ich jetzt aber in meinem Sub button_click

'die ganzen Deklarationen
delRelations("c:\ archiv\daten.mdb")
db.execute "INSERT INTO......"
createRelation("c:\ archiv\daten.mdb")

eingebe und jetzt den Button klicke, sagt er mir das Re nicht mehr gültig ist. Oder so ähnlich.
Wie merk ich mir jetzt diese Relationen
Kann mir jemand helfen?

thanks
 
Zurück