Fonksiyona excelden değer atamak..

[yollabana]

Merhabalar aşağıdaki gibi bir sorguya tarih kısıtını excelden vermek istiyorum.Yardımcı olacak üstadlarıma şimdiden teşekkür ederim.

declare @tar DATE

SET @tar=CONVERT(DATETIME,'17.06.2013',104) –“buradaki 17.06.2013 yazan alana excell den değer atamak istiyorum”

sayfa1. a1 hücresindeki değeri oku şeklinde..

 

[Tarkan VURAL]

sql

set con = createobject("adodb.connection")
con.open "provider=sqloledb;data source=sunucuip;initial catalog=veritabani;user id=kullaniciadi;password=parola"
s="declare @tar DATE"
s=s & " SET @tar=CONVERT(DATETIME,'" & range("a1").value & "',104) "
con.execute s
set rs = con.execute("select * from LG_001_01_INVOICE WHERE DATE_=>@tar")
range("a2").copyfromrecordset rs