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