AccessTr.neT

Tam Versiyon: ExecuteReader Fonksiyon Hakkında
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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?
(28/09/2014, 10:24)alpeki99 yazdı: [ -> ]Sayın drummers sorunu çözebildiniz mi?

Gerek kalmadı, konuda gözümden kaçmış sanırım. Konu kapatılabilir