vb.net Sql server bağlantılı stok bölümümde elden çıkan miktarı girdikten sonra stokdan okadar düşmesini eğer mevcutta yoksa hata vermesini istiyorum daha önce yazdım fakat şuan ne eski yazdığım kodu bulabiliyorum nede tekrar yazabiliyorum hata alıyorum yardımcı olabilicek varmı bu konuda ?

Tablo yapısını ve kodları görmek lazım.

If Val(TextBox12.Text) < Val(TextBox19.Text) Then



           MessageBox.Show("Yeterli Stok Bulunmamaktadır", "Stok Uyarısı")

      Else

          DataGridView1.RowCount += 1

          Me.DataGridView1.Rows(i).Cells(0).Value = DateTimePicker1.Text

          Me.DataGridView1.Rows(i).Cells(1).Value = ComboBox1.Text

          Me.DataGridView1.Rows(i).Cells(2).Value = TextBox11.Text

          Me.DataGridView1.Rows(i).Cells(3).Value = ComboBox2.Text

          Me.DataGridView1.Rows(i).Cells(4).Value = TextBox10.Text

          Me.DataGridView1.Rows(i).Cells(5).Value = TextBox19.Text

          Me.DataGridView1.Rows(i).Cells(6).Value = TextBox14.Text

          Me.DataGridView1.Rows(i).Cells(7).Value = (Val(TextBox14.Text) * Val(TextBox19.Text) + Val(TextBox22.Text))

          i += 1

          If ComboBox1.SelectedItem = "Onarım" Then

              TextBox18.Text = ""

              TextBox18.Text = Val(TextBox12.Text) - Val(TextBox19.Text)

              Dim con99 As New SqlConnection

              Dim cmd99 As New SqlCommand

              Try

                  con99.ConnectionString = "Data Source=.\SQLEXPRESS;Initial Catalog=otomasyon;Persist Security Info=True;User ID=sa;Password=48586060"

                  con99.Open()

                  cmd99.Connection = con99

                  cmd99.CommandText = "UPDATE tbl_onarim SET adet =  '" & TextBox18.Text & "' WHERE stokkodu = '" & TextBox11.Text & "'"

                  cmd99.ExecuteNonQuery()

              Catch ex As Exception

                  MessageBox.Show("Error while updating record on table..." & ex.Message, "Update Records")

              Finally

                  con99.Close()

              End Try

          ElseIf ComboBox1.SelectedItem = "Bakım" Or ComboBox1.SelectedItem = "Periyodik Bakım" Then

              TextBox18.Text = ""

              TextBox18.Text = Val(TextBox12.Text) - Val(TextBox19.Text)

              Dim con99 As New SqlConnection

              Dim cmd99 As New SqlCommand

              Try

                  con99.ConnectionString = "Data Source=.\SQLEXPRESS;Initial Catalog=otomasyon;Persist Security Info=True;User ID=sa;Password=48586060"

                  con99.Open()

                  cmd99.Connection = con99

                  cmd99.CommandText = "UPDATE tbl_bakim SET adet =  '" & TextBox18.Text & "' WHERE bakimkodu = '" & TextBox11.Text & "'"

                  cmd99.ExecuteNonQuery()

              Catch ex As Exception

                  MessageBox.Show("Error while updating record on table..." & ex.Message, "Update Records")

              Finally

                  con99.Close()

              End Try

          End If

      End If

kodum bu şuan için kendim hatayı göremiyorum ama kullandığım kod bu daha detay isterseniz akşam tekrar bakarım şuan bilgisayarımda bazı sorunlar var programları tam kullanamıyorum başka bir yerde denetiyorum

mesela burda datargrid den textbox a adeti yazdırıp düşürme işlemini öyle yapıyorum. hiç datagridi kullanmadan direk düşürme işlemini nasıl yapabilirim

Datagride tıklayınca stok rakamını spin kutusuna yazdırıp güncelleme yaptırabilirsiniz. Güncelleme işleminde Stok No değil ID alana göre güncelleme yapmanız daha iyi olacaktır.

(02/01/2015, 15:06)alpeki99 yazdı: Datagride tıklayınca stok rakamını spin kutusuna yazdırıp güncelleme yaptırabilirsiniz. Güncelleme işleminde Stok No değil ID alana göre güncelleme yapmanız daha iyi olacaktır.

data gridi kullanmadan nasıl yapabilirim. mesela datagrid hiç yok sadece textboxlar var satılıcak adedi giricem o bakıcak stokda varsa düşücek yoksa yok diye msj vericek