Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Relaionen erstellen!
Autor: Spike
Datum: 30.12.01 23:11
Hi, ich habe versucht, mittels eures Tipps zum Erstellen von Relationen, welche in meiner DB zu erstellen. Doch jedesmal wenn ich die Funktion aufrufe, erhalte ich bei der Zeile "db.Relations.Append mRel" die Meldung "Fehler 3001, ungültiges Argument!" Hier ist die Funktion: Public Function set_relations() Dim Fld As Field Dim mRel As Relation ' Öffnen der bestehenden Datenbank im exklusiv Modus Set db = DBEngine.openDatabase(dbFile, True, False) ' 1: N - referentielle Integrität Set mRel = db.CreateRelation("RelA") With mRel ' Primarytable einstellen .Table = "Kunden" ' Referenzierte Tabelle einstellen .ForeignTable = "Termine" ' Verknüpfung als 1:N Beziehung deklarieren .Attributes = dbRelationUpdateCascade & _ dbRelationDeleteCascade ' Gemeinsames Datenfeld erzeugen Set Fld = .CreateField("Kundennummer") Fld.ForeignName = "Kundennummer" .Fields.Append Fld End With db.Relations.Append mRel Set mRel = Nothing db.Close End Function In der Tabelle "Kunden" ist das Feld "Kundennummer" der Primärschlüssel, in der Tabelle "Termine" ist das Feld "Kundennummer" der Index.

Relaionen erstellen!	46	Spike	30.12.01 23:11
Re: Relaionen erstellen!	255	unbekannt	31.12.01 01:15
Re: Relaionen erstellen!	27	Spike	31.12.01 10:37
Danke.	342	unbekannt	31.12.01 12:44

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen