- Katılım
- 27 Nisan 2007
- Mesajlar
- 4
- Excel Vers. ve Dili
- Office 2003
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
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