Imports System.Data.OleDb

Public Class Form1



    Dim baglanti As New OleDbConnection

    Dim veri As New OleDbCommand



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        baglanti.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\TEST.mdb"

        ComboBox1.Items.Clear()



        Dim Sql As String = "select * from Veritest ORDER BY hafta"

        baglanti.Open()

        veri.CommandText = sql

        veri.Connection = baglanti

        Dim dr As OleDbDataReader

        dr = veri.ExecuteReader

        While dr.Read

            ComboBox1.Items.Add(dr(1))

        End While

        dr.Close()

        baglanti.Close()

    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        baglanti.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\TEST.mdb"



        Dim Sql As String = "select * from Veritest WHERE (hafta='" & ComboBox1.Text & "') ORDER BY hafta"

        baglanti.Open()

        veri.CommandText = sql

        veri.Connection = baglanti

        Dim dr As OleDbDataReader

        dr = veri.ExecuteReader

        While dr.Read

            TextBox1.Text = IIf(IsDBNull(dr(1)), "", dr(1))

            TextBox2.Text = IIf(IsDBNull(dr(2)), "", dr(2))

            TextBox3.Text = IIf(IsDBNull(dr(3)), "", dr(3))

            TextBox4.Text = IIf(IsDBNull(dr(4)), "", dr(4))

        End While

        dr.Close()

        baglanti.Close()

    End Sub

End Class