+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-net-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: vb.net sql server stokdan düşme (/konu-vb-net-sql-server-stokdan-dusme.html)
Sayfalar:
1
2
vb.net sql server stokdan düşme - gkmanil - 31/12/2014
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 ?
Cvp: vb.net sql server stokdan düşme - alpeki99 - 01/01/2015
Tablo yapısını ve kodları görmek lazım.
Cvp: vb.net sql server stokdan düşme - gkmanil - 01/01/2015
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 Ifkodum 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
Cvp: vb.net sql server stokdan düşme - gkmanil - 02/01/2015
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
Cvp: vb.net sql server stokdan düşme - alpeki99 - 02/01/2015
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.
Cvp: vb.net sql server stokdan düşme - gkmanil - 02/01/2015
(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