ADO ile veri çağırmak.

[ghostbar]

Selamlar Aşağıdaki kodu uygulayarak diğer dosyamdan veri okutmaya çalışıyorum ama ISAM bulunamadı hatası ile karşılaşıyorum.
Nerede hata yapmış olabilirim acaba.

Private Sub CommandButton1_Click()
'Tools referanslardan microsoft activex dataobject 6 library seçildi
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Range("A3:AI3").Clear
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;extended properties=""excel 14.0;hdr=yes;"""
rs.Open "select * from [Data$] where TARİH like '" & "01.04.2012" & "%';", conn, adopendynamic, adlockoptimistic
Range("A3").CopyFromRecordset rs
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub

 

[yerbakili]

Bu ADO - DOA işlemlerinin temelini anlatan bir video ders falan var mı acaba? Çok istiyorum şu işlemleri öğrenmeyi ama mantığını bir türlü oturtamadım kafama.

 

[ghostbar]

ISAM hatasını düzelttim. ancak bu sefer dosyanın beklenen biçimde değil hatası veriyor. sanırım xlsm makro içerdiği için bu hatayı veriyor xls olunca
sorun yok.
Çözüm önerilerinizi bekliyorum.

 

[ghostbar]

Kodu Aşağıdaki gibi yaptım ama ISAM hatasını yine alıyorum.

Private Sub CommandButton1_Click()
'Tools referanslardan microsoft activex dataobject 6 library seçildi
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Range("A3:AI3").Clear
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;extended properties=""excel 14.0 Makro;hdr=yes;"""
rs.Open "select * from [Data$] where TARİH like '" & "01.04.2012" & "%';", conn, adopendynamic, adlockoptimistic
Range("A3").CopyFromRecordset rs
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub

 

[Zeki Gürsoy]

Dosyada açılış parolası olmamalı.

 

[muhceli]

[ conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;extended properties=""excel 14.0 Makro;hdr=yes;""" ]
bu kısımı:
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;extended properties=""excel 12.0 Makro;hdr=yes;"""
olarak değiştiriniz.

 

[ghostbar]

Dosyada açılış parolası olmamalı.

Şifreli bir dosya değil zaten.

[ conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;extended properties=""excel 14.0 Makro;hdr=yes;""" ]
bu kısımı:
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;extended properties=""excel 12.0 Makro;hdr=yes;"""
olarak değiştiriniz.

Dediğiniz gibi değiştirdim ama Yüklenebilir ISAM bulunamadı hatası alıyorum yine.

Tools Referance lardan hangilerini yüklemem gerekli acaba sanırım orda bir hata var.

 

[ghostbar]

Kodu Aşağıdaki gibi yapınca çalıştı.
Sanırım Küçük büyük harf duyarlılığı var.

Private Sub CommandButton1_Click()
'Tools referanslardan microsoft activex dataobject 6 library seçildi
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
Range("A3:AI3").Clear
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\MIKRONIZE.xlsm;Extended Properties=""Excel 12.0 Macro;HDR=YES;"""
rs.Open "select * from [Data$] where TARİH like '" & "01.04.2012" & "%';", conn, adopendynamic, adlockoptimistic
Range("A3").CopyFromRecordset rs
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
End Sub