Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

Syntaxis error (missing operator)

rredspike1 - 07/01/2009 16:06

Lid

Krijg een error:
Syntax error (missing operator) in query expression 'Geeft echt wel veel licht!!'.
OleDbException was unhandled

Wat betekend dit en wat moet ik eraan veranderen?

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub ProductWijzigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductWijzigen.Click

        Dim Productnaam = txtProductnaam.Text
        Dim Aantal = txtAantal.Text
        Dim Prijs = txtPrijs.Text
        Dim Omschrijving = txtOmschrijving.Text
        Dim Categorie = comCategorie.Text

        SQL = "UPDATE Producten SET Productnaam = " & Productnaam & ", Aantal = " & Aantal & ", Prijs = " & Prijs & ", Categorie = " & Categorie & ", Omschrijving = " & Omschrijving & " WHERE Productnr = " & ID
        Dim cmd As New OleDb.OleDbCommand(SQL, oCon)
        oCon.Open()
        cmd.ExecuteNonQuery()
        oCon.Close()
        LoadProducten()

    End Sub
            
Private Sub ProductWijzigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductWijzigen.Click
 
        Dim Productnaam = txtProductnaam.Text
        Dim Aantal = txtAantal.Text
        Dim Prijs = txtPrijs.Text
        Dim Omschrijving = txtOmschrijving.Text
        Dim Categorie = comCategorie.Text
 
        SQL = "UPDATE Producten SET Productnaam = " & Productnaam & ", Aantal = " & Aantal & ", Prijs = " & Prijs & ", Categorie = " & Categorie & ", Omschrijving = " & Omschrijving & " WHERE Productnr = " & ID
        Dim cmd As New OleDb.OleDbCommand(SQL, oCon)
        oCon.Open()
        cmd.ExecuteNonQuery()
        oCon.Close()
        LoadProducten()
 
    End Sub
 

10 antwoorden

Gesponsorde links

Abbas - 07/01/2009 16:15 (laatste wijziging 07/01/2009 16:17)

Crew .NET

Variabelen met hun type declareren is altijd beter! En bij getallen eventueel eerst nog een controle doen op IsNumeric() om te zien of het wel getallen zijn!

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Dim Productnaam As String = txtProductnaam.Text
Dim Aantal As Integer = CInt(txtAantal.Text)
Dim Prijs As Integer = CInt(txtPrijs.Text)
Dim Omschrijving As String = txtOmschrijving.Text
Dim Categorie As String = comCategorie.Text
            
Dim Productnaam As String = txtProductnaam.Text
Dim Aantal As Integer = CInt(txtAantal.Text)
Dim Prijs As Integer = CInt(txtPrijs.Text)
Dim Omschrijving As String = txtOmschrijving.Text
Dim Categorie As String = comCategorie.Text
 

In je SQL-string zet je string-variabelen tussen single en double quotes, getallen enkel tussen double quotes!

vbnet code - Bekijk de code zonder highlighting - Klap code in

                SQL = "UPDATE Producten SET Productnaam = '" & Productnaam & "', Aantal = " & Aantal & ", Prijs = " & Prijs & ", Categorie = '" & Categorie & "', Omschrijving = '" & Omschrijving & "' WHERE Productnr = " & ID
            
SQL = "UPDATE Producten SET Productnaam = '" & Productnaam & "', Aantal = " & Aantal & ", Prijs = " & Prijs & ", Categorie = '" & Categorie & "', Omschrijving = '" & Omschrijving & "' WHERE Productnr = " & ID

Edit:
In je foutmelding zie je staan "OleDbException was unhandled". Dit kan je gemakkelijk opvangen door Exception Handling toe te passen!

rredspike1 - 07/01/2009 16:20 (laatste wijziging 07/01/2009 16:25)

Lid

Die Aantal en die Prijs staan als string.. in de database..maargoed..

Krijg nu geen fout meer het pas niks aan..als ik op die knop druk

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub ProductWijzigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductWijzigen.Click

        Dim Productnaam As String = txtProductnaam.Text
        Dim Aantal As String = txtAantal.Text
        Dim Prijs As String = txtPrijs.Text
        Dim Omschrijving As String = txtOmschrijving.Text
        Dim Categorie As String = comCategorie.Text

        Try
            oCon.Open()
            SQL = "UPDATE Producten SET Productnaam = '" & Productnaam & "', Aantal = '" & Aantal & "', Prijs = '" & Prijs & "', Categorie = '" & Categorie & "', Omschrijving = '" & Omschrijving & "' WHERE Productnr = " & ID
        Catch ex As Exception
            Dim cmd As New OleDb.OleDbCommand(SQL, oCon)
            cmd.ExecuteNonQuery()
        Finally
            oCon.Close()
            LoadProducten()
        End Try

    End Sub

            
