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