CODEWITHSUNDEEP
vb.netms-access
Dark Horse
Dark Horse

Reputation: 13

Error in updating MS Access database with Visual Basic 2010

This code is not working. An error message pops up saying:

Syntax Error (missing operator) in query exprssion SubName = Gussing Game.

Here is my code please help. I need this code to update the Microsoft Access Database.

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Try
        Dim Str As String
        Con.Open()

        Str = "update vb set AssignDate="
        Str += """" & txtADate.Text & """"
        Str += "where SubName = "
        Str += txtAName.Text.Trim()
        Cmd = New OleDbCommand(Str, Con)
        Cmd.ExecuteNonQuery()
        Con.Close()
        Con.Open()

        Str = "update vb set DueDate="
        Str += """" & txtDDate.Text & """"
        Str += "where SubName = "
        Str += txtAName.Text.Trim()
        Cmd = New OleDbCommand(Str, Con)
        Cmd.ExecuteNonQuery()
        Con.Close()
        Con.Open()

        Str = "update vb set Weight="
        Str += """" & txtWeight.Text & """"
        Str += "where SubName = "
        Str += txtAName.Text.Trim()
        Cmd = New OleDbCommand(Str, Con)
        Cmd.ExecuteNonQuery()
        Con.Close()
        Con.Open()

        Str = "update vb set Reference="
        Str += """" & txtReference.Text & """"
        Str += "where SubName = "
        Str += txtAName.Text.Trim()
        Cmd = New OleDbCommand(Str, Con)
        Cmd.ExecuteNonQuery()
        Con.Close()
        Con.Open()

        Str = "update vb set Comment="
        Str += """" & txtComment.Text & """"
        Str += " where SubName ="
        Str += txtAName.Text.Trim()
        Cmd = New OleDbCommand(Str, Con)
        Cmd.ExecuteNonQuery()
        Con.Close()
        Con.Open()

        Str = "update vb set Statues="
        Str += """" & txtStatues.Text & """"
        Str += " where SubName ="
        Str += txtAName.Text.Trim()
        Cmd = New OleDbCommand(Str, Con)
        Cmd.ExecuteNonQuery()
        Con.Close()

        Dst.Clear()
        Dad = New OleDbDataAdapter("SELECT * FROM vb ORDER BY SubName", Con)
        Dad.Fill(Dst, "assignment")
        MessageBox.Show("Record Updated!", "Caution", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Catch ex As Exception
        MsgBox(ex.Message & "," & ex.Source)
    End Try
    Con.Close()
End Sub

Upvotes: 0

Views: 109

Answers (1)

Blindy
Blindy

Reputation: 67524

You didn't quote the string scalar you compare SubName with:

    Str = "update vb set AssignDate="
    Str += """" & txtADate.Text & """"
    Str += "where SubName = "
    Str += txtAName.Text.Trim()  ' should be """"&txtAName.Text.Trim()&""""

I'll skip over what an extremely bad way of querying this is.

Upvotes: 1

Related Questions