ERP Nedir? | Türkiye'nin ERP Forum Platformu : ERP Veritabanindan Excel e Sayfalama http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 18 Apr 2026 01:38:10 +0000 Thu, 04 Aug 2011 18:11:01 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=2692 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[ERP Veritabanindan Excel e Sayfalama : con.Open &#034;driver={SQL server};Server=&#034;...]]> http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15070.html#15070 Yazar: mbaykan
Konu: 2692
Gönderim Zamanı: 04 Ağustos 2011 Saat 18:11

con.Open "driver={SQL server};Server=" & sserver & "; uid=" & sqluserNAME & "; pwd=" & sqlsifre & "; database=" & database & ";Auto Translate=False"]]> Thu, 04 Aug 2011 18:11:01 +0000 http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15070.html#15070 <![CDATA[ERP Veritabanindan Excel e Sayfalama : türkçe harfleri...]]> http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15069.html#15069 Yazar: ukde
Konu: 2692
Gönderim Zamanı: 04 Ağustos 2011 Saat 16:29

türkçe harfleri dogru görebilmeniz için
Connection string'ine Auto Translate=False ifadesini eklemelisiniz

demissiniz.

Bunu yukaridaki kodlarda tam olarak nereye yerlestirecegimi söyleyebilir misiniz?


]]> Thu, 04 Aug 2011 16:29:12 +0000 http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15069.html#15069 <![CDATA[ERP Veritabanindan Excel e Sayfalama : türkçe harfleri dogru görebilmeniz...]]> http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15040.html#15040 Yazar: mbaykan
Konu: 2692
Gönderim Zamanı: 30 Temmuz 2011 Saat 20:46

türkçe harfleri dogru görebilmeniz için
Connection string'ine Auto Translate=False ifadesini eklemelisiniz

Sayfalama mantigi neden gerekli?
bana göre anlamsiz..
yine de  sizin makronuzda okudugunuz kayitlari sayac degiskeni
ile sayip
if sayac % 15 = 0 then
ile 15 ve katlarinda sayfa degistirmeyi gerkçeklestirirsiniz


]]> Sat, 30 Jul 2011 20:46:54 +0000 http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15040.html#15040 <![CDATA[ERP Veritabanindan Excel e Sayfalama : Merhaba,Asagidaki Macro ile...]]> http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15032.html#15032 Yazar: ukde
Konu: 2692
Gönderim Zamanı: 29 Temmuz 2011 Saat 09:01

Merhaba,

Asagidaki Macro ile verileri excel e çekiyoruz. Ancak söyle bir sorunumuz var.

Netsis veritabanin karater setleri geregi Türkçe karakterler bozuk geliyor. "DENIZBANK" yerine DENYZBANK" gibi. Öncelikle bu karakter bozuklugunu excel de nasil düzeltebiliriz.
ikinci olarak
bu gelen kayitlarin 15 tanesini çalisma sayfasi 1 e 16 ile 30 arasini sayfa 2 v.s.
15 li olarak gruplasin ve yeteri katar çalisma sayfasi olustursun. 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
]]> Fri, 29 Jul 2011 09:01:20 +0000 http://www.erpne.org/erp-veritabanindan-excel-e-sayfalama_topic2692_post15032.html#15032