Schreiben in ACCESS Datenbank

Computer: Software & Programmierung Visual Basic
#1

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

#2

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

#3

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 …

#4

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

#5

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

Besten Dank.

Gruß
Gunter