Hallo,
Ich habe ein Problem mit einem Sql Befehl in VBA. Benutze Excel 2007 und möchte auf einem MSSQL Server ein Update Befehl ausführen
Das mache ich wie folgt:
[code]
Sub DBSinaktiv()
Dim connect_string As String
Dim conn As New ADODB.Connection
Dim DBSinaktivsetzen As ADODB.Recordset
Dim nummer As Integer
nummer = FahrzeugeForm.LB1.Column(1)
connect_string = "driver={SQL Server};server=" & cSERVER & ";database=MIBEinkauf;uid=mibeinkauf_schreiber;pwd=kritzler1$"
'Recordset zuweisen
Set DBSinaktivsetzen = New ADODB.Recordset
'Db öffnen
conn.Open connect_string
DBSinaktivsetzen.Open _
"SELECT AutoID " & _
"FROM dbo.tbl_Auto " & _
"WHERE AutoID = '" & nummer & "' " & _
"GROUP BY AutoID " & _
"ORDER BY AutoID ", conn, adOpenKeyset, adLockOptimistic
If Not DBSinaktivsetzen.EOF Then
DBSinaktivsetzen.Fields("Aktivitätsstatus").Value = "inaktiv"
DBSinaktivsetzen.Update
End If
DBSinaktivsetzen.Close
Set DBSinaktivsetzen = Nothing
End Sub
[/code]
Und zwar suche ich zuerst nach dem Record wo AutoID meiner Zahl entspricht. Wenn diese gefunden wird, möchte ich im selben Record beim Feld Aktivitätsstatus den Wert auf Inaktiv setzen!
Was mache ich falsch?
Hoffe ihr könnt mir helfen! Danke... |