hücredeki değere göre sql den veri listeleme

[enorjinalinsan]

Arkadaşlar bir konuda yardımınıza ihtiyacım var

Benim bir SQL veritabanım var Vb6 da yazılmış proğram ile kullanılıyor
ben bazı verileri raporlamam gerekiyor ve bunu excel de yapmam gerekiyor
araştırmalarım sonucunda aşağıdaki kodlara ulaştım ama sorunlarım oldu bu konuda bana yardımcı olursanız süper olur
şimdiden çıok teşekkür ederim

1 - Aşağıdaki kodu Sadece liste sayfası A1 hücresinden alacağım değere göre verileri listelersem tek sorun A1 hücresindeki veriyi silmesi

2 - Birden fazla " A1 ve A2 hücrelerinden alacağım " veriye göre uyarlamaya çalıştım " .Refresh BackgroundQuery:=False " satırında hata verdi

3 - eğer olursa A2 hücresine yazacağım tarih ve saat göre yapabilirmiyiz.

.Net te yapılmış olanı aşağıdaki gibi

" sql = sql + " WHERE BasTar + BasSaat >='" + Tsaat1 + "' and  BasTar + BasSaat <= '" + Tsaat2 + "'

"

Sub SORGU()
Dim LokasyonNo As Integer
Dim isno As Integer
LokasyonNo = Sheets("liste").Range("A1").Value
isno = Sheets("liste").Range("A2").Value



With Sheets("liste").QueryTables.Add(Connection:="ODBC;DSN=demirAys;;UID=sa;PWD=1234;;;DATABASE=aysDB;", Destination:=Range("A4"))


.CommandText = Array("SELECT * " & Chr(13) & "" & Chr(10) & _
" FROM aysDB.dbo.IsTakip " & Chr(13) & "" & Chr(10) & " WHERE LokasyonNo = " & LokasyonNo & " AND isno = " & isno & "")


.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub