24/08/2016, 19:51
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