Excel' veri alma

   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

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
unalh Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 08 Ekim 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı unalh Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Excel' veri alma Gönderim Zamanı: 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

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 12 Mart 2010 Saat 18:01
	A.CEK_SUBE Ekleyiniz.
	Netsisden vazgeçemiyorum. Beni engelliyor..

unalh Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 08 Ekim 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı unalh Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 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 ? Düzenleyen unalh - 13 Mart 2010 Saat 08:40

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 13 Mart 2010 Saat 11:50
	eklediginiz yer yanlis suraya ekleyin SqlText = SqlText + " A.TUTAR, A.CEK_SUBE " Düzenleyen mbaykan - 13 Mart 2010 Saat 11:52
	Mehmet Baykan

unalh Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Üye Kayıt Tarihi: 08 Ekim 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı unalh Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 15 Mart 2010 Saat 08:14
	mbaykan, Ilginiz için tesekkür ederim raporu gayet güzel alabiliyorum. Hayirli isler.

BEYTULLAH Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Ocak 2011 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı BEYTULLAH Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 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