Hallo,
habe folgendes zum schreiben eines Feldes in eine ACCESS Datenbank in VB6 programmiert, funktioniert aber nicht:
strSQL = „UPDATE tblDetail " & " SET comment = '“ & Kommentar & _
"’ WHERE Detail_ID = " & ID
Set objConnection = New ADODB.Connection
With objConnection
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Provider = „Microsoft.Jet.OLEDB.4.0“
.ConnectionString = DB
.Open
End With
On Error GoTo Error_exit
Set objRS = New ADODB.Recordset
With objRS
Set .ActiveConnection = objConnection
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = strSQL
Call .Open
objConnection.Close
End With
Es tritt kein Fehler auf, aber das Feld ‚comment‘ wird nicht befüllt.
Was mache ich falsch?
Gruß
Gunter
Hallo,
strSQL = „UPDATE tblDetail " & " SET comment = '“ & Kommentar
& _
"’ WHERE Detail_ID = " & ID
Es tritt kein Fehler auf, aber das Feld ‚comment‘ wird nicht
befüllt.
Was mache ich falsch?
Hallo Gunter,
der SQL ist m.E. richtig (auch die Hochkommas nicht vergessen).
Aber Du hast das .Execute strSQL vergessen …
Gruß
Klaus
Hallo Klaus,
wenn ich
.Execute strSQL
einbaue, bekomme ich einen Fehler: Methode nicht gefunden.
Gruß
Gunter
Hallo Gunter,
der SQL ist m.E. richtig (auch die Hochkommas nicht
vergessen).
Aber Du hast das .Execute strSQL vergessen …
Hi Gunter,
sorry …
So müsstes heissen:
Dim cm As ADODB.Command
Dim iAnzRecs As Integer
Set cm = New ADODB.Command
cm.ActiveConnection = cn
cm.CommandType = adCmdText
cm.CommandText = strSQL
cm.Execute iAnzRecs, , adExecuteNoRecords
Hallo Klaus,
ich wage es kaum zu sagen - sowohl mein erster Versuch als auch dein letzter Vorschlag funktioniert.
Ich habe immer in meiner Sichergungsdatenbank geschaut, anstatt der aktuellen 
Besten Dank.
Gruß
Gunter