09/07/2014, 18:00
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ı ?
Sayfalar: 1 2
09/07/2014, 18:00
09/07/2014, 22:59
Combonun adının cbUrunler olduğunu varsayarsak:
cbUrunler.ValueMember10/07/2014, 11:09
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
Combobox'a yüklerken iki sütun halinde yükleme yapacaksın:
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.
SELECT Fiyat,UrunMarkasi FROM urunlerdiye 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
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
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.
Sayfalar: 1 2