[es] - Syntax Error INSERT INTO statement

EmirSuvalic
Student FIT
Mostar, BiH

Član broj: 279359
Poruke: 23
89.146.168.*

Profil

^{24.08.2012. u 12:54 - pre 141 meseci}

Ovo je kompletan kod dugmeta:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stavka As New ListViewItem(BrojStavkeTextBox.Text)
        Dim cmd As New OleDb.OleDbCommand

        UkupnoRabaTextBox.Text = KolicinaTextBox.Text * CijenaTextBox.Text * RabatTextBox.Text / 100
        Ukupno_KM_s_PDVTextBox.Text = KolicinaTextBox.Text * CijenaTextBox.Text - UkupnoRabaTextBox.Text
        KM_BPDV_aTextBox1.Text = Ukupno_KM_s_PDVTextBox.Text / 1.17

        ListView1.Items.Add(stavka)
        stavka.SubItems.Add(ComboBox3.Text)
        stavka.SubItems.Add(JMTextBox.Text)
        stavka.SubItems.Add(KolicinaTextBox.Text)
        stavka.SubItems.Add(CijenaTextBox.Text)
        stavka.SubItems.Add(RabatTextBox.Text)
        stavka.SubItems.Add(UkupnoRabaTextBox.Text)
        stavka.SubItems.Add(KM_BPDV_aTextBox1.Text)
        stavka.SubItems.Add(Ukupno_KM_s_PDVTextBox.Text)

        If Not con.State = ConnectionState.Open Then
            con.Open()
        End If
        cmd.Connection = con
        If Me.BrojStavkeTextBox.Tag & "" = "" Then
            cmd.CommandText = "INSERT INTO RACUNI_STAVKE(BrojStavke, BrojRacuna, Artikal, Kolicina, Cijena, Rabat, Datum, DatumOtpr, BrojFRN, Kupac, BrojOtpremnice, Napomena, UkupnoRaba, Ukupno KM s PDV, KM PDV-a) " & _
                            " VALUES(" & Me.BrojStavkeTextBox.Text & ",'" & Me.BrojRacunaTextBox.Text & "','" & _
                            Me.ComboBox3.Text & "','" & KolicinaTextBox.Text & "','" & _
                            Me.CijenaTextBox.Text & "', '" & Me.RabatTextBox.Text & "','" & Me.DatumDateTimePicker.Value & "', '" & Me.DatumOtprDateTimePicker.Value & "', '" & Me.BrojFRNTextBox.Text & "', '" & Me.ComboBox1.Text & "', '" & Me.BrojOtpremniceTextBox.Text & "', '" & Me.UkupnoRabaTextBox.Text & "', '" & Me.Ukupno_KM_s_PDVTextBox.Text & "', '" & Me.KM_BPDV_aTextBox1.Text & "')"
            cmd.ExecuteNonQuery()

        Else
            cmd.CommandText = "UPDATE RACUNI_STAVKE " & _
                        " SET BrojStavke=" & Me.BrojStavkeTextBox.Text & _
                        ", BrojRacuna='" & Me.BrojRacunaTextBox.Text & "'" & _
                        ", Artikal='" & Me.ComboBox3.Text & "'" & _
                        ", Kolicina='" & Me.KolicinaTextBox.Text & "'" & _
                        ", Cijena='" & Me.CijenaTextBox.Text & "'" & _
                        ", Rabat='" & Me.RabatTextBox.Text & "'" & _
                        ", Datum='" & Me.DatumDateTimePicker.Value & "'" & _
                        ", DatumOtpr='" & Me.DatumOtprDateTimePicker.Value & "'" & _
                        ", BrojFRN='" & Me.BrojFRNTextBox.Text & "'" & _
                        ", Kupac='" & Me.ComboBox1.Text & "'" & _
                        ", BrojOtpremnice='" & Me.BrojOtpremniceTextBox.Text & "'" & _
                        ", UkupnoRaba='" & Me.UkupnoRabaTextBox.Text & "'" & _
                        ", Ukupno KM s PDV='" & Me.Ukupno_KM_s_PDVTextBox.Text & "'" & _
                        ", KM BPDV-a='" & Me.KM_BPDV_aTextBox1.Text & "'" & _
                        " WHERE stdid=" & Me.BrojStavkeTextBox.Tag
        End If

        con.Close()

        BrojStavkeTextBox.Text = String.Empty
        ComboBox3.Text = String.Empty
        JMTextBox.Text = String.Empty
        KolicinaTextBox.Text = String.Empty
        CijenaTextBox.Text = String.Empty
        CijenaTextBox1.Text = String.Empty
        RabatTextBox.Text = String.Empty
        UkupnoRabaTextBox.Text = String.Empty
        KM_BPDV_aTextBox1.Text = String.Empty
        Ukupno_KM_s_PDVTextBox.Text = String.Empty
        BrojStavkeTextBox.Focus()
    End Sub

