+- 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
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - alpeki99 - 10/07/2014
Bu şekilde verileri combobox'a bağlamıyorsun sen. Yaptığın şey veritabanından çektiğin verileri Items.Add ile eklemek. Daha basit bir yöntemi var bu şekilde kullan:
Private cnn As MySqlConnection
Private Sub DonemleriYukle()
Try
Using cnn = New MySqlConnection(VT.BaglantiCumlesi)
Using adapter As New MySqlDataAdapter("SELECT AnahtarDeger,DonemAdi FROM donemler WHERE Durum=1", cnn)
Dim dt As New DataTable()
adapter.Fill(dt)
lueDonemler.Properties.DataSource = dt
lueDonemler.Properties.ValueMember = "AnahtarDeger"
lueDonemler.Properties.DisplayMember = "DonemAdi"
End Using
End Using
Catch ex As MySqlException
lg.LogEkle("frmUsbOlustur", "DonemleriYukle", ex.Message, ex.Number, Ortak.Kullanici.KullaniciId)
MessageBox.Show("Dönemlerin yüklenmesi sırasında bir hata ile karşılaşıldı." + Environment.NewLine + Environment.NewLine + "Hata Mesajı : " + ex.Message, "Hata", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub
'=======================================================
'Service provided by Telerik (www.telerik.com)
'Conversion powered by NRefactory.
'Twitter: @telerik
'Facebook: facebook.com/telerik
'=======================================================
NOT : Fazla vaktim olmadığından kendi programımdan kopyalayıp buraya yapıştırdım. Senin için önemli olan DataAdapter ile başlayan kısım yani :
Using adapter As New MySqlDataAdapter("SELECT AnahtarDeger,DonemAdi FROM donemler WHERE Durum=1", cnn)
Dim dt As New DataTable()
adapter.Fill(dt)
lueDonemler.Properties.DataSource = dt
lueDonemler.Properties.ValueMember = "AnahtarDeger"
lueDonemler.Properties.DisplayMember = "DonemAdi"
End UsingCvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - tetikçi_61 - 10/07/2014
Kod:
Private Sub optik(ByVal SQL As String)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veri.mdb'")
Dim dt As New DataTable("omarka")
Dim adapter As New OleDbDataAdapter(Sql, baglanti)
adapter.Fill(dt)
ComboBox3.DataSource = dt
ComboBox3.ValueMember = "markaadi"
ComboBox3.DisplayMember = "fiyat"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
optik("SELECT markaadi,fiyat FROM omarka ORDER BY markaadi")
If ComboBox3.ValueMember = "markaadi" Then
TextBox22.Text = ComboBox3.DisplayMember("fiyat")
ElseIf ComboBox13.Text = "Güneş Gözlüğü" Then
ElseIf ComboBox13.Text = "Lens" Then
End If
End Sub
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - alpeki99 - 10/07/2014
Keşke iki dakika boş bir proje oluşturup örneği ekleseydiniz daha çabuk hallederdik. Vb.Net ile kodlamadığımdan tam emin olamıyorum ama şöyle bir şey olması gerek:
Private Sub optik(ByVal Sql As String)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='veri.mdb'")
Dim dt As New DataTable("omarka")
Dim adapter As New OleDbDataAdapter(Sql, baglanti)
adapter.Fill(dt)
ComboBox3.DataSource = dt
ComboBox3.ValueMember = "fiyat"
ComboBox3.DisplayMember = "markaadi"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
optik("SELECT markaadi,fiyat FROM omarka ORDER BY markaadi")
If ComboBox3.ValueMember = "Bosh" Then
TextBox22.Text = ComboBox3.DisplayMember()
ElseIf ComboBox13.Text = "Güneş Gözlüğü" Then
ElseIf ComboBox13.Text = "Lens" Then
End If
End Sub
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - tetikçi_61 - 10/07/2014
Kusura bakma üstadım aklımdan çıkmış başta atmam gerekirdi. projedeki marka ekle orada temsili . Çalıştığım projede bir formda marka ekle ile veritabanına marka ekliyorum. sonra bu formda gözlük çeşidini seçtikten sonra işle butonuyla gözlük çeşidine göre o markalar combobox'a geliyor. bende o markayı seçip fiyat işle butonuna tıkladığım zaman fiyat bölümüne fiyatı geliyor.
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - alpeki99 - 11/07/2014
Görevi sadece combobox3'e markalari ve fiyatları yüklemekle görevli bir tane yordam ekledim.
Private Sub MarkalariYukle()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\\veri.mdb")
Dim dt As New DataTable
Dim adapter As New OleDbDataAdapter("SELECT fiyat,markaadi FROM omarka ORDER BY markaadi", baglanti)
adapter.Fill(dt)
ComboBox3.DataSource = dt
ComboBox3.ValueMember = "fiyat"
ComboBox3.DisplayMember = "markaadi"
End Sub
Formun yüklenmesi (Load) olayında yukarıdaki yordamı çağırdım:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MarkalariYukle()
End Sub
İşle butonuna tıklayınca combobox3'te hangi marka seçili ise o markanın fiyatını textbox22'ye yazdırdım:
Private Sub isle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles isle.Click
TextBox22.Text = ComboBox3.SelectedValue
End SubSendeki yüklü olan Visual Studio bendekinden farklı sürüm olduğundan proje olarak yükleyemiyorum.
Cvp: Comboboxtaki seçime göre veritabanından textboxa veri çağırma - tetikçi_61 - 11/07/2014
üstadım çok sağolasın Allah razı olsun eline koluna sağlık.