Thema Datum  Von Nutzer Rating
Antwort
Rot SQL und VBA
 09.12.2010 11:35:07 Dominik
NotSolved

Ansicht des Beitrags:
Von:
Dominik		 Datum:
09.12.2010 11:35:07		 Views:
1557		 Rating:
     
Antwort:
  Ja
Thema:
SQL und VBA
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...

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot SQL und VBA
 09.12.2010 11:35:07 Dominik
NotSolved