vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
In eine bestehende Datenbank-Tabelle zusätzliche Felder einf...1.604emersonlakeandp...01.12.17 13:31
Re: In eine bestehende Datenbank-Tabelle zusätzliche Felder ...692Manfred X01.12.17 13:52
Re: In eine bestehende Datenbank-Tabelle zusätzliche Felder ...693emersonlakeandp...01.12.17 14:40
Re: In eine bestehende Datenbank-Tabelle zusätzliche Felder ...710Manfred X01.12.17 16: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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel