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:
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()