SQL Veri Tabanı İşlemleri - Excel Sayfasinda SQL'e Baglanma

Sayfayı Yazdır | Pencereyi Kapat

Excel Sayfasinda SQL'e Baglanma

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: SQL
Forum Adı: SQL Veri Tabanı İşlemleri
Forum Tanımlaması: Table,View,Trigger,SELECT,UPDATE,INSERT...
URL: http://www.erpne.org/forum_posts.asp?TID=1981
Tarih: 22 Ağustos 2025 Saat 23:02
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Excel Sayfasinda SQL'e Baglanma

Mesajı Yazan: sonses10
Konu: Excel Sayfasinda SQL'e Baglanma
Mesaj Tarihi: 04 Mart 2010 Saat 09:56

Istedigim excel sayfasinda SQL'e baglanma ile ilgili kodlar yada excel sayfasinda hazirlanmis (sifrelenmemis) bir örnek sayfa. Bununla ilgili bana yardimci olabilirmisiniz. Özellikle Conari ve NetsisForever sizlerden ilgi bekliyorum.

-------------
Istikbal Göklerdedir !!!

Cevaplar:

Mesajı Yazan: Conari
Mesaj Tarihi: 04 Mart 2010 Saat 11:09

Daha önce Ben vermistim.

Sub Listele()
     Dim SqlText As String
     Dim cnnn, rs As Object

Set cnnn = CreateObject("ADODB.Connection")
Set rss = CreateObject("ADODB.Recordset")

strDatabase = Sheets("login").Range("I1").Value
strKullanici = Sheets("login").Range("I2").Value
strParola = Sheets("login").Range("I3").Value

strServer = Sheets("login").Range("I4").Value

cnnn.Open "Provider=SQLOLEDB; Data Source=" & strServer & ";Autotranslate=False ;Initial Catalog=" & strDatabase & "; User ID=" & strKullanici & "; Password=" & strParola & ";"

     SqlText = "SELECT STOK_KODU, STOK_ADI, " & Cells(1, 3) & "," & Cells(1, 4) & "," & Cells(1, 5) & "," & Cells(1, 6) & " FROM TBLSTSABIT WITH(NOLOCK) "
If Cells(2, 7) <> "" Then
       SqlText = SqlText + " WHERE " & Cells(1, 7) & "= '" & Cells(2, 7) & "' Order By STOK_KODU"
       Else
       SqlText = SqlText & " Order By STOK_KODU"
End If
     rss.Open SqlText, cnnn, adOpenStatic ', adLockReadOnly
     Sheet2.Range("A2:F10000").ClearContents
     Sheet2.Activate
     i = 2
     Do While Not rss.EOF
         Sheet2.Cells(i, 1).Value = rss(0)
         Sheet2.Cells(i, 2).Value = rss(1)
         Sheet2.Cells(i, 3).Value = rss(2)
         Sheet2.Cells(i, 4).Value = rss(3)
         Sheet2.Cells(i, 5).Value = rss(4)
         Sheet2.Cells(i, 6).Value = rss(5)
         rss.MoveNext
         Application.StatusBar = "Aliniyor..." & i - 1
         i = i + 1
     Loop
     rss.Close
     cnnn.Close
     Set rss = Nothing
     Set cnnn = Nothing
Application.StatusBar = ""
End Sub

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: sonses10
Mesaj Tarihi: 04 Mart 2010 Saat 11:54

Merhabalar...

Öncelikle tesekkür ederim.

Kodlari kullanmayi denedim. ''Subscript out of range '' hatasi aliyorum. Hatam nerde acaba_?

-------------
Istikbal Göklerdedir !!!

Mesajı Yazan: Conari
Mesaj Tarihi: 04 Mart 2010 Saat 12:14

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: sonses10
Mesaj Tarihi: 04 Mart 2010 Saat 13:15

Emeginize tesekkür ediyorum. Ancak ben su anki bilgi kapasitemle kendim bu sekilde bir sorgu sayfasi olusturamayacagimi anlamis bulunmaktayim. Sanirim hazir bilgilerle devam edecegim bilgi seviyemi yükseltene kadar. Benim için hazirlamis oldugunuz önceki çalisma mükemmel. Toplamda 13 lokal depo ile çalisan firmamizin stok takibini yapamamaktayiz. Stok takibini yapabilecegim bir program lazim ancak verileri tek tek elle girmemem gerekiyor çok fazla zaman kaybi olur. Netsiste bu stogu tutamiyorum.

-------------
Istikbal Göklerdedir !!!

Mesajı Yazan: Conari
Mesaj Tarihi: 04 Mart 2010 Saat 14:07

Önceki çalismayi hatirlayamadim.

Siz nasil bir sey yapmaya düsündünüz.?

13 lokasyon olabilir. stok kodlamasi nasil, kaçtane stok karti var, mesela üretim var mi? bunlar bagli is yükü degisir. Bence buna göre yaniniza yardimci bir eleman aldirin.

Yoksa Netsis te 13 degil 100 lokasyonu da rahat takip edersiniz.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: sonses10
Mesaj Tarihi: 04 Mart 2010 Saat 14:38

Stok fiyat update ile ilgili olan.

Toplam 220 stok karti mevcut. Çalismis oldugum sirket tavuk dagitim firmasi zincir magazalar yerel müsteriler ve 4 adet tüccar ile çalismaktayiz. Ayrica depomuzdan toptan satislarimizda mevcut. Hiç bir sekilde faturasiz islemimiz yok. Kayit disi hiç bir stok yok. Çözemedigim nokta ay basinda almis oldugum ilk sayimdan sonra takip eden 2 ayda aldigim sayimda stoklarin depomdaki reel stokla uyusmadigini görmekteyim. 13 adet lokasyonumdan 4 plasiyer ve 1 merkez 1 sok deposu agirlikli olarak islem görmektedir. diger 7 depo ise gerektiginde islem görmektedir. Yapmayi düsündügüm çözüm suydu. Stok sayimi yaptigimda yaptigim sayimi girecegim bir alan ve lokal depo hareketlerinin dökümü etkilenecek olan alan sadece lokasyonlar sayim sabit kalacakti ve hareketlerden günlük veya haftalik stoklarimi daha rahat kontrol edebilecek ve depomu takip edebilecektim. Netsis raporlarinda böyle bir rapora rastlamadim.

-------------
Istikbal Göklerdedir !!!

Mesajı Yazan: Conari
Mesaj Tarihi: 04 Mart 2010 Saat 15:09

Stok modülünde stok sayim islemlerinden sayimi girip fark raporlarini depo bazinda alabilirsiniz. daha sonra bunlari stok hareketlerine yansitabilirsiniz.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: sonses10
Mesaj Tarihi: 04 Mart 2010 Saat 15:12

Tesekkür ederim. Seni gerçek anlamda yordum. Bir örnek eklemek istiyorum nasil yapabilirim. O örnekte göstermek istiyorum tam oalrak ne istedigimi.

-------------
Istikbal Göklerdedir !!!

Mesajı Yazan: Conari
Mesaj Tarihi: 05 Mart 2010 Saat 14:10

Cevabinizi cevap butonuna basarak yazin. oradan dosya ekleyebilirsiniz.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: sonses10
Mesaj Tarihi: 05 Mart 2010 Saat 17:06

http://www.upload.gen.tr/d.php/s9/1rqz3q7d/DENEME.xls.html - http://www.upload.gen.tr/d.php/s9/1rqz3q7d/DENEME.xls.html Bir örneklem olusturdum. Bu örneklemde açiklamalarla anlatmaya çalistim. Yardimci olabilirseniz sevinirim.

-------------
Istikbal Göklerdedir !!!

Mesajı Yazan: Conari
Mesaj Tarihi: 05 Mart 2010 Saat 17:22

baslangiç ve bitis tarihleri ne için.

istedigim tarihteki sayimdan kastiniz

sayim girisi yaptiginiz bilgi mi ? tüm depolarmi?

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: sonses10
Mesaj Tarihi: 05 Mart 2010 Saat 18:19

Baslangiç ve bitis tarihleri tarih araliginda stok kontrolü yapabilmek için.

Her ay stok sayimi yapmaktayim ve her ay sonunda reel stok ile pc stogunda fark çikmaktadir. Bu nedenle belli araliklarla Sayim girisi yapip reel stok ve pc stogunu esitlemekteyim. Istedigim sayim stogu çok sorun degil gerekirse 1 kez sayim yapar ve stogu girerim 2. bir sayim stogu girisi yapmam yeterki su problemi asayim.

-------------
Istikbal Göklerdedir !!!

Mesajı Yazan: sonses10
Mesaj Tarihi: 10 Mart 2010 Saat 16:43

kil_ark Sayesinde bu problemide yüzde 90 asmis durumdayim forumda çok faydali bilgi var. Insallah sayenizde bizlerde birgün kendimizi gelistirecegiz. Saglicakla. Saygilar.

-------------
Istikbal Göklerdedir !!!