Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

vb.net sql server stokdan düşme

gkmanil
gkmanil
Visual Basic .NET Soruları ve Cevapları
7
4183

vb.net sql server stokdan düşme

#1
gkmanil
Aktif Üye
gkmanil
Bul
Aktif Üye
Adı Soyadı: gö.... an.... yı....
Yaşı: 33
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/08/2015,17:27
Yorumları: 36
Konuları: 13
Kayıt Tarihi: 29/05/2014
Teşekkür Puanı: 0
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
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
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
gkmanil
Aktif Üye
gkmanil
Bul
Aktif Üye
Adı Soyadı: gö.... an.... yı....
Yaşı: 33
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/08/2015,17:27
Yorumları: 36
Konuları: 13
Kayıt Tarihi: 29/05/2014
Teşekkür Puanı: 0 
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
gkmanil
Aktif Üye
gkmanil
Bul
Aktif Üye
Adı Soyadı: gö.... an.... yı....
Yaşı: 33
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/08/2015,17:27
Yorumları: 36
Konuları: 13
Kayıt Tarihi: 29/05/2014
Teşekkür Puanı: 0
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
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
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
gkmanil
Aktif Üye
gkmanil
Bul
Aktif Üye
Adı Soyadı: gö.... an.... yı....
Yaşı: 33
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 05/08/2015,17:27
Yorumları: 36
Konuları: 13
Kayıt Tarihi: 29/05/2014
Teşekkür Puanı: 0
(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