+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veritabanındaki varolan kaydı arttırma (/konu-veritabanindaki-varolan-kaydi-arttirma.html)
Veritabanındaki varolan kaydı arttırma - eftelyaorg - 01/06/2016
Arkadaşlar merhaba,
bir ürün takip programı yapıyorum. Her ürünün kendine ait barkod numarası olacak.
mesela masaüstü bilgisayar barkod numarası 1111
bugün diyelim ben 10 tane masaüstü bilgisayar kaydettim.
10 gün sonra 5 tane daha kaydetmek istediğimde, aynı barkod numarasından farklı bir kayıt daha oluşturmadan, var olan kaydın stok miktarını arttırmasını istiyorum.
Bunu nasıl yapabilirim?
Vb.Net kullanıyorum.
Access veritabanı ile.
Cvp: Veritabanındaki varolan kaydı arttırma - C*e*l*o*y*c*e - 01/06/2016
örneğnizi ekleyin yardımcı olmaya çalışalım
Cvp: Veritabanındaki varolan kaydı arttırma - eftelyaorg - 01/06/2016
(01/06/2016, 21:34)C*e*l*o*y*c*e yazdı: örneğnizi ekleyin yardımcı olmaya çalışalım
Buyrun hocam kodlar aşağıdadır.
Dim baglan As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; Data Source='demirbas_takip.accdb'")
Dim adaptor As New OleDbDataAdapter("select * from demirbas", baglan)
Dim komut As New OleDbCommand
Dim ds As New DataSet
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
If TextBox1.Text = "" Then
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
MsgBox("lütfen tüm alanları doldurunuz..")
komut.CommandText = "insert into demirbas(urun_kod,urun_cinsi,urun_marka,urun_model,bulundugu_yer,adet) values('" & TextBox1.Text & "','" & ComboBox1.SelectedItem & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
komut.ExecuteNonQuery()
baglan.Close()
MsgBox("Ürün Başarıyla Kaydedilmiştir", , "Kayıt Başarılı")
Me.Close()
Form1.Show()
End If
End Sub
Cvp: Veritabanındaki varolan kaydı arttırma - C*e*l*o*y*c*e - 01/06/2016
sadece kod olmaz
örneğinide eklemelisin
Cvp: Veritabanındaki varolan kaydı arttırma - eftelyaorg - 02/06/2016
(01/06/2016, 23:47)C*e*l*o*y*c*e yazdı: sadece kod olmaz
örneğinide eklemelisin
Teşekkür ederim ilgin için. Hallettim.