Hata : Run Time '13' Type Mismatch

[Rafet]

Excel'e SQL den veri cekiyorum ve aşağıdakı gibi kodlarla cekiyorum.


With Sheets("StokRapor").Range("SR_Sorgu1").QueryTable
.Connection = _
"ODBC;DRIVER=SQL Server;SERVER=192.168.0.001;UID=sa;PWD=123;APP=Microsoft Office 2003;WSID=NY;DATABASE=databese
"
.CommandText = Array( _
" Select *" _
, " From aaaaaaa" _
, " Where aa='' " _
)
.Refresh BackgroundQuery:=False
End With

gibi. ve SQL komutlarını en fazla 22 satır yaza biliyorum. satır lar da çok uzun olursa makro çalışırken yukardaki hatayı veriyor. SQL cümlesini daha çok uzatmamın bir yolu varmı .

Varsa yol gösterrirsenin sevirim.

Muhabbetle.

 

[Ferhat Pazarçevirdi]

Eğer sorun satır uzunluğundan kaynaklanıyorsa; şöyle yapabilirsin.

dim sql as string
sql="SELECT * FROM "
sql=sql & "aaa, bbb, ccc, ddd, eee "
sql=sql & "WHERE aa="" AND bb=xxx AND cc=yyy ;"

bu şekliyle parça parça yazarak, sql stringini istediğin gibi uzatabilirsin.

Daha sonra elde ettiğin string, yukarıda verdiğin kodlarda
.......
.....commanText=Array(" & sql & ")
.....

şeklinde kullabilirsin. Tabi type mismatch'in nedeni bu ise... Kolay gelsin

 

[Rafet]

çok enterasan bişey ama böyle yaptığımdada hata vermişti.

 

[Ferhat Pazarçevirdi]

Şu 22 satırlık sql komutunu içeren, kodlarını ekleyebilirmisin acaba?

 

[Rafet]

Şu 22 satırlık sql komutunu içeren, kodlarını ekleyebilirmisin acaba?

Tabi ama ne işinize yarıcak anlamadım.

Peki umarım bir you vardır.

Teşekkürler.

 

[Ferhat Pazarçevirdi]

Arkadaşım benzer bir konu, geçmiş zamanda bu forumda ele alınmış zaten. Amerikayı tekrar keşfetmeyelim. Aşağıdaki linkin çare olması dileğiyle ...

http://www.excel.web.tr/showthread.php?t=16759