Merhaba,
Aşağıdaki Macro ile verileri excel e çekiyoruz. Ancak şöyle bir sorunumuz var.
Netsis veritabanın karater setleri gereği Türkçe karakterler bozuk geliyor. "DENİZBANK" yerine DENYZBANK" gibi. Öncelikle bu karakter bozukluğunu excel de nasıl düzeltebiliriz.
ikinci olarak
bu gelen kayıtların 15 tanesini çalışma sayfası 1 e 16 ile 30 arasını sayfa 2 v.s.
15 li olarak gruplasın ve yeteri katar çalışma sayfası oluştursun. Bunu yapmak mümkün müdür acaba?
Private Sub CommandButton1_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
sserver = "NETSIS"
sqluserNAME = "sa"
sqlsifre = "password"
database = "SIRKET"
con.Open "driver={SQL server};Server=" & sserver & "; uid=" & sqluserNAME & "; pwd=" & sqlsifre & "; database=" & database
Sql = "SELECT B.CARI_ISIM, A.TCMBSUBEKODU, C.BANKAADI, D.SUBEADI, A.IBANNO, SUM (A.TUTAR) AS TOPTUTAR FROM TBLODEEMIR AS A INNER JOIN TBLCASABIT AS B ON A.SATICI_KOD = B.CARI_KOD INNER JOIN TBLBNKSABIT AS C ON C.TCMBBANKAKODU = A.TCMBBANKAKODU INNER JOIN TBLBNKSUBESABIT AS D ON D.TCMBSUBEKODU = A.TCMBSUBEKODU group by B.CARI_ISIM, A.TCMBSUBEKODU, C.BANKAADI, D.SUBEADI, A.IBANNO"
rs.Open Sql, con, 1, 3
satir = 12
While Not rs.EOF
Sayfa1.Cells(satir, 2) = rs.Fields(0)
Sayfa1.Cells(satir, 3) = rs.Fields(1)
Sayfa1.Cells(satir, 4) = rs.Fields(2)
Sayfa1.Cells(satir, 5) = rs.Fields(3)
Sayfa1.Cells(satir, 6) = rs.Fields(4)
Sayfa1.Cells(satir, 7) = rs.Fields(5)
satir = satir + 1
rs.MoveNext
Wend
rs.Close
con.Close
End Sub
Aşağıdaki Macro ile verileri excel e çekiyoruz. Ancak şöyle bir sorunumuz var.
Netsis veritabanın karater setleri gereği Türkçe karakterler bozuk geliyor. "DENİZBANK" yerine DENYZBANK" gibi. Öncelikle bu karakter bozukluğunu excel de nasıl düzeltebiliriz.
ikinci olarak
bu gelen kayıtların 15 tanesini çalışma sayfası 1 e 16 ile 30 arasını sayfa 2 v.s.
15 li olarak gruplasın ve yeteri katar çalışma sayfası oluştursun. Bunu yapmak mümkün müdür acaba?
Private Sub CommandButton1_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
sserver = "NETSIS"
sqluserNAME = "sa"
sqlsifre = "password"
database = "SIRKET"
con.Open "driver={SQL server};Server=" & sserver & "; uid=" & sqluserNAME & "; pwd=" & sqlsifre & "; database=" & database
Sql = "SELECT B.CARI_ISIM, A.TCMBSUBEKODU, C.BANKAADI, D.SUBEADI, A.IBANNO, SUM (A.TUTAR) AS TOPTUTAR FROM TBLODEEMIR AS A INNER JOIN TBLCASABIT AS B ON A.SATICI_KOD = B.CARI_KOD INNER JOIN TBLBNKSABIT AS C ON C.TCMBBANKAKODU = A.TCMBBANKAKODU INNER JOIN TBLBNKSUBESABIT AS D ON D.TCMBSUBEKODU = A.TCMBSUBEKODU group by B.CARI_ISIM, A.TCMBSUBEKODU, C.BANKAADI, D.SUBEADI, A.IBANNO"
rs.Open Sql, con, 1, 3
satir = 12
While Not rs.EOF
Sayfa1.Cells(satir, 2) = rs.Fields(0)
Sayfa1.Cells(satir, 3) = rs.Fields(1)
Sayfa1.Cells(satir, 4) = rs.Fields(2)
Sayfa1.Cells(satir, 5) = rs.Fields(3)
Sayfa1.Cells(satir, 6) = rs.Fields(4)
Sayfa1.Cells(satir, 7) = rs.Fields(5)
satir = satir + 1
rs.MoveNext
Wend
rs.Close
con.Close
End Sub