Skip to main content

AccessTr.neT


vb.net sql server stokdan düşme

vb.net sql server stokdan düşme

#1
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 ?
Cevapla
#2
Tablo yapısını ve kodları görmek lazım.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#3
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
Cevapla
#4
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
Cevapla
#5
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#6
(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 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task