Update Problem einer Datenbank

  • VB6

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Nemesix.

    Update Problem einer Datenbank

    Hallo leibe Leute,
    ich wende mich mit einem für euch vermutlich simplen Problem an euch.

    Prolog:
    Ich habe von einer ehemaligen Kollegin eine Access "Inventur Datenbank" übernommen. Formulare wurden von ihr in VB geschrieben. Leider hab ich damit noch nie gearbeitet und habe ein kleines Problem.

    Problem:
    Ich habe eine Maske in welcher ich Daten eintrage, welche wiederum dann mit folgendem Befehl eine Tabelle Updaten sollen:

    Quellcode

    1. DoCmd.RunSQL ("UPDATE [Devices] SET [Raum] = neuerraum AND [MAC] = macad AND [Seriennummer] = serialnr WHERE edvnr = [EDV Nummer] AND sapnr = [SAP Nummer]")


    Jedoch wird in die Spalte [Raum] immer eine 0 oder -1 eingetragen.
    Für mich sieht der Befehl richtig aus, ist auch alles verständlich und daher bin ich absolut überfragt.
    [Raum] ist Text, da auch FB102 vorkommen kann als Raum.

    Ich hoffe ihr könnt mir helfen, in der Zwischenzeit werde ich mich einlesen.

    PS: Falsl ihr weitere Infos braucht sagt mir Bescheid!

    Ich geh davon aus du meinst was eingetragen wird?
    Eigentlich nur ne dreistellige Nummer "242" oder FB111 sowas in der art.
    Infos zu "neuerraum":
    Texformat: Nur Text


    Ansosnten hier mal das komplette Formular:

    Quellcode

    1. Option Compare Database
    3. Private Sub alterraum_BeforeUpdate(Cancel As Integer)
    5. End Sub
    7. Private Sub fill_form_Click()
    9. Me.AllowEdits = True
    11. Me!sapnr = DLookup("[Devices].[SAP Nummer]", "[Devices]", "edvnr=[Devices].[EDV Nummer]")
    12. Me!macad = DLookup("[Devices].[MAC]", "[Devices]", "edvnr=[Devices].[EDV Nummer]")
    13. Me!serialnr = DLookup("[Devices].[Seriennummer]", "[Devices]", "edvnr=[Devices].[EDV Nummer]")
    14. Me!alterraum = DLookup("[Devices].[Raum]", "[Devices]", "edvnr=[Devices].[EDV Nummer]")
    16. End Sub
    18. Private Sub change_clear_form_Click()
    20. 'Updaten des geänderten Devices
    21. DoCmd.RunSQL ("UPDATE [Devices] SET [Raum] = neuerraum AND [MAC] = macad AND [Seriennummer] = serialnr WHERE edvnr = [EDV Nummer] AND sapnr = [SAP Nummer]")
    23. 'Email verschicken
    24. 'Wenn in edvnr etwas steht, dann schicke mail
    25. If edvnr > "!" Then
    27. Dim olApp As Outlook.Application
    28. Dim olNamespace As NameSpace
    29. Dim objMailItem As MailItem
    30. Dim objFolder As mapiFolder
    31. Dim email_edv As String
    32. Dim email_incVW As String
    34. Set olApp = CreateObject("Outlook.Application")
    35. Set olNamespace = olApp.GetNamespace("MAPI")
    36. Set objFolder = olNamespace.GetDefaultFolder(olFolderInbox)
    37. Set objMailItem = objFolder.Items.Add(olMailItem)
    40. If sapnr <> "" Then
    41. 'email = "e.xample@hotmail.de"
    42. email = "e.xample@hotmail.de"
    43. Else
    44. email = "e.xample@hotmail.de"
    45. End If
    47. With objMailItem
    48. .To = email
    49. .Subject = "Geändertes Device"
    50. .Body = vbCr & "Der Standort des Geräts " & [sapnr] & " wurde geändert." & vbCr & vbCr & _
    51. "SAP Nummer: " & [sapnr] & vbCr & _
    52. "Neuer Raum: " & [neuerraum] & vbCr & vbCr & _
    53. "EDV Nummer: " & [edvnr] & vbCr & _
    54. "Alter Raum: " & [alterraum] & vbCr & _
    55. "Seriennr: " & [serialnr]
    56. 'If datei <> "" Then .Attachments.Add datei
    57. .Display
    59. End With
    61. olApp.ActiveWindow
    62. SendKeys "%s"
    64. End If
    66. 'Felder leeren
    67. Me.Undo
    70. End Sub
    71. Private Sub clear_form_Click()
    73. Me.Undo
    74. Me.alterraum = ""
    76. End Sub
    78. Private Sub close_form_Click()
    80. Me.Undo
    81. DoCmd.Close
    83. End Sub
    85. Private Sub neuerraum_AfterUpdate()
    87. End Sub
    89. Private Sub neuerraum_BeforeUpdate(Cancel As Integer)
    91. End Sub

    Oh man ich bin doof. Jetzt ist es mir wie Schuppen von den Augen gefallen.
    Du verbindest die SET mit AND.
    DAs geht nicht, du musst das mit Komma trennen.
    Also

    Visual Basic-Quellcode

    1. DoCmd.RunSQL ("UPDATE [Devices] SET [Raum] = neuerraum,[MAC] = macad, [Seriennummer] = serialnr WHERE edvnr = [EDV Nummer] AND sapnr = [SAP Nummer]")
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende