Skip to main content

AccessTr.neT


Barkod okuycu

Barkod okuycu

#1
Herkese iyi çalışmalar. Market için barkod programı yapmaya çalışıyorum, bir noktaya kadar geldim ve orada takıldım. Aşağıdaki kodlar ile veri tabanından ürün koduna göre aratıp, ürünün adını ve fiyatını labellara yüklüyorum. Kodlar Listbox seçimine göre sorunsuz çalışıyor lakin barkod okuyucu ile ürünün kodunu aktarınca çalışmıyor. Daha doğrusu form ilk açılıp ilk ürünü okutunca bilgiler geliyor ama daha sonraki okutmalarda bilgileri aktarmıyor. Tahminim döngüden kaynaklanıyor. Yardımcı olacaklar için şimdiden teşekkür ederim.


Private Sub KodAramaText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodAramaText.TextChanged
        Dim kriter As String = KodAramaText.Text.ToString()

        Dim comm As New OleDbCommand
        comm.Connection = baglanti
        comm.CommandText = "SELECT * FROM GenelBilgiler WHERE UrunKodu='" + kriter + "'"
        baglanti.Open()
        Dim dtr As OleDbDataReader
        dtr = comm.ExecuteReader(CommandBehavior.CloseConnection)
        Do While dtr.Read()
            UrunAdi.Text = dtr.Item("UrunAdi").ToString()
            UrunFiyati.Text = dtr.Item("UrunFiyati") & "  TL"
            KodAramaText.Focus()

        Loop
        baglanti.Close()
    End Sub
Son Düzenleme: 24/08/2016, 21:02, Düzenleyen: xxihsidxx.
Cevapla
#2
örneginizi eklermisiniz bakalım
Cevapla
#3
kaynak dosyayı versen yardımcı olabiliriz
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task