AccessTr.neTVisual Basic .NETVisual Basic .NET Cevaplanmış Soruları

Comboboxtaki seçime göre veritabanından textboxa veri çağırma

1 2
09/07/2014, 18:00

tetikçi_61

Arkadaşlar bugün çok oldum galiba fakat bir türlü bulamadım çözümünü başlıkta da dediğim gibi comboboxta seçtiğim markanın fiyatını veritabanından textbox'a aktarmaya çalışıyorum. Bu konu hakkında bilgisi olan var mı ?
09/07/2014, 22:59

alpeki99

Combonun adının cbUrunler olduğunu varsayarsak:

cbUrunler.ValueMember
10/07/2014, 11:09

tetikçi_61

Peki üstadım comboboxta seçilen veri veritabanındaki bilgiyle eşitlemeyi nasıl yapacağız ? Yani veritabanından marka sütunundaki x markasını seçtim o markanın fiyat sütunundaki fiyatını nasıl çekeceğiz ?
10/07/2014, 11:30

alpeki99

Combobox'a yüklerken iki sütun halinde yükleme yapacaksın:

SELECT Fiyat,UrunMarkasi FROM urunler

diye Sql kodunu yazacaksın. Fiyat sütununu ValueMember, UrunMarkasi sütununu DisplayMember olarak atayacaksın. Listede sadece markalar gözükür seçimi yaptığın zaman ise değer olarak Fiyatı seçmiş olmuş olacaksın.

Tabi bu anlattıklarımı combobox'a verileri yüklemeyi halledebildiğini varsayarak yazıyorum. Orada problemin yok zannediyorum.
10/07/2014, 11:39

tetikçi_61

yok comboboxa veri yüklemede sıkıntı yok oradaki veriyi seçtikten sonra fiyatı aktarmada sıkıntım vardı şimdi vermiş olduğun kodu deniyorum üstadım
10/07/2014, 11:46

tetikçi_61

Kod:
If ComboBox13.Text = "Optik Gözlük" Then
            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veri.mdb'")

            baglanti.Open()
            Dim komut As New OleDb.OleDbCommand("SELECT markaadi,fiyat FROM omarka ORDER BY markaadi", baglanti)

            Dim oku As OleDb.OleDbDataReader
            oku = komut.ExecuteReader()
            While oku.Read()
                ComboBox3.Items.Add(oku("markaadi"))
                ComboBox4.Items.Add(oku("markaadi"))
            End While

            Dim komut1 As New OleDb.OleDbCommand("SELECT cammarka,fiyat FROM ocam ORDER BY cammarka", baglanti)

            Dim oku1 As OleDb.OleDbDataReader
            oku1 = komut1.ExecuteReader()
            While oku.Read()
                ComboBox1.Items.Add(oku("cammarka"))
                ComboBox2.Items.Add(oku("cammarka"))
            End While

            baglanti.Close()

        ElseIf ComboBox13.Text = "Güneş Gözlüğü" Then
            ComboBox3.Items.Clear()
            ComboBox4.Items.Clear()
            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veri.mdb'")

            baglanti.Open()
            Dim komut As New OleDb.OleDbCommand("SELECT markaadi,fiyat FROM gmarka ORDER BY markaadi", baglanti)

            Dim oku As OleDb.OleDbDataReader
            oku = komut.ExecuteReader()
            While oku.Read()
                ComboBox3.Items.Add(oku("markaadi"))
                ComboBox4.Items.Add(oku("markaadi"))
            End While

            Dim komut1 As New OleDb.OleDbCommand("SELECT cammarka,fiyat FROM gcam ORDER BY cammarka", baglanti)

            Dim oku1 As OleDb.OleDbDataReader
            oku1 = komut.ExecuteReader()
            While oku.Read()
                ComboBox1.Items.Add(oku("cammarka"))
                ComboBox2.Items.Add(oku("cammarka"))
            End While

            baglanti.Close()

        ElseIf ComboBox13.Text = "Lens" Then
            ComboBox3.Items.Clear()
            ComboBox4.Items.Clear()
            Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veri.mdb'")

            baglanti.Open()
            Dim komut As New OleDb.OleDbCommand("SELECT markaadi,fiyat FROM lmarka ORDER BY markaadi", baglanti)

            Dim oku As OleDb.OleDbDataReader
            oku = komut.ExecuteReader()
            While oku.Read()
                ComboBox3.Items.Add(oku("markaadi"))
                ComboBox4.Items.Add(oku("markaadi"))

            End While

            baglanti.Close()

        End If
    End Sub

Üstadım kullandığım kod bu value ve display member yapınca çakışma oluşuyor.
1 2