veritabanından kriterli veri almak

[kuşak]

merhabalar arkadaşlar

Bir verit tabanına ait verinin tarih ve numarasını belirli bir hücreden okuyup veri alma işlemini yapabilir mi? Kaydettiğim kod aşağıdaki gibidir. Uğraştım yapamadım kırmızı yerler hücrenin kriter verilip düzelmesi gereken yerler

mesela 870052 numaralı fişin verisi gerekli ben bu fiş numarası yerine sheets("sayfa1").range("g1") yaptım olmadı

yardımlarınızı bekliyorum

Sub veriaktar()

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=2008YTL;Description=2008YTL;UID=2008YTL;;APP=Microsoft Office 2003;WSID= makine1;DATABASE=2008YTL;LANGUAGE=Türkçe;Network=DBNMPN" _
), Array("TW")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT vwDepoTransferi.Fis_Tarihi, vwDepoTransferi.Fis_No, vwDepoTransferi.Satir_Stok_Islem, vwDepoTransferi.Fis_Aciklamasi_1, vwDepoTransferi.Fis_Toplam_Miktar" & Chr(13) & "" & Chr(10) & "FROM 2008YTL.dbo.vwDepoTransferi vwDep" _ , _ "depoTransferi" & Chr(13) & "" & Chr(10) & "WHERE (vwDepoTransferi.Fis_Tarihi={ts '2008-03-25 00:00:00'}) AND (vwDepoTransferi.Fis_No=870052)" _
)
.Name = "2008YTL kaynağından sorgula"
.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

 

[kuşak]

cevap yok mu?

arkadaşlar cevap yazan çıkmadı hala
ya da veritabanından veri aktarmayla ilgili dosyası olan var mı?