Kayıt seti hatası

[AnacondAss]

Merhaba,

bağlantı bilgileri ve sql sorgusu aşağıdaki gibi fakat "kayıt seti" hatası alıyorum,

DefStr S
Sub Click()
Dim Baglanti As Object, KayitSeti As Object
Set Baglanti = CreateObject("adodb.connection")
Set KayitSeti = CreateObject("adodb.recordset")


s = "SELECT tbDepo.sDepo, tbDepo.sAciklama, Sum(tbStokFisiDetayi.lCikisMiktar1) AS 'Satis_Miktari', Sum(tbStokFisiDetayi.lBrutTutar) AS 'KDV_Dahil', Sum(tbStokFisiDetayi.lCikisTutar) AS 'KDV_Haric', tbDepo.nMagazaM2, tbDepo.nDepoM2"
s = s & "FROM xxx.dbo.tbDepo tbDepo, xxx.dbo.tbStokFisiDetayi tbStokFisiDetayi"
s = s & "WHERE tbDepo.sDepo = tbStokFisiDetayi.sDepo AND ((tbStokFisiDetayi.dteIslemTarihi={ts '2016-03-01 00:00:00'}) AND (tbDepo.sDepoTipi='2') AND (tbStokFisiDetayi.sFisTipi='P'))"
s = s & "GROUP BY tbDepo.sDepo, tbDepo.sAciklama, tbDepo.nMagazaM2, tbDepo.nDepoM2"




Baglanti.Open "Provider=SQLOLEDB; Data Source=SERVERSQL; Initial Catalog=xxx; User ID=xxx; Password=xxx;"

KayitSeti.Open s, Baglanti, 1, 1

Cells(1, 1).CopyFromRecordset KayitSeti

KayitSeti.Close
Baglanti.Close


End Sub





KayitSeti.Open s, Baglanti, 1, 1 çalıştırdığımda bu kısım sarı renk olup hata veriyor

 

[AnacondAss]

Tekrar Merhaba,

yukarıdaki sorunu hallettim fakat şimdi de tarihleri excel sayfasındaki 2 hücreden almasını istiyorum,,

Bölümde araştırdım bir kaç bir şey ekledim ama hata alıyorum

DefStr S


Sub Click()
Dim Baglanti As Object, KayitSeti As Object
Set Baglanti = CreateObject("adodb.connection")
Set KayitSeti = CreateObject("adodb.recordset")
Dim tarih1 As Date, tarih2 As Date
tarih1 = Format(Range("a1").Text, "ggaayyyy")
tarih2 = Format(Range("b1").Text, "ggaayyyy")


s = " Set dateformat dmy "
s = s & " SELECT tbDepo.sDepo, tbDepo.sAciklama, Sum(tbStokFisiDetayi.lCikisMiktar1) AS 'Satis_Miktari', Sum(tbStokFisiDetayi.lBrutTutar) AS 'KDV_Dahil', Sum(tbStokFisiDetayi.lCikisTutar) AS 'KDV_Haric', tbDepo.nMagazaM2, tbDepo.nDepoM2"
s = s & " FROM xxx.dbo.tbDepo tbDepo, xxx.dbo.tbStokFisiDetayi tbStokFisiDetayi"
s = s & " WHERE tbDepo.sDepo = tbStokFisiDetayi.sDepo AND ((tbStokFisiDetayi.dteIslemTarihi between '01.03.2016' and '03.03.2016' ) AND (tbDepo.sDepoTipi='2') AND (tbStokFisiDetayi.sFisTipi='P'))"
s = s & " GROUP BY tbDepo.sDepo, tbDepo.sAciklama, tbDepo.nMagazaM2, tbDepo.nDepoM2"




Baglanti.Open "Provider=SQLOLEDB; Data Source=SERVERSQL; Initial Catalog=xxx; User ID=xxx; Password=xxx;"

KayitSeti.Open s, Baglanti, 1, 1

Cells.ClearContents
Range("A2").CopyFromRecordset KayitSeti



KayitSeti.Close
Baglanti.Close



tarih1 = Format(Range("a1").Text, "ggaayyyy") bu kısım sarı renk oluyor

Lütfen yardımlarınızı rica ediyorum

 

[AnacondAss]

Tekrar Merhaba,

yukarıdaki sorunu hallettim fakat şimdi de tarihleri excel sayfasındaki 2 hücreden almasını istiyorum,,

Bölümde araştırdım bir kaç bir şey ekledim ama hata alıyorum

DefStr S


Sub Click()
Dim Baglanti As Object, KayitSeti As Object
Set Baglanti = CreateObject("adodb.connection")
Set KayitSeti = CreateObject("adodb.recordset")
Dim tarih1 As Date, tarih2 As Date
tarih1 = Format(Range("a1").Text, "ggaayyyy")
tarih2 = Format(Range("b1").Text, "ggaayyyy")


s = " Set dateformat dmy "
s = s & " SELECT tbDepo.sDepo, tbDepo.sAciklama, Sum(tbStokFisiDetayi.lCikisMiktar1) AS 'Satis_Miktari', Sum(tbStokFisiDetayi.lBrutTutar) AS 'KDV_Dahil', Sum(tbStokFisiDetayi.lCikisTutar) AS 'KDV_Haric', tbDepo.nMagazaM2, tbDepo.nDepoM2"
s = s & " FROM xxx.dbo.tbDepo tbDepo, xxx.dbo.tbStokFisiDetayi tbStokFisiDetayi"
s = s & " WHERE tbDepo.sDepo = tbStokFisiDetayi.sDepo AND ((tbStokFisiDetayi.dteIslemTarihi between '01.03.2016' and '03.03.2016' ) AND (tbDepo.sDepoTipi='2') AND (tbStokFisiDetayi.sFisTipi='P'))"
s = s & " GROUP BY tbDepo.sDepo, tbDepo.sAciklama, tbDepo.nMagazaM2, tbDepo.nDepoM2"




Baglanti.Open "Provider=SQLOLEDB; Data Source=SERVERSQL; Initial Catalog=xxx; User ID=xxx; Password=xxx;"

KayitSeti.Open s, Baglanti, 1, 1

Cells.ClearContents
Range("A2").CopyFromRecordset KayitSeti



KayitSeti.Close
Baglanti.Close



tarih1 = Format(Range("a1").Text, "ggaayyyy") bu kısım sarı renk oluyor

Lütfen yardımlarınızı rica ediyorum

 

[AnacondAss]

Dim tarih1 As Date, tarih2 As Date
tarih1 = Format(Range("A1").Value, "dd.mm.yyyy")
tarih2 = Format(Range("B1").Value, "dd.mm.yyyy")


Bu şekilde çözdüm arkadaşlar yinede çok sağolun