Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

In eine bestehende Datenbank-Tabelle zusätzliche Felder einfügen
Autor: emersonlakeandpalmer
Datum: 01.12.17 13:31
Ich muß in bereits bestehende Datenbanken in die Tabelle "Auftrag" erweitern in dem ichzusätzliche Felder anhänge. Dies versuche ich mit dem folgenden Code: Private Sub Command5_Click() Dim xn As ADODB.Connection Dim xs As ADODB.Recordset Set xn = New ADODB.Connection With xn .Mode = adModeReadWrite .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = File2.Path + "\" + File2.List(File2.ListIndex) .Open Set xs = New ADODB.Recordset With xs .ActiveConnection = xn .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Source = "Auftrag" .Open .Fields.Append "Benennung", adVarChar, 255 '<<<<< Fehlermeldung .Save End With .Close End With End Sub Beim Anhängen des Feldes erhalte ich die Fehlermeldung: Laufzeitfehler 3219 Der Vorgang ist in diesem Zusammenhang nicht zugelassen. Was mache ich falsch, kann mir jemand helfen? Im Voraus vielen Dank. Mart Schmidt

Re: In eine bestehende Datenbank-Tabelle zusätzliche Felder einfügen
Autor: Manfred X
Datum: 01.12.17 13:52
Hallo! Schau mal hier (unter Abschnitt 2.7): http://www.vbarchiv.net/workshop/workshop_83-strukturaenderungen-an-der-datenbank.html

Re: In eine bestehende Datenbank-Tabelle zusätzliche Felder einfügen
Autor: emersonlakeandpalmer
Datum: 01.12.17 14:40
Danke für den Hinweis, das hatte ich auch schon gesehen, aber ich verstehe nicht wie das syntaxtisch in mein Konstrukt umsetzen soll. Oder anders ausgedrückt, wo ist der Unterschied? elp

Re: In eine bestehende Datenbank-Tabelle zusätzliche Felder einfügen
Autor: Manfred X
Datum: 01.12.17 16:44
Du benötigst ADOX um eine Datenbank-Struktur zu ändern. [I]Microsoft hat zusätzlich die ADOX-Bibliothek entwickelt, die einen einfachen, vom Datenbankprodukt unabhängigen Zugriff auf Datendefinitionen- und Sicherheitsfunktionen ermöglichen sollen. Voraussetzung für den Einsatz von ADOX ist allerdings, dass der OLE-DB-Provider die entsprechende Funktionalität bereitstellt. Allgemein ist es jedoch so, dass nur der Jet 4.0 OLE-DB-Provider fast alle ADOX Funktionen unterstützt. Letztendlich bedeutet dies, dass ADOX eigentlich nur für Access-Datenbanken eingesetzt werden kann.[/I] Über eine ADODB-Connection: Dim cat As New ADOX.Catalog Dim tbl As ADOX.Table cat.ActiveConnection = pcnn 'die Connection   ' // Tabelle zuweisen Set tbl = cat.Tables(psTable) ....

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