- Katılım
- 12 Şubat 2015
- Mesajlar
- 520
- Excel Vers. ve Dili
- Office 2016 TR 64 Bit Windows
- Altın Üyelik Bitiş Tarihi
- 01-02-2027
Üstadlar Selam ADO yönetimi ile yan sekmeden çektirdiğim bir sorgum var. Bunda "not like" komutu ilave edildiğinde malesef Sql sorguyu çekmiyor. and not like çıkarırsam sorunsuz çalışıyor. Yurt dışı sitelerinde de benzer sorun yaşayan olmuş ancak cevap yazan olmamış.
Deneyimlerinizden faydalanmak isterim.
Deneyimlerinizden faydalanmak isterim.
Kod:
sub vericek()
Dim Con As Object, rs As Object, Sorgu As String, Yol As String, Dosya As String, K1 As Workbook
Set Con = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.RecordSet")
Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no"""
Sorgu = "Select f4,f5,f6,f7,f1,f9,f10,f11,f12,f27 from [SQL$] where f13 like '&Panel&' and f27 not like '&Tamamlandı&'"
rs.Open Sorgu, Con, 1, 1
Sayfa2.Range("A3").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing: Sorgu = ""
End Sub