Veritabanındaki İsimleri Excel Sayfasına Yazdırma

[ahmedummu]

Merhaba arkadaşlar.

Örnek dosyada, form üzerindeki textbox1'in değeri Sayfa1 A1 hücresine yazıldıktan sonra,

A7 hücresine sıra numarası verip, veritabanından ADISOYADI alan adındaki isimleri B7 den, GOREVI alan adını da C7 den başlayarak listeleme yapacak. Listeleme yaparken MÜDÜR, MÜDÜR YARDIMCISI, ÖĞRETMEN ve UZMAN ÖĞRETMEN ünvanları listelenecek.
---------------------------------------------------------------------------------------
Sıralamada GOREVI alan adında önce ünvan "MÜDÜR", sonra "MÜDÜR YARDIMCISI" olanlar ilk iki sırada yer alırsa çok iyi olur. Olmasa da önemli değil. İlk ki paragraftaki işlevleri yapması da yeterli.

Yardımcı olursanız sevinirim.

 

[Necdet]

Merhaba,

A7 hücresine 5 yazdık örneğin. Ne olmasını istiyorsunuz. Sorunuzu defalarca okumama rağmen ne istediğinizi anlayamadım.

 

[ahmedummu]

Merhaba

LİSTEYİ OLUŞTUR butonuna tıklandığında,

Veritabanından (GOREVI) alan adındaki değer MÜDÜR, MÜDÜR YARDIMCISI, UZMAN ÖĞRETMEN ve ÖĞRETMEN olanların isimlerini Sayfa1 B7 hücresin den başlayarak, GOREVI alan adındaki verileri de C7 hücresinden başlayarak listeleyecek. (yazacak)

Bu arada A7 hücresin den başlayarak da sıra numarası verecek.

GOREVI alanında ünvanları MÜDÜR VE MÜDÜR YARDIMCISI olanlar 1 ve 2. sırada listelenirse çok iyi olur. Olmasa da önemli değil.

 

[By_Hayta]

Konuyu anladım yardımcı olmak isterim lakin dosyayı indiremiyorum. Mail yoluyla Mümkünse gönderebilirmisiniz?

 

[ahmedummu]

Maili yazarsanız gönderirim.Forum içinde mail gönderilebiliniyormu onu bilmiyorum.

 

[By_Hayta]

haklısınız

 

[ahmedummu]

Necdet Bey şöyle

1 LÜTFÜ BİLİCİ MÜDÜR
2 ORHAN IŞIK MÜDÜR YARDIMCISI
3 NERMİN CAN MÜDÜR YARDIMCISI
4 NAZİRE TUTUMLU MÜDÜR YARDIMCISI
5 AYŞE ÇOLAK ÖĞRETMEN

A7'e sıra no, B7'den başlayarak adı soyadı, C7'ye den başlayarak görevi yazılacak.

alan adları adı soyadı (ADISOYADI) görevi (GOREVI)

Örnek dosyayı sayfa içinde örnekleyerek tekrar gönderdim.

 

[ahmedummu]

Dosyayı belirttiğiniz adrese gönderdim.

 

[Necdet]

Merhaba,

Formdaki CommandButton1_Click kodları aşağıdadır. Excel dosyası ile veritabanı aynı dizinde olmalı, Farklıysa Yol değişkenini kendinize göre belirleyiniz.
Deneyiniz.

Private Sub CommandButton1_Click()

    'Referanslardan Microsoft ActiveX Data Object ... Library Seçili Olmalı
    Dim cn  As Object, _
        rs  As Object, _
        Yol As String, _
        i   As Long
        
    Yol = ThisWorkbook.Path & "\veriler.mdb"

    Application.ScreenUpdating = False
    
    Range("A1") = TextBox1.Value
    
    i = Cells(Rows.Count, "B").End(3).Row
    If i < 7 Then i = 7
    Range("A7:C" & i).ClearContents
    Range("A7") = 1
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Yol & ";"

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT ADISOYADI, GOREVI FROM bilgiler ORDER BY GOREVI", cn, , , adCmdText
    
    Range("B7").CopyFromRecordset rs
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    Application.ScreenUpdating = True
    Unload Me
    
    i = Cells(Rows.Count, "B").End(3).Row
    If i > 6 Then Range("A7:A" & i).DataSeries
    
