AccessTr.neT

Veritabanına bağlantı classım

Public Class Il_Ilce



    Public Shared connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='İl İce Mahalle.mdb'"

    Private Shared Function Baglan() As OleDbConnection

        Dim baglanti As New OleDbConnection(connectionstring)

        If baglanti.State <> System.Data.ConnectionState.Open Then

            Try

                baglanti.Open()

            Catch

                MsgBox("Veritabanı Bağlantısı Kurulamadı", MsgBoxStyle.Exclamation, " Hata !!!")

                baglanti.Close()





            End Try

        End If

        Return baglanti

    End Function

End Class

Formda sorgulamayı şu şekilde yapıyorum

Dim Baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='İl İce Mahalle.mdb'")

        Dim komut1 As String = "SELECT * from il where il_id=1"

        Dim yeni As New OleDbCommand(komut1, Baglanti)

        Dim oku1 As OleDbDataReader

        Baglanti.Open()

        oku1 = yeni.ExecuteReader

        While oku1.Read

            MsgBox(oku1.GetString(1))

           

        End While

        oku1.Close()

        Baglanti.Close()

Ben bu sorgulamayı veritabanımın bağlantı classı içinden bir fonksiyonla yapmak istiyorum

Sonuçta şöyle olmasını istiyorum.
Yaa load yada herhangi bir butonun click inede olur

Textbox1.Text = Getirilecek_alan(1)

Dönen değer ilgili tablonun ve id 'nin 1. satırı olacaktır.i Örnek= Üstteki kodda MsgBox(oku1.GetString(1)) ADANA olarak dönüyor

Yani kısacası ExecuteReader ile ilgili bi fonksiyon örneği ve açıklaması lazım
Teşekürler.
[/code]

Sayın drummers sorunu çözebildiniz mi?