• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sql yapısı excelde farklı mı

Katılım
14 Ocak 2005
Mesajlar
807
Excel Vers. ve Dili
Microsoft Office Professional Plus 2021
Call Main
DoEvents
SQLCON.Open

'ay = Range("B2")
'basmlz = Range("A4")
'bitmlz = Range("B4")
'basdep = Range("A6")
'bitdep = Range("B6")

' VT DE ÇALIŞAN HALİ
'SELECT SUM(SATIS_TUTAR) FROM SATIS
'JOIN STSMLZ ON (STSMLZ_KOD= SATIS_MLZ_KOD)
'WHERE

'SATIS_TAR BETWEEN '2009-06-01' AND '2009-06-30' AND
'SATIS_DEP = '11' AND
'SATIS_ODA_NUM NOT IN ('9999','7777','8888') AND
'STSMLZ_SAT_TIP IN ('02','03')


SQL1 = "SELECT SUM(SATIS_TUTAR) FROM SATIS "
SQL2 = "JOIN STSMLZ ON (STSMLZ_KOD= SATIS_MLZ_KOD) "
SQL3 = "WHERE "
SQL4 = "SATIS_TAR BETWEEN '2009-06-01' AND '2009-06-30' AND "
SQL5 = "SATIS_ODA_NUM NOT IN ('9999','7777','8888') AND "
SQL6 = "STSMLZ_SAT_TIP IN ('02','03')"

SQLANA = SQL1 & SQL2 & SQL3 & SQL4 & SQL5 & SQL6
Set RST.DataSource = SQLCON.Execute(SQLANA)
Range("B6").Select
Selection.ClearContents

Do Until RST.EOF
For I = 1 To RST.RecordCount Step 1
Cells(I + 6, 2) = RST.Fields(0)
'Cells(I + 7, 4) = RST.Fields(2)
'Cells(I + 7, 5) = RST.Fields(3)

RST.MoveNext

Next I
Loop
RST.Close
SQLCON.Close

Yukarıda kod sql kodu sql editörde çalışıyor fakat
excele uygulandığım zaman sonuç getirip b6 hücresine yazması gerekiyor
ama bir şey yazmıyor sebebi ne olabilir. acaba sql cümle kuruluşlarında excede farklı mı.
 
Geri
Üst