Private Sub ProductWijzigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductWijzigen.Click
 
        Dim Productnaam As String = txtProductnaam.Text
        Dim Aantal As String = txtAantal.Text
        Dim Prijs As String = txtPrijs.Text
        Dim Omschrijving As String = txtOmschrijving.Text
        Dim Categorie As String = comCategorie.Text
 
        Try
            oCon.Open()
            SQL = "UPDATE Producten SET Productnaam = '" & Productnaam & "', Aantal = '" & Aantal & "', Prijs = '" & Prijs & "', Categorie = '" & Categorie & "', Omschrijving = '" & Omschrijving & "' WHERE Productnr = " & ID
        Catch ex As Exception
            Dim cmd As New OleDb.OleDbCommand(SQL, oCon)
            cmd.ExecuteNonQuery()
        Finally
            oCon.Close()
            LoadProducten()
        End Try
 
    End Sub
 

Abbas - 07/01/2009 16:28

Crew .NET

Dan moet je je query ook aanpassen!

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub ProductWijzigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductWijzigen.Click

    Dim Productnaam As String = txtProductnaam.Text
    Dim Aantal As String = txtAantal.Text
    Dim Prijs As String = txtPrijs.Text
    Dim Omschrijving As String = txtOmschrijving.Text
    Dim Categorie As String = comCategorie.Text

    SQL = "UPDATE Producten SET Productnaam = '" & Productnaam & "', Aantal = '" & Aantal & "', Prijs = '" & Prijs & "', Categorie = '" & Categorie & "', Omschrijving = '" & Omschrijving & "' WHERE Productnr = " & ID
    Dim cmd As New OleDb.OleDbCommand(SQL, oCon)

    Try
        oCon.Open()
        cmd.ExecuteNonQuery()
    Catch x As Exception
        MessageBox.Show(x.Message)
    Finally
        oCon.Close()
        LoadProducten()
    End Try

End Sub
            
Private Sub ProductWijzigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductWijzigen.Click
 
    Dim Productnaam As String = txtProductnaam.Text
    Dim Aantal As String = txtAantal.Text
    Dim Prijs As String = txtPrijs.Text
    Dim Omschrijving As String = txtOmschrijving.Text
    Dim Categorie As String = comCategorie.Text
 
    SQL = "UPDATE Producten SET Productnaam = '" & Productnaam & "', Aantal = '" & Aantal & "', Prijs = '" & Prijs & "', Categorie = '" & Categorie & "', Omschrijving = '" & Omschrijving & "' WHERE Productnr = " & ID
    Dim cmd As New OleDb.OleDbCommand(SQL, oCon)
 
    Try
        oCon.Open()
        cmd.ExecuteNonQuery()
    Catch x As Exception
        MessageBox.Show(x.Message)
    Finally
        oCon.Close()
        LoadProducten()
    End Try
 
End Sub
 

Maar zeg, is die 'ID' wel gekend? Want ik zie nergens waar die een waarde heeft?!

rredspike1 - 07/01/2009 16:31 (laatste wijziging 07/01/2009 16:46)
Lid		Het geeft nergens een fout...maar zal eens kijken Die ID is dit: vbnet code - Bekijk de code zonder highlighting - Klap code in ID = GridOpdrProducten.Rows(index).Cells("Productnr").Value.ToString ID = GridOpdrProducten.Rows(index).Cells("Productnr").Value.ToString

Abbas - 07/01/2009 16:50
Crew .NET		En waar krijgt die z'n value? Want die staat nergens in de Sub "productWijzigen"!

rredspike1 - 07/01/2009 17:51
Lid		Die staat in een andere procedure

Wim - 07/01/2009 18:27
Crew algemeen		Dim Prijs As Integer = CInt(txtPrijs.Text) Prijs is een Double, integers ondersteunen geen komma's! Zet onder die ID = ... eens: Messagebox.show("ID: " & ID.ToString) en zeg eens wat de output is? Zelf al een beetje debuggen kan geen kwaad hoor...

rredspike1 - 07/01/2009 18:54 (laatste wijziging 07/01/2009 18:57)

Lid

Output: ID: 0

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub GridRegels_Opdrachten_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles GridRegels_Opdrachten.DragDrop
        Dim index As Integer = Convert.ToInt32(e.Data.GetData(Type.GetType("System.Int32")))
        ID = 0
        ID = GridOpdrProducten.Rows(index).Cells("Productnr").Value.ToString
        cmdToevoegen_Click(sender, EventArgs.Empty)
    End Sub

            
Private Sub GridRegels_Opdrachten_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles GridRegels_Opdrachten.DragDrop
        Dim index As Integer = Convert.ToInt32(e.Data.GetData(Type.GetType("System.Int32")))
        ID = 0
        ID = GridOpdrProducten.Rows(index).Cells("Productnr").Value.ToString
        cmdToevoegen_Click(sender, EventArgs.Empty)
    End Sub
 

Beetje debuggen kan geen kwaad, nee inderdaad!
Daarom doe ik dit ook

Abbas - 07/01/2009 22:36
Crew .NET		Waarom zet je die ID op 0?!

rredspike1 - 07/01/2009 23:00
Lid		Ik heb werkelijk geen idee hahaha

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten