[ EmirSuvalic @ 24.08.2012. 12:54 ] @
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() |