+- 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ığı: Barkod okuycu (/konu-barkod-okuycu.html)
Barkod okuycu - xxihsidxx - 24/08/2016
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 SubCvp: Barkod okuycu - C*e*l*o*y*c*e - 24/08/2016
örneginizi eklermisiniz bakalım
Cvp: Barkod okuycu - byhuda - 19/04/2017
kaynak dosyayı versen yardımcı olabiliriz