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