End Sub

 

[ahmedummu]

Merhaba Necdet bey. Kodlar için teşekkür ederim.

Sağlayıcı bulunamıyor. Düzgün yüklenmemiş olabilir.

Diye hata veriyor. Veri tabanı dosyası ile excel dosyası aynı klasörün içinde

 

[Necdet]

Merhaba,

Referanslardan Microsoft ActiveX Data Object ... Library büyük olan rakamı seçtiniz mi?

Bende sıkıntı yok, çalışıyor.

 

[ahmedummu]

Merhaba Necdet bey.

Referanslardan doğru seçeneği seçip seçmediğimi bilmiyorum. Resim görüntüsünü ekliyorum bir bakabilir misiniz.

 

[Necdet]

Tools seçeneğinden gidip adını verdiğim referansdan son sürümünü seçmeniz gerekir.

 

[ahmedummu]

6.1 yoktu listede, 6.0 vardı onu seçtim.

Yine aynı hatayı verdi.

 

[Necdet]

Merhaba,

Foruma eklediğiniz veritabanında denedinizmi?

 

[askm]

Dosyanız ektedir. Bende de 6.0 var ve çalışıyor.

 

[ahmedummu]

İlgilenen herkese çok teşekkür ederim arkadaşlar, çalışıyor.

Yalnız GOREVI alanında değeri MÜDÜR, MÜDÜR YARDIMCISI, ÖĞRETMEN ve UZMAN ÖĞRETMEN olanları listeleyecek. Konuyu ilk açtığımda da belirtmiştim. Buların dışındaki ünvanlar listelenmeyecek.

 

[Necdet]

O işin en kolayı

Private Sub CommandButton1_Click()

    'Referanslardan Microsoft ActiveX Data Object ... Library Seçili Olmalı
    Dim cn  As Object, _
        rs  As Object, _
        Yol As String, _
        i   As Long
        
    Yol = ThisWorkbook.Path & "\veriler.mdb"

    Application.ScreenUpdating = False
    
    Range("A1") = TextBox1.Value
    
    i = Cells(Rows.Count, "B").End(3).Row
    If i < 7 Then i = 7
    Range("A7:C" & i).ClearContents
    Range("A7") = 1
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Yol & ";"

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT ADISOYADI, GOREVI FROM bilgiler WHERE GOREVI LIKE 'MÜDÜR%' OR GOREVI LIKE '%ÖĞRETMEN%' ORDER BY GOREVI, ADISOYADI", cn, , , adCmdText
    
    Range("B7").CopyFromRecordset rs
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    Application.ScreenUpdating = True
    Unload Me
    
    i = Cells(Rows.Count, "B").End(3).Row
    If i > 6 Then Range("A7:A" & i).DataSeries
    
End Sub

 

[ahmedummu]

Çok teşekkürler Necdet bey.

Bir şey daha sormak istiyorum. önce MÜDÜR sonra MÜDÜR YARDIMCISI'nı lisiteleyebilir mi? İlk iki sırada bu iki ünvan olabilir mi? Diğerleri fark etmez. Bunu da konuyu açtığımda belirtmiştim.

 

[Necdet]

Çok teşekkürler Necdet bey.

Bir şey daha sormak istiyorum. önce MÜDÜR sonra MÜDÜR YARDIMCISI'nı lisiteleyebilir mi? İlk iki sırada bu iki ünvan olabilir mi? Diğerleri fark etmez. Bunu da konuyu açtığımda belirtmiştim.

Biraz önce kodları yenilemiştim, siz ona yetişemediniz sanırım, yukarıdaki kodları tekrar kopyalayın. Ünvan içinde de ad olarak da sıralanıyor.