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
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