SQL den veri alma

[cobra29]

arkadaşlar

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("sayfa1").Range("c3").Select
With Selection.QueryTable
.Connection = _
"ODBC;DRIVER=SQL Server;SERVER=SERVER;UID=SUNUCU;APP=Microsoft Office 2003;WSID=SERVER;Trusted_Connection=Yes"
.CommandText = Array( _
"SELECT TBLCAHAR.TARIH, TBLCAHAR.CARI_KOD, TBLCAHAR.BORC" & Chr(13) & "" & Chr(10) & "FROM ESRA2006.dbo.TBLCAHAR TBLCAHAR" & Chr(13) & "" & Chr(10) & "WHERE (TBLCAHAR.TARIH={ts '2006-01-22 00:00:00'})" _
)
.Refresh BackgroundQuery:=True
End With
End Sub


bu kodu butona yazdığım zaman olay gerçekleşiyor ve veriyi alıyor fakat tarih kısmını textbox'a bağlıyamıyorum mesela TARIH={ts '2006-01-22 yi textbox tan 23 yapınca kod değişsin ve veri o tarihe göre gelsin.... yardımcı olursanız sevinirim

 

[cobra29]

arkadaşlar yardımcı olan yokmu çok acil lazım

 

[Haluk]

.CommandText = Array( _
"SELECT TBLCAHAR.TARIH, TBLCAHAR.CARI_KOD, TBLCAHAR.BORC" & Chr(13) & "" & Chr(10) & "FROM ESRA2006.dbo.TBLCAHAR TBLCAHAR" & Chr(13) & "" & Chr(10) & "WHERE (TBLCAHAR.TARIH={ts [COLOR=Red]'2006-01-" & TextBox1 & "00:00:00'[/COLOR]})" _
)

 

[cobra29]

sayın haluk cevabın için çok teşekkür ederim ama ekte gönderdiğim resim dosyasındaki hatayı veriyor bi bakarsan çok iyi olur

 

[Haluk]

Emin değilim ama, arada bir boşluk unuttum belki ondandır ...

.CommandText = Array( _
"SELECT TBLCAHAR.TARIH, TBLCAHAR.CARI_KOD, TBLCAHAR.BORC" & Chr(13) & "" & Chr(10) & "FROM ESRA2006.dbo.TBLCAHAR TBLCAHAR" & Chr(13) & "" & Chr(10) & "WHERE (TBLCAHAR.TARIH={ts '2006-01-" & TextBox1 & " 00:00:00'})" _
)

 

[cobra29]

arkadaşım çok teşekkür ederim çalıştı....