+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Comboboxtaki seçime göre veritabanından textboxa veri çağırma (/konu-comboboxtaki-secime-gore-veritabanindan-textboxa-veri-cagirma.html)
Sayfalar:
1
2
Comboboxtaki seçime göre veritabanından textboxa veri çağırma - tetikçi_61 - 09/07/2014
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ı ?
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - alpeki99 - 09/07/2014
Combonun adının cbUrunler olduğunu varsayarsak:
cbUrunler.ValueMemberCvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - tetikçi_61 - 10/07/2014
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 ?
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - alpeki99 - 10/07/2014
Combobox'a yüklerken iki sütun halinde yükleme yapacaksın:
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.
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - tetikçi_61 - 10/07/2014
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
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - tetikçi_61 - 10/07/2014
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