AccessTr.neT
Veritabanındaki varolan kaydı arttırma - Baskı Önizleme

+- 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.