sorguda tarihi manuel girmek...
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=3857
Tarih: 22 Kasım 2024 Saat 00:33
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com
Konu: sorguda tarihi manuel girmek...
Mesajı Yazan: xenium
Konu: sorguda tarihi manuel girmek...
Mesaj Tarihi: 17 Eylül 2014 Saat 22:59
|
Selam arkada?lar, yapmy? oldu?um sql sorgularyny excel'de dy? veri al ile excel'e atyyorum ama tarih araly?yny ?irketteki arkada?larymyn kendilerinin girerek raporu almalaryny istiyorum. Bunu nasyl yapaca?yny çok ara?tyrdym ama somuca varamadym; makro bilgim olmady?y için yapamyyorum ve yapty?ym ara?tyrmalarda da pek sonuca varamadym maalesef. Örne?in A1 hücresi:01.01.2014 A2 hucresi: 01.07.2014 ve SORGULA ?eklinde bir buttona basylarak raporu alabilmem için basit bir excell sayfasy payla?manyzy rica ediyorum.. SQL SERVER: XENIUM kullanycy: sa ?ifre:s DATA: NETSIS_2014 örnek raporum ?öyle: SELECT STHAR_TARIH, STOK_KODU, (SELECT STOK_ADI FROM TBLSTSABIT WHERE TBLSTSABIT.STOK_KODU=TBLSTHAR.STOK_KODU) AS 'STOK ADI', IRSALIYE_NO,STHAR_SIPNUM, STHAR_BGTIP AS 'HAR.TYP', CASE WHEN STHAR_BGTIP='I' THEN 'YRSALYYEDEN' WHEN STHAR_BGTIP='F' THEN 'FATURADAN' ELSE '0' END AS 'HAREKET NERDEN', STHAR_GCKOD,STHAR_GCMIK AS MIKTAR, ISNULL(STHAR_NF*STHAR_GCMIK,0) AS 'NET ÇIKI? TUTAR',(SELECT OLCU_BR1 FROM TBLSTSABIT WHERE TBLSTSABIT.STOK_KODU=TBLSTHAR.STOK_KODU) AS 'Br', (SELECT DEPO_KODU FROM TBLSTSABIT WHERE TBLSTSABIT.STOK_KODU=TBLSTHAR.STOK_KODU) AS 'DEPO KODU', DEPO_KODU, FISNO,STHAR_CARIKOD AS 'CARY', STHAR_KOD1, STHAR_KOD2, KOSULKODU, STHAR_HTUR, CASE WHEN STHAR_HTUR='A' THEN 'DEVYR' WHEN STHAR_HTUR='B' THEN 'DEPOLAR ARASI TRF.' WHEN STHAR_HTUR='C' THEN 'ÜRETYM' WHEN STHAR_HTUR='D' THEN 'MUHTELYF' WHEN STHAR_HTUR='E' THEN 'MYKTARSIZ MALYYET' WHEN STHAR_HTUR='F' THEN 'KONSYNYE' WHEN STHAR_HTUR='H' THEN 'YRSALYYE TYPLY HAR.' WHEN STHAR_HTUR='I' THEN 'KAPALI FATURA' WHEN STHAR_HTUR='J' THEN 'AÇIK FATURA' ELSE '0' END AS 'HAREKET', STHAR_ODEGUN,VADE_TARIHI, STHAR_FTIRSIP AS 'FAT.TIP', CASE WHEN STHAR_FTIRSIP='1' THEN 'SATI? FATURASI' WHEN STHAR_FTIRSIP='2' THEN 'ALI? FATURASI' WHEN STHAR_FTIRSIP='3' THEN 'SATI? YRSALYYESY' WHEN STHAR_FTIRSIP='4' THEN 'ALI? YRSALYYESY' WHEN STHAR_FTIRSIP='5' THEN 'SATI? FATURASI' WHEN STHAR_FTIRSIP='6' THEN 'MÜ?TERY SYPARY?Y' WHEN STHAR_FTIRSIP='7' THEN 'SATICI SYPARY?Y' WHEN STHAR_FTIRSIP='8' THEN 'DEPO ARASI TRF. GYRY?' WHEN STHAR_FTIRSIP='9' THEN 'DEPO ARASI TRF. ÇIKI?' ELSE '0' END AS 'FAT TYPY' FROM TBLSTHAR WHERE FISNO IS NOT NULL AND STHAR_GCKOD='C' AND STOK_KODU LIKE 'M-02%' AND STHAR_TARIH BETWEEN '2014.01.01' AND '2014.07.01' |
Cevaplar:
Mesajı Yazan: mbaykan
Mesaj Tarihi: 18 Eylül 2014 Saat 09:09
|
sorguyu de?i?tirdim dosya link'i https://drive.google.com/file/d/0B69Mq46vmrVhcU92NXJPaW9NUnc/edit?usp=sharing" rel="nofollow - https://drive.google.com/file/d/0B69Mq46vmrVhVEwtZWJhWDJUaUk/edit?usp=sharing" rel="nofollow - https://drive.google.com/file/d/0B69Mq46vmrVhVEwtZWJhWDJUaUk/edit?usp=sharing
------------- Mehmet Baykan |
Mesajı Yazan: xenium
Mesaj Tarihi: 18 Eylül 2014 Saat 15:53
|
sayyn baykan, benim için u?ra?ty?ynyz için te?ekkür ederim. Dosyanyzy indirdim ama SQL ba?lanty hatasy veriyor; halbuki yanly? bir?ey girdi?imi de dü?ünmüyorum. Daha önce sizin irsaliyeyap.xls dosyanyzy indirmi? ve ba?lanabilmi?tim ama buna bir türlü ba?lanamadaym. ?u bilgileri yazdym çaly?manyza, sonra kaydedip çyktym ama yine olmady. SERVER TUNC-MEC\SQLYSFGYK SIRKET TEST2014 KULLANICI sa SIFRE papatya |
Mesajı Yazan: mbaykan
Mesaj Tarihi: 18 Eylül 2014 Saat 17:43
|
SQL instance'ynyz yazdy?ynyz gibi olmayabilir Excel'de dy? veri Al ile yapty?ynyz ba?lantyda Data Source olarak ne yazyyor ise onu yazmalysynyz, makinanyzda tek SQL Server kurulu ve Default instance ise Makinanyn adyny yazmalysynyz size gönderdi?im örnek'te makinamda SQLEXPRESS isimli bir instance kurulu oldu?u için .\SQLEXPRESS ?eklinde yazdym 2. bir yöntem de isim yerine IP yazmak 192.168.0.1 instance varsa 192.168.0.1\<INSTANCE> ?eklinde Güncellenmi? hali https://drive.google.com/file/d/0B69Mq46vmrVhVEwtZWJhWDJUaUk/edit?usp=sharing" rel="nofollow - https://drive.google.com/file/d/0B69Mq46vmrVhVEwtZWJhWDJUaUk/edit?usp=sharing
------------- Mehmet Baykan |
Mesajı Yazan: xenium
Mesaj Tarihi: 18 Eylül 2014 Saat 18:01
|
dy? veri al yaptyktan sonra ba?lanty özelliklerinde DATA SOURCE kysmynda TUNC-MEC\SQLYSFGYK yazyyor ve sql!i localde kendi notebook'uma kurdum. |
Mesajı Yazan: mbaykan
Mesaj Tarihi: 18 Eylül 2014 Saat 18:02
|
linki güncelledim (dosyayy da) ------------- Mehmet Baykan |
Mesajı Yazan: xenium
Mesaj Tarihi: 19 Eylül 2014 Saat 08:24
|
Dosyayy ?imdi açtym ve çaly?yyor. Ellerinize ve eme?inize sa?lyk sayyn mbaykan. Filtre de ekleyerek jest yapmy?synyz :) Makronuzun içine baktym ve çözmeye çaly?tym ki, di?er yapmy? oldu?um raporlara da bu ?ekilde tarih kystasy verebileyim ve kullanycylar kullansyn. Ben, makro içinde, bir bölümde SQl sorgusunu koyup bu ?ekilde sizin excel dosyasynyn farkly kopyalaryny alaca?ymy dü?ünmü?tüm ama o kadar kolay de?ilmi?. Çünkü makro içinde sorgunun oldu?u yerde, "SELECT STHAR_TARIH,A.STOK_KODU,STOK_ADI,IRSALIYE_NO,STHAR_SIPNUM,STHAR_BGTIP AS 'HAR.TYP'," & Chr(13) & "" & Chr(10) & "CASE WHEN STHAR_BGTIP='" _ , _ "I' THEN 'YRSALYYEDEN' WHEN STHAR_BGTIP='F' THEN 'FATURADAN' ELSE '0' END AS 'HAREKET NERDEN'," & Chr(13) & "" & Chr(10) & "STHAR_GCKOD,STHAR_GC" _ ?eklinde ifadeler var ve bu ifadeleri görünce, sql sorgusunu rahatlykla koyamayaca?ymy anladym ve moralim bozuldu :( |
Mesajı Yazan: mbaykan
Mesaj Tarihi: 19 Eylül 2014 Saat 09:07
sorgunun bu ?ekilde görünmesi size korkunç gelmi? olabilir, ama de?il  VBA'da Dim SQLtxt satyry ile sorgunuzu yazaca?ynyz bir de?i?keni yarattyktan sonra bunu a?a?ydaki gibi doldururuz SQLtxt="" SQLtxt=SQLtxt & "SELECT ... FROM ... " SQLtxt=SQLtxt & "WHERE ..... " ile olu?turun (not bu i?lem SQL tarafynda yapylyrsa Dinamik SQL diye adlandyrylyr sonunda EXECUTE (SQLtxt) komutu ile SQL'de çaly?tyrylyp sonucu alynyr.) biz VBA'da sorgumuzu bir string olarak olu?turup bunu komut olarak server'a gönderiyoruz bu komutu olu?tururken parçalaryna istedi?imiz gibi hakim olma imkanyny verir. Örne?in SELECT kelimesini takip eden Sütunlary kullanycydan da isteyebiliriz bunun gibi WHERE sözcü?ünü takip eden kysyt/filtreleri de keza sorabiliriz yukarydaki SQLtxt ifadesini Excel Makro kaydy Array olarak kaydeder yzaylmy? SQL ifadesindeki Satyr atlamalaryny Chr(13) + chr(10) kodlary ile bu ifadeye ekler (eklenmesi sorgunun okunaklyly?yny arttyryr olasa da komutumuzun çaly?masyna etki etmez) Sorgu ?fadesine ba?ka bir örnek a?a?yda SQLtxt="" SQLtxt="SELECT ... FROM ..." _ & "WHERE ... " _ & "...... " bölünen satyrlar ?eklinde olabilir (altçizgi) den önce 1 karakter bo?luk zorunludur!!! ------------- Mehmet Baykan |
Mesajı Yazan: mbaykan
Mesaj Tarihi: 19 Eylül 2014 Saat 09:11
|
sorgunun Excelde bir hücreden alynmasy (bütünü ile) problemdir. nedeni 255 karakter kysyty sanyrym (emin de?ilim) alternatif olarak bir Textbox nesnesinin içeri?inden bunu almak olabilir belki ??? ------------- Mehmet Baykan |
Mesajı Yazan: xenium
Mesaj Tarihi: 19 Eylül 2014 Saat 11:26
|
Do?ru mu anladym sayyn mbaykan? sorguda geçen ve her biri aslynda bir sütun olarak rapora yansyyacak alanlary, tümünü olmasa da, kysmen karakter araly?yny vererek bölüp, excel'de daha rahat okunabilir olmasyny sa?lyyorsunuz veya tek hücreye raporda geçen tüm sutunlar sy?mayaca?y için bu tip bir ?ey yapyyorsunuz. Peki dy? veri al yapty?ymyzda ve daha sonra ba?lanty özelliklerinden SQL sorgumuza bakty?ymyzda neden Chr(13) + chr(10) gibi ifadeleri görmüyoruz? Makro dy?ynda, ba?ka bir teknik kullanyyor galiba excel SQL sorgusunu içeri alyrken!.. Peki sorgunun bazy bölümlerine manuel olarak " & Chr(13) & " gibi ifadeler koyup bu parçalamayy yapamaz myyyz? Mesela makro içine girip ?u ?ekilde yazsam olmaz my? SELECT STHAR_TARIH," & Chr(13) & ", STOK_ADI," & Chr(13) & ",FIS_NO," & Chr(13) & " gibi istedi?im ?ekilde herhangi bir sql sorgusunu sütunlaryna bölemez miyim? E?er olursa, sizin excel dosyanyzyn makrosuna girecem ve istedi?im sorguyu koyup sonra farkly kaydedecem. Çünkü tüm yapty?ym raporlarymda, hep kullanycynyn tarihi kendi girmesini isteyece?im. Olursa harika olur. Aksi takdirde, bir ?ekilde ö?renmem lazym bu parçalama i?ini?
|
Mesajı Yazan: mbaykan
Mesaj Tarihi: 19 Eylül 2014 Saat 12:21
|
Chr(13) + chr(10) veya chr(13) & chr(10) CR + LF (Carriage Return ve Line Feed) Satyr sonu ve Satyr atla bunlary Dy? veri Al'da SQL ifadenizde okurken farkedersiniz (bunlar bu pencerede görünmezler) SQL komut satyrynyzy bölerler fakat bu bölünme bütünü (tüm komutu) etkilemez. Tersinden de biz komutumuzu hiç CR+LF ( Chr(13) ve Chr(10) ) kullanmadan da yazabiliriz ve komut SQL'e bölünerek de gitse bölünmeden de gitse SONUÇ döner. CR + LF komutun okunaklyly?yny sa?lar 2. Atty?ym mesajda Dinamik SQL'e ili?kin söylediklerimi örnekle (excel dosyasy) açyklamak faydaly olacak kasdetti?imi daha iyi anlayacaksynyz tahmin ederim. Excelde 1 sayfada sunlar var (A sütunu kolon adlary, B sütunu ise Raporda seçili olup olmady?y) Sütun_Ady Seçim STOK_KODU x STOK_ADI x OLCU_BR1 ALIS_FIAT1 x ALIS_FIAT2 SATIS_FIAT1 x SATIS_FIAT2 GRUP_KODU x KOD_1 KOD_2 x : ?eklinde VBA'da ki kodumda Dim SQLtxt k=2 While cells(k,1)<>"" if cells(k,2).value <> "" then SQLtxt=SQLtxt & cells(k,1).value & ", " EndIf k=k+1 Wend Sqltxt= "SELECT " & Left(SQLtxt,Len(SQLtxt)-2) & chr(13) + chr(10) ' CR + LF eklemesekte olur 'yukaryda hangi kolonlary seçtiysek onlary SELECT'in arkasyna ekledik bitmedi ... SQLtxt=SQLtxt & "FROM TBLSTSABIT " & chr(13) +chr(10) SQLtxt=SQLtxt & "WHERE ....... (burayyda seçim de oldu?u gibi filtreler için de excel'den bir yerden alynabilir)" komut dizemizi yaptyktan sonra Debug.Print SQLtxt ile VBasic ekranyna çaly?tytdy?ymyzda komutun düzgün olu?up olu?mady?yny kontrol ederiz ...devamy ba?ka bir mesajda veya tablo da ------------- Mehmet Baykan |