- 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ı.
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ı.
