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 |
|