Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/08/2016 19:51
Konu Sahibi
xxihsidxx
Yorumlar
2
Okunma
1104
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

xxihsidxx

Üye
Kullanici Avatari
Üye
3
3
20/04/2010
0
Sakarya
Ofis 2003
24/09/2016,10:55
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.


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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


xxihsidxx, 20-04-2010 tarihinden beri AccessTr.neT
Cevapla

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.965
29/10/2008
924
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
örneginizi eklermisiniz bakalım


Cevapla

byhuda

Üye
Kullanici Avatari
Üye
K....
4
2
13/01/2017
0
Kahramanmaraş
bilgi işlem
Ofis 2010 64 Bit
20/07/2017,08:51
kaynak dosyayı versen yardımcı olabiliriz


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.