28. März 2024, 10:11
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0407
  VB6: Probleme mit Zugriff von VB auf Access (Daten einfügen)
 Von Sascha
 Am 19. April 2008 um 19:48:53
 Frage Hi,

ich habe ein kleines VB Programm geschrieben, dass über zwei "Data Control" Elemente auf eine Access 2000 Datenbank zugreift.

Darin sind Kunden bzw. Kundenkontakte hinterlegt. Um Daten zu Erhalten benutze ich folgenden Code:
main_start.kunden_kontakte.RecordSource = "SELECT * FROM Kunden_Kontakte WHERE kunden_id = " & kunden_id

kunden_kontakte.Refresh

While kunden_kontakte.Recordset.EOF = False
kontakte_liste.AddItem kunden_kontakte.Recordset.Fields("kontakt_id")
kunden_kontakte.Recordset.MoveNext
Wend
Das klappt einwandfrei.

Nun mein Problem:

Um einen neuen Datensatz anzulegen benutze ich folgenden Code (er ist noch sehr unsauber)
kunden_id = kunden_daten.Recordset.Fields("kunden_id")
anliegen = anliegen.Text
bemerkung = Text2(4).Text
datum = Text7.Text

main_start.kunden_kontakte.RecordSource = "INSERT INTO Kunden_Kontakte(kunden_id, anliegen, bemerkung, datum) VALUES(kunden_id, anliegen, bemerkung, datum)"

kunden_kontakte.Refresh
Dies erzeugt bei mir folgenden Fehler:

RunTime Error 3219 Unzulässige Operation > kunden_kontakte.Refresh


Bedeutet dies, dass ich mit "select" zwar Daten auslesen, aber über den gleichen Weg kein "Insert into" absetzen kann oder ist meine Syntax bzw. Befehlswahl fehlerhaft?

Habe die Forensuche und Google schon knapp ne Stunde malträtiert, aber keiner von Beiden konnte mir (wirklich) weiterhelfen.

PS: Ich weiß, dass man auch ohne Data Control arbeiten könnte, aber für ein kleines Testprojekt reicht meines Erachtens die jetzige Methode vollkommen aus.

Vielen Dank im Vorraus
[ VB-/VBA-Forum | Archiv 0407 | Archiv-Übersicht ]
 Antworten
VB6: Probleme mit Zugriff von VB auf Access (Daten einfügen) - Sascha 19. April 2008 um 19:48:53
Re: Probleme mit Zugriff von VB auf Access (Daten einfügen) - Daniel 21. April 2008 um 13:08:53
Re: Probleme mit Zugriff von VB auf Access (Daten einfügen) - Sascha 21. April 2008 um 21:16:23

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum