Excel'de Hazırlanmış Verileri Visual Basic 6.0'da ADODC Kullanarak Almak

Excel'de hazırlanmış verileri Visual Basic 6.0'da hazırlanmış uygulama içerisine ADODB Bağlantısı kullanarak almak için güzel bir örnek. Faydalı olacağına inanıyorum.. Kolay gelsin..


Dim Baglanti As ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim strSQL1 As String


Set Baglanti = New ADODB.Connection


'Buraya Excel Dosyasının Path'ini Yazıyoruz(*.xls)
strPath = App.Path & "\dosyaadi.xls"


With Baglanti
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & strPath & "; ReadOnly=false; MaxScanRows= 0;"
.Open
End With

strSQL1 = "SELECT * FROM [Sayfa7$F:F]"

rs1.Open strSQL1, Baglanti, adOpenDynamic, adLockOptimistic

'rs1 ile ilgili yapmak istediğiniz işlemleri burada yapabilirsiniz

Set Baglanti = Nothing
Set rs1 = Nothing
con.close


Kaynak: http://www.vbturk.net/okubakim.asp?id=11895&kid=23