Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Create Table Access
Autor: Leominora
Datum: 19.09.02 09:27
Function Zahl() On Error GoTo Errorhandler 'Tabelle Dim oCat As ADOX.Catalog Dim oTab As ADOX.Table Dim ocol As ADOX.Column Dim idx As ADOX.Index Set oCat = New ADOX.Catalog Set idx = New ADOX.Index oCat.ActiveConnection = ... Set oTab = New ADOX.Table oTab.Name = "dbo.Zahl" Set oTab.ParentCatalog = oCat With oTab.Columns Set ocol = New ADOX.Column ocol.Name = "ID" ocol.Type = adInteger Set ocol.ParentCatalog = oCat .Append ocol End With 'Indizes idx.Name = "ZahlPKey" idx.Columns.Append "ID" idx.PrimaryKey = True idx.Unique = True oTab.Indexes.Append idx oCat.Tables.Append oTab das geht nicht nr für Integer-Spalten oder über sql: Beispiel aus SQL-Hilfe Dieses Beispiel erstellt eine neue Tabelle mit zwei Textfeldern und einem ganzzahligen Feld. Das Feld Ausweisnummer ist der Primärschlüssel. Sub CreateTableX3() Dim dbs As Database ' Verändern Sie diese Zeile, um den Pfad für ' Nordwind auf dem Computer anzugeben. Set dbs = OpenDatabase("Nordwind.mdb") ' Eine Tabelle mit drei Feldern und einem ' Primärschlüssel erstellen. dbs.Execute "CREATE TABLE NeueTabelle " _ & "(Vorname TEXT, Nachname TEXT, " _ & "Ausweisnummer INTEGER " & _ & CONSTRAINT Feldeinschränkung" _ & "PRIMARY KEY);" dbs.Close End Sub

Create Table Access	82	Legolas	19.09.02 09:12
Re: Create Table Access	69	Leominora	19.09.02 09:27
Danke, das hilft (oT)	46	Legolas	19.09.02 09:33

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