Excel' veri alma
Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP ve Excel
Forum Tanımlaması: ERP'den Excel'e Veri Çekmek ve Excel İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=2005
Tarih: 22 Kasım 2024 Saat 07:40
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com
Konu: Excel' veri alma
Mesajı Yazan: unalh
Konu: Excel' veri alma
Mesaj Tarihi: 12 Mart 2010 Saat 17:36
|
S.a Arkadaslar, Asagidaki kodlarla netsis'den excel'e veri aliyorum yapmak istedigim çekin subesi bölümünüde almak bunun için hangi tabloyu eklemem gerekiyor. With conn .Provider = "sqloledb" .CommandTimeout = 120 .ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value & ";USER ID=" & Sheet1.Cells(8, 5).Value & ";PASSWORD=" & Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE" .Open .DefaultDatabase = Sheet5.ComboBox1.Text End With SqlText = "SELECT A.SC_NO,A.VADETRH,A.SC_VERENK," SqlText = SqlText + " B.CARI_ISIM,A.SC_ABORCLU," SqlText = SqlText + " A.YERI,A.CEKSERI,A.SC_VERILENK,(CASE WHEN SC_YERI='T' THEN C.ACIKLAMA ELSE (SELECT D.CARI_ISIM FROM TBLCASABIT D WHERE D.CARI_KOD=A.SC_VERILENK) END),A.RAPOR_KODU," SqlText = SqlText + " A.TUTAR" SqlText = SqlText + " FROM TBLMCEK A WITH (NOLOCK) JOIN TBLCASABIT B WITH (NOLOCK) ON (A.SC_VERENK=B.CARI_KOD)" SqlText = SqlText + " LEFT OUTER JOIN TBLBNKHESSABIT C WITH (NOLOCK) ON (A.SC_VERILENK=C.NETHESKODU)" SqlText = SqlText + " WHERE A.VADETRH BETWEEN '" + Format$(Sheet5.Cells(2, 2), "yyyy-mm-dd") + "' AND '" + Format$(Sheet5.Cells(3, 2), "yyyy-mm-dd") + "'" SqlText = SqlText + " AND A.SC_SONDUR='" & Sheet5.Cells(2, 1).Value & "'" SqlText = SqlText + " AND A.SC_YERI='" & Sheet5.Cells(3, 1).Value & "'" SqlText = SqlText + " ORDER BY A.VADETRH ASC" rs.Open SqlText, conn, adOpenStatic, adLockReadOnly Sheet5.Range("B11:L10000").ClearContents Sheet5.Activate i = 11 Do While Not rs.EOF |
Cevaplar:
Mesajı Yazan: Conari
Mesaj Tarihi: 12 Mart 2010 Saat 18:01
|
A.CEK_SUBE Ekleyiniz. ------------- Netsisden vazgeçemiyorum. Beni engelliyor.. |
Mesajı Yazan: unalh
Mesaj Tarihi: 13 Mart 2010 Saat 08:39
|
S.a Conari bey,
Ilginiz için tesekkürler.
Kodu asagidaki sekilde denedim
SqlText = SqlText + " ORDER BY A.VADETRH ASC"
SqlText = SqlText + " A.CEK_SUBE" rs.Open SqlText, conn, adOpenStatic, adLockReadOnly------------------ Bu satirda hata verdi sebebi ne olabilir acaba ?
 |
Mesajı Yazan: mbaykan
Mesaj Tarihi: 13 Mart 2010 Saat 11:50
|
eklediginiz yer yanlis
suraya ekleyin SqlText = SqlText + " A.TUTAR, A.CEK_SUBE " ------------- Mehmet Baykan |
Mesajı Yazan: unalh
Mesaj Tarihi: 15 Mart 2010 Saat 08:14
|
member_profile.asp?PF=431&FID=42 - mbaykan ,
Ilginiz için tesekkür ederim raporu gayet güzel alabiliyorum.
Hayirli isler.
|
Mesajı Yazan: BEYTULLAH
Mesaj Tarihi: 25 Şubat 2011 Saat 17:12
|
arkadaslar ben yeniyim hem burda hem bu konularda bir sorum olacak bu kodu excell vba ya mi yaziyoruz yoksa baska yeremi çalistigim sirket de yeni netsise geçtide kolaylik olsun diye excelle veri aktarimi filan yaparsak yardimci olsun bize ------------- beyto |