İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

ComboBox'dan seçileni DataGridView de listelemek

iyi

0
İyinet Üyesi
Katılım
1 Kasım 2011
Mesajlar
32
Reaction score
0
Merhaba, Nacizane :msp_biggrin: Vb ile yapmaya çalıştıgım programda takıldım yine :peh:

Resim anlatıyor aslında..Ne yapmak istediğimi.
ComboBox'da seçtiğim firmanın, Veritabanındaki Hesap1 tablosunda ki bilgileri listelenecek.
Algoritması tamamda kodlayamadım :(


Sanırım;
Öncelikle seçilen firma adının,müşteri numarası buluncak,
Sonra Hepsap1 tablosunda Mu müşteri numarasını içeren tüm kayıtlar listelenecek :alkış:

Yapmak istediğim şeylerin kodlarını bilemiyorum.Onu nasıl öğrenicem orda takıldım

bu1x.jpg
 

JebiaS

0
İyinet Üyesi
Katılım
26 Nisan 2011
Mesajlar
40
Reaction score
0
öncelikle veritabanında müşteri firmayı seçince ismi geliyor bu isimin aynısı hesap1 dede yazıyormu
öyle olduğunu varsayıyorum
veritabanı işlemleri için
Kod:
Dim baglanti As New OleDb.OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = veritabanı.mdb")
    Dim yonetici As New OleDb.OleDbCommand
    Dim okuyucu As OleDb.OleDbDataReader
tanımlamalarını yapın
sonra ilgili listbox'un SelectedIndexChanged fonksiyonuna
Kod:
        yonetici.Connection = baglanti
        yonetici.CommandText = "SELECT * FROM Hesap1 WHERE ([U]firmaid[/U]='" + listbox1.selecteditem + "' )"
        baglanti.Open()
        okuyucu = yonetici.ExecuteReader
        While okuyucu.Read
            hizmetno.Text = okuyucu(0)
            tarih.Text = okuyucu(1)
            aciklama.Text = okuyucu(2)
            adet.Text = okuyucu(3)
            tutar.Text = okuyucu(4)
            mno.Text = okuyucu(5)
        End While
        baglanti.Close()
        yonetici.Dispose()
        okuyucu.Close()
firmaid yerine hesap1 deki firmaisminin yazdığı stunu yazmalısınız
 

iyi

0
İyinet Üyesi
Katılım
1 Kasım 2011
Mesajlar
32
Reaction score
0
İlgin için teşekkür ederim.

Ancak sanırım yanlış oldu.

Kod:
 Dim cc As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\PC\Desktop\...\xxxx.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
    Dim cb As New SqlCommand
Veri tabanını bu yoldan ulaşıyorum.

ayıca dikkatinden kactı sanırım..Resme bir daha bakarsan..:hmmm:

ComboBox dan Fİrma Adını Seçiyoruz.
Ancak DataGridView de Firmanın Hesap1 Tablosundaki verilerini listeliyoruz.


Müsteri tablosu ile Hesap1 tablosunuda "Mno" bağlıyor. :peh:

//Bu arada Firma ismi Hesap1 tablosunda bulunmuyor..
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst