Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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ı ?
Son Düzenleme: 09/07/2014, 18:00, Düzenleyen: tetikçi_61.
Cevapla
Çözüldü #2
Combonun adının cbUrunler olduğunu varsayarsak:

Visual Basic Code
cbUrunler.ValueMember
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
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 ?
Cevapla
Çözüldü #4
Combobox'a yüklerken iki sütun halinde yükleme yapacaksın:

Visual Basic Code
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
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
Cevapla
Çözüldü #6
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.
Son Düzenleme: 10/07/2014, 11:56, Düzenleyen: tetikçi_61.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da