Çekiliş ile 2 Adet Microsoft Excel Kitabı Hediye Edilecektir. Ayrıntılı Bilgi İçin [Tıklayınız]

ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/08/2016 19:51
Konu Sahibi
xxihsidxx
Yorumlar
2
Okunma
1219
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....
3.022
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,15:32
ö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
28/09/2017,10:49
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.