a u ovom dijelu javlja grešku:

Code:
If Not con.State = ConnectionState.Open Then
            con.Open()
        End If
        cmd.Connection = con
        If Me.BrojStavkeTextBox.Tag & "" = "" Then
            cmd.CommandText = "INSERT INTO RACUNI_STAVKE(BrojStavke, BrojRacuna, Artikal, Kolicina, Cijena, Rabat, Datum, DatumOtpr, BrojFRN, Kupac, BrojOtpremnice, Napomena, UkupnoRaba, Ukupno KM s PDV, KM PDV-a) " & _
                            " VALUES(" & Me.BrojStavkeTextBox.Text & ",'" & Me.BrojRacunaTextBox.Text & "','" & _
                            Me.ComboBox3.Text & "','" & KolicinaTextBox.Text & "','" & _
                            Me.CijenaTextBox.Text & "', '" & Me.RabatTextBox.Text & "','" & Me.DatumDateTimePicker.Value & "', '" & Me.DatumOtprDateTimePicker.Value & "', '" & Me.BrojFRNTextBox.Text & "', '" & Me.ComboBox1.Text & "', '" & Me.BrojOtpremniceTextBox.Text & "', '" & Me.UkupnoRabaTextBox.Text & "', '" & Me.Ukupno_KM_s_PDVTextBox.Text & "', '" & Me.KM_BPDV_aTextBox1.Text & "')"
            cmd.ExecuteNonQuery()

        Else
            cmd.CommandText = "UPDATE RACUNI_STAVKE " & _
                        " SET BrojStavke=" & Me.BrojStavkeTextBox.Text & _
                        ", BrojRacuna='" & Me.BrojRacunaTextBox.Text & "'" & _
                        ", Artikal='" & Me.ComboBox3.Text & "'" & _
                        ", Kolicina='" & Me.KolicinaTextBox.Text & "'" & _
                        ", Cijena='" & Me.CijenaTextBox.Text & "'" & _
                        ", Rabat='" & Me.RabatTextBox.Text & "'" & _
                        ", Datum='" & Me.DatumDateTimePicker.Value & "'" & _
                        ", DatumOtpr='" & Me.DatumOtprDateTimePicker.Value & "'" & _
                        ", BrojFRN='" & Me.BrojFRNTextBox.Text & "'" & _
                        ", Kupac='" & Me.ComboBox1.Text & "'" & _
                        ", BrojOtpremnice='" & Me.BrojOtpremniceTextBox.Text & "'" & _
                        ", UkupnoRaba='" & Me.UkupnoRabaTextBox.Text & "'" & _
                        ", Ukupno KM s PDV='" & Me.Ukupno_KM_s_PDVTextBox.Text & "'" & _
                        ", KM BPDV-a='" & Me.KM_BPDV_aTextBox1.Text & "'" & _
                        " WHERE stdid=" & Me.BrojStavkeTextBox.Tag
        End If

        con.Close()

Odgovor na temu

ssi

Član broj: 305920
Poruke: 333
*.static.sbb.rs.

+377 Profil

Re: Syntax Error INSERT INTO statement

^{07.09.2012. u 10:42 - pre 141 meseci}

Emire, ovo:

Code:

cmd.CommandText = "INSERT INTO RACUNI_STAVKE(BrojStavke, BrojRacuna, Artikal, Kolicina, Cijena, Rabat, Datum, DatumOtpr, BrojFRN, Kupac, BrojOtpremnice, Napomena, UkupnoRaba, Ukupno KM s PDV, KM PDV-a) " & _
                            " VALUES(" & Me.BrojStavkeTextBox.Text & ",'" & Me.BrojRacunaTextBox.Text & "','" & _
                            Me.ComboBox3.Text & "','" & KolicinaTextBox.Text & "','" & _
                            Me.CijenaTextBox.Text & "', '" & Me.RabatTextBox.Text & "','" & Me.DatumDateTimePicker.Value & "', '" & Me.DatumOtprDateTimePicker.Value & "', '" & Me.BrojFRNTextBox.Text & "', '" & Me.ComboBox1.Text & "', '" & Me.BrojOtpremniceTextBox.Text & "', '" & Me.UkupnoRabaTextBox.Text & "', '" & Me.Ukupno_KM_s_PDVTextBox.Text & "', '" & Me.KM_BPDV_aTextBox1.Text & "')"

je jedna velika greska. Tačnije to je katastrofa i govori jasno da si 100% početnik.

Zamisli da korisnik unese neki specijalni znak u text box, recimo apostrof ' i eto sintaksne greske.

pogledaj ovaj primer za upotrebu SqlCommand object-a:

Lesson 06

Ne bi bilo lose da, ako radis neki veci i ozbiljnij projekat, koristis linq2sql, Entity Framework ili NHibernate.

Odgovor na temu