ADO Bağlantı ve Kayıtseti Nesnelerinin Açılması

Bu makalemiz Excel’de hız severlere yönelik olarak hazırlanmış olup, ADO Bağlantı ve Kayıtseti Nesnelerinin Açılması işleminin nasıl yapılacağını öğretir.

ADO ve VBA hakkında ne kadar çok bilgiye sahipsek, bunların nimetlerinden de o derece yararlanabiliriz. Vba’da ADO ile başarılı uygulamalar geliştirebilmek için SQL konusunda temelin az üzerinde, Vba konusunda da ortalama üzeri bir bilgi ve beceriye sahibi olmamız gerekiyor. Bu nedenle verilen örneklerde Vba komutları veya SQL komutları açıklanmayacaktır.

ADO Bağlantı ve Kayıtseti Nesnelerinin Açılması


ADO bağlantı ve kayıtseti nesnelerini açmak için birkaç değişik yöntem kullanabiliriz.
Şimdi D:\exceldepo\exceldepodb.mdb yolunda bir Access mdb database dosyamız olduğunu düşünelim. (siz bu yolu istediğiniz gibi ayarlayabilirsiniz)
Tablomuzdaki alanlar ve veriler de aşağıdaki resimdeki gibi bir yapıda olsun.

ADO Kayıt Seti

VBA ortamında da bir modül ekleyelim ve sayfa başına aşağıdaki tanımlamaları yazalım. Modül olması şart değil, sayfa ve form da olabilir.
Dim BagMetin As String, Sorgu As String
Dim Baglanti As New ADODB.Connection
Dim KSeti As New ADODB.Recordset
Dim SqlKomut As New ADODB.Command


Set Baglanti = New ADODB.Connection


Sub Baglan1()

 BagMetin = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\exceldepo\exceldepodb.mdb"
 Baglanti.Open BagMetin
 
 MsgBox Baglanti.State
 
 Baglanti.Close
 Set Baglanti = Nothing

End Sub


Sub Baglan2()

 Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\exceldepo\exceldepodb.mdb"
 
 MsgBox Baglanti.State
 
 Baglanti.Close
 Set Baglanti = Nothing

End Sub


Sub Baglan3()

 Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\exceldepo\exceldepodb.mdb"
 
 MsgBox Baglanti.State
 
 Baglanti.Close
 Set Baglanti = Nothing

End Sub


Dim BagMetin As String, Sorgu As String
Dim Baglanti As New ADODB.Connection
Dim KSeti As New ADODB.Recordset
Dim SqlKomut As New ADODB.Command


Private Sub btnMtd1_Click()

 Me.ListBoxExcelDepo.Clear
 Sorgu = "SELECT * FROM Ilceler"
 Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\exceldepo\exceldepodb.mdb"
 
 Set KSeti = Baglanti.Execute(Sorgu)
 Me.ListBoxExcelDepo.Column = KSeti.GetRows
 KSeti.Close
 
 Baglanti.Close
 Set Baglanti = Nothing

End Sub


Private Sub btnMtd2_Click()
 Me.ListBoxExcelDepo.Clear
 Sorgu = "SELECT * FROM Ilceler"
 Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\exceldepo\exceldepodb.mdb"
 
 SqlKomut.ActiveConnection = Baglanti
 SqlKomut.CommandText = Sorgu
 
 Set KSeti = SqlKomut.Execute(Sorgu)
 Me.ListBoxExcelDepo.Column = KSeti.GetRows
 
 
 Baglanti.Close
 Baglanti.Close: KSeti = Nothing
End Sub


Private Sub btnMtd3_Click()
 Me.ListBoxExcelDepo.Clear
 Sorgu = "SELECT * FROM Ilceler"
 Baglanti.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\exceldepo\exceldepodb.mdb"
 
 SqlKomut.ActiveConnection = Baglanti
 SqlKomut.CommandText = Sorgu
 
 KSeti.Open SqlKomut

 Me.ListBoxExcelDepo.Column = KSeti.GetRows
 Baglanti.Close
End Sub


Private Sub btnMtd4_Click()
 Me.ListBoxExcelDepo.Clear
 KSeti.Open "SELECT * FROM Ilceler", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\exceldepo\exceldepodb.mdb"
 Me.ListBoxExcelDepo.Column = KSeti.GetRows
 KSeti.Close
End Sub


Etiketler

Excel Eğitimleri
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Makale Arşivi
Klavyenizdeki F2 tuşuna basarsanız, hücrenin ya da formül çubuğunun için giriş yaparsınız.
Shift + F2 tuşlarına basarsanız, aktif hücreye açıklama eklersiniz.
Ctrl + F2 tuşlarına basarsanız, Yazdırma ekranını açarsınız.
Yükleniyor...