VBA Sql Sorgu Hatası compile error invalid qualifier

[mustafatuc1]

Merhabalar Bir veritabanından bazı tabloları excele çekmek istiyorum Tarih Filtresi vererek Bunun için vba da bir sorgu oluşturdum Where koşulu olmadıgında çalışıyor ancak where koşuluna parametrik şekilde gönderdiğimde compile error invalid qualifier Şeklinde hata veriyor vba sorgum




Private Sub CommandButton2_Click()

Dim baglanti As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sunucu, veritabani, id, sifre, srg As String

sunucu = "192.168.1.100"
veritabani = "2021"
id = "sa"
sifre = "123456"




baglanti.Open "Driver={SQL SERVER};Server=" & sunucu & ";Database=" & veritabani & _
";Uid=" & id & ";Pwd=" & sifre & ";"

rs.Open srg, baglanti, adOpenStatic
'Set rs = srg.Execute(Parameters:=Array(QuerySheet.Range("K2").Values))

srg.CommanText = _
"SELECT VADETRH " & _
"FROM TBLMCEK " & _
"WHERE VADETRH = ? "


Set pm = srg.CreateParameter(Name:="VADETRH", Type:=adDBTimeStamp)
srg.Parameters.Append pm
srg.Parameters("VADETRH").Value = Sayfa3.Range("B1").Value
Set rs = srg.Execute

With Range("A2:AA1000")
.ClearContents
.CopyFromRecordset rs
End With

rs.Close
baglanti.Close
End Sub

 

[Necdet]

Merhaba,

SQL Tarih sorgusu

social.technet.microsoft.com

https://www.yazilimkodlama.com/sql-server-2/sql-tarih-sorgulari/

belki bu siteler yardımcı olur.

 

[mustafatuc1]

Merhaba,

SQL Tarih sorgusu

social.technet.microsoft.com

https://www.yazilimkodlama.com/sql-server-2/sql-tarih-sorgulari/

belki bu siteler yardımcı olur.

SQL sorgusunda tarih formatını değiştirdim ama gene aynı şekilde hata verdi SQL sorgusundan kaynaklı bir sorun değilmiş gibi ekrana gelen tarih formatını yazdirdigimda gg.aa.yyyy şeklinde geliyor

 

[Levent Menteşoğlu]

Aşağıdaki kırmızı renkli ilaveleri yaparak deneyin. Adresin alınacağı hücre adresini kendinize göre belirlersiniz.

srg.CommanText = _
"SELECT VADETRH " & _
"FROM TBLMCEK " & _
"WHERE VADETRH =Cdate('" & sheets("xx").Range("xx") & "')"