Makro ile SQL Veri Alırken Süre Aşımı Hatası

[kada006]

Arkadaşlar Benim Sorunum Şu Makro İle Sql serverden bir Rapor alıyorum fakat sql de fonksiyonlar kullandığım için veri alma süresi uzun 2016 verisini alırken sorun yok çünkü kısa sürede alıyor fakat önceki yıllara ait rapor alacağım zaman her halde süreden kaynaklı olarak eklediğim resimdeki hatayı alıyorum bunu çözmenin bir yolu varmıdır yardımcı olursanız sevinirim

 

[Mehmet Şahin]

Merhaba,
ilgili yeri aşağıdaki gibi değiştirerek dener misiniz?

"WHERE year([TARIH])=2015 " _

 

[kada006]

Mehmet bey denedim yine aynı hatayı verdi

 

[Mehmet Şahin]

Deneme şansım yok işyerinde ama, geçen bir arkadaşın benzer sorunu
şu parametrelerle çözülmüştü sanırım.

Cn.ConnectionTimeout = 0 
Cn.CommandTimeout = 0

 

[kada006]

Bu şekilde Kullandım Yine aynı hatayı verdi bendemi hata var


With Worksheets("ANASAYFA").Range("A5:Z100000")
.ClearContents
.CopyFromRecordset rs
.ConnectionTimeout = 0
.CommandTimeout = 0
Range("F:H").NumberFormat = "#,##0.00"
Range("I:I").NumberFormat = "0.00%"
Range("B:B").NumberFormat = "dd.mm"
Range("C:C").NumberFormat = "####"
Range("J:L").NumberFormat = "#,##0.00"
Range("M:M").NumberFormat = "0.00%"
Range("N").NumberFormat = "#,##0.00"
Range("Q:Q").NumberFormat = "0.00%"
Range("A:A").NumberFormat = "####"

End With

rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing

End Sub

 

[Mehmet Şahin]

Hayır, "Set Cn=..." ifadesinden sonra ekleyin.

 

[kada006]

Çok özür dilerim hata bendeymiş bu şekilde oldu işimi gördüm çok teşekkür ederim,



Set Cn = New ADODB.Connection
Cn.ConnectionTimeout = 0
Cn.CommandTimeout = 0
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"

rs.Open SQLStr, Cn, adOpenStatic

 

[Mehmet Şahin]

Rica ederiz, iyi çalışmalar.