Mikro Veri Tabanından Bilgi Çekmek?

[ExpendabLes]

Selam herkese.

Mikroda yer alan fonksiyonları mikroya gerek duymadan excel üzerinden yapmak istiyorum. Veri tabanına ne şekilde bağlanarak istediğim bilgileri alabilirim?

Örneğin Stok Hareketleri tablosundan benim istediğim satış elemanına ait benim belirleyeceğim tarih aralıklarındaki hareketlerini listelemek istiyorum. Tarih aralığı ve satış elemanı ismi de excel hücrelerinden girilen veriler olacak. Satış elemanı liste kutusundan seçilicek tarih aralığıda tarih girdirilerek olacak.

Bu şekilde bi şablon düşünüyorum. Ne şekilde bi makro yazmalıyım? Örnek bi dosya verebilcek biri varmıdır?

Veri tabanına exceldeki VERİ kısmını takip ederek bağlanıp Stok Hareketleri tablosunu çağırıyorum fakat tablonun tamamı geliyor. Sadece benim istediğim sütunları benim belirlediğim kriterlere göre getirmek listelemek istiyorum.

Bu konuda yardımcı olursanız sevinirim.

Raporlama kısmında mikroyu aradan çıkarıp işlemlerimi sadece excel üzerinden yapabilmem için bu şart.

 

[Trilenium]

Site üzerinde istemiş oldugunuz konu ile ilgili yüzlerce kod örnegi mevcuttur. Bunları incelemenizi tavsiye ederim..

Direkt data baglantısı yaptıktan sonra verilerin üzerinde sag tuşlayınız,

Edit Query (Sorgu Düzenle) Seçiniz..

Ekrana gelen tabloda

Command Type bölümünden " Table" yerine " SQL" i seçiniz...

select UrunKodu,UrunAdi,Miktar from TabloAdi

Not :Mikrodaki tablo adini ve alan isimlerini bilmedigim icin ben buraya örnek olarak yazdım.

ve tamam diyiniz. Ekrana tekrar SQL şifresini sora(bilir)caktır. Şifreyi giriniz...

Bitti bukadar... İstemiş oldugunuz alanlar listelenmiştir.

Kolay gelsin

 

[ExpendabLes]

Cevabın için teşekkürler. Choose ile hallettim gibi ama bakalım emin değilim yinede.

 

[Trilenium]

Choose nedir? anlamadım

 

[ExpendabLes]

Choose nedir? anlamadım

Mikrodaki sorgu cümleleri.

Ama yinede anlattığın şeyide yapabilmek isterim açıkçası.

Veri tabanına normal excel üzerinden bağlantıktan sonra hangi sekmeden söylediğin Query kısmını açıyoruz?

Ayrıca tarih sütununda tarama yapıp istediğim tarih aralıklarına ait satırları toplayabilmek için nasıl bi formül lazım? 2 tarih aralığı girip bu aralıktakileri toplamak istiyorum. Veya listelemek istiyorum. 2 farklı hücreye aralık tarihlerini girip tablo üzerinden buna göre çekim yapmak istiyorum.

Bunu nasıl yapabilirim?

 

[Trilenium]

Query Duzenleme ile ilgili yukarıdaki anlatımımı dikkatlice yaparsanız ulaşacaksınız.

SQL sorgulama ile ilgili SQL dersleri almalısınız. Vaktim yok derseniz internet üzerinde Mikro yazılım evinin form sitesi var orada bu tür örneklere ulaşabilirsiniz.

Örnegin ;

http://forum.mikro.com.tr/forum_posts.asp?TID=10667

 

[ExpendabLes]

Şimdi senden bi ricam var.

Excele tablo olarak geriye dönük satışları listeleyebiliyorum.

Seçtiği plasiyere ait satışlarıda toplatabiliyorum. Fakat bu seçtiğim plasiyer satışlarının istediğim tarih aralıklarında olmasını nasıl sağlarım? 2 hücre belirtip bu 2 hücredeki tarih aralıklarındaki toplamı nasıl alırım?

Yine aynı şekilde sayfa1 de yer alan tablo üzerindeki verileri bu şekilde sayfa 2 ye nasıl yazdırabilirim?

Şu an için tek sıkıntım bu. Bunu nasıl yapabilirim?

 

[Trilenium]

Excel üzerindemi bir toplama bakmak istiyorsunuz ? Yoksa SQL den sorguylamı gelmesini istiyorsunuz

 

[ExpendabLes]

Excel üzerindemi bir toplama bakmak istiyorsunuz ? Yoksa SQL den sorguylamı gelmesini istiyorsunuz

Mikro veri tabanında veriyi aldım. Tabloda duruyor sayfa1 de. Ben istediğim kriterlerde tablodaki veriyi alarak diğer sayfaya aktarmak istiyorum.

İstediğim tarih aralıklarında ve istediğim plasiyerlere ait olan kısımları sayfa 2 de listelemek istiyorum. Ana tablom sayfa1'de. Açılır kutudan plasiyer isimlerini seçip seçtiğim isme ait numarayı başka bir hücreye yazdırıyorum. O yazdırdığım hücredeki sayıya ait plasiyer numarasının bulunduğu satırdaki bilgileri sayfa2'ye almak istiyorum. Yine aynı şekilde aldığım veriler içinde tarih aralığı filtresi uygulamak istiyorum.

Özet olarak;

A plasiyerinin 01.04.2013 - 04.04.2013 tarihleri arasındaki durumunu sayfa2'ye almak istiyorum. Açılır kutudan B seçtiğimde B'nin bilgileri gelmeli. A'nın bilgileri gitmeli. Bunu nasıl yapabilirim?

 

[Trilenium]

Örnek bir dosya eklermisiniz

 

[ExpendabLes]

Dosya ekte.

Tekrar anlatmam gerekirmi yapılması gerekeni?

 

[ExpendabLes]

Yokmu fikri olan?

Sayfa1'deki tablodaki verilerden istediğim krtierlere uyanları sayfa2'ye dökmek istiyorum.

Bunu nasıl yapabilirim?

 

[bilgitron]

1.* Pllasiyer isimleri Mikro ile aynı olacak
2.* SQL Sorgu yöntemlerine bakman gerekir.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod ile istediğiniz raporu alabilirsiniz.

Sub RAPOR()
    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Dim T1 As Date, T2 As Date, KOD As String, Satir As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    T1 = S2.Range("B1")
    T2 = S2.Range("C1")
    KOD = Format(S2.Range("D4"), "00")
    S2.Range("A10:H" & Rows.Count).Clear
    
    With S1.ListObjects("Tablo_HILALSRV_SQLEXPRESS_MikroDB_V14_H2012_STOK_HAREKETLERI_CHOOSE_21")
        .Range.AutoFilter Field:=2, Criteria1:=">=" & CLng(T1), Operator:=xlAnd, Criteria2:="<=" & CLng(T2)
        .Range.AutoFilter Field:=14, Criteria1:="=" & KOD
    
        Satir = S1.Cells(Rows.Count, 1).End(3).Row
        
        If Satir > 1 Then
            S1.Range("N2:O" & Satir).Copy S2.Range("A10")
            S1.Range("A2:A" & Satir).Copy S2.Range("C10")
            S1.Range("K2:L" & Satir).Copy S2.Range("D10")
            S1.Range("A2:A" & Satir).Copy S2.Range("F10")
            S1.Range("M2:M" & Satir).Copy S2.Range("G10")
            S1.Range("P2:P" & Satir).Copy S2.Range("H10")
            MsgBox "İşleminiz tamamlanmıştır.", vbInformation
        Else
            MsgBox "Uygun kayıt bulunamadı!", vbCritical
        End If
        
        .Range.AutoFilter Field:=2
        .Range.AutoFilter Field:=14
    End With
    
    Set S1 = Nothing
    Set S2 = Nothing
End Sub