Skip to main content

AccessTr.neT


Combobox ile DataGridview (Access Veritabanı) Sorgusu

Combobox ile DataGridview (Access Veritabanı) Sorgusu

#7
Uygulamadaki kodlar yukarıda yazdığım gibi. Ancak sizin verdiğiniz kodları o kodların içerisinde neyin yerine veyahut nereye ilave edeceğimi anlamadım. Gönderdiğiniz kodlarda Function başında direk End If yazıyor IF ile başlayan kısım yok diye hata veriyor. Yani bu kodları çalıştırmayı beceremedim. Uygulama kodları içerisinde değişiklik yapabilirmisiniz ?
Cevapla
#8
Sn:chevy
Fonction başındaki if hatası düzeltilmiştir.Kodlardada görüldüğü üzere Combobox1 ve Combobox2 kod içerisinde tanımlanmıştır.Sadece Comboboxların tıklama olayına fonctionun çalışması için gerekli kodların yazılması onuda yukarıda zaten verdim (Call SQL) burada üzerinde duracağınız LİKE operatörüdür.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
#9
Uygulamada Access veritabanından verileri sanaltablo ile DataGride aktarıyorum. Tüm veriler DataGridde gözüküyor. Sonra Private Sub doldur() ile de verileri Combobox a aktarıyorum. Combobox tan veriyi seçtiğim zaman datagridin seçtiğim verilere göre görüntülenmesi için gönderdiğiniz kodları uyguladım.

Public Function SQL() ile başlayıp projedeki veritanındaki ID lere göre değiştirdim.

Private Sub Combobox1_Click() ve Private Sub Combobox2_Click() içerisinide Call SQL()
yazdım.

Ancak çalıştırdığımda Adodc1 bildirilmemiş. hatası alıyorum. Nerede ne eksik ne yanlış. Acemilik bilmiyorum nasıl yapacağım lütfen yardım.....
Cevapla
#10
Sn:chevy
Adodc1 verdiğim kodda veri tabanına bağlantı nesnesinin adı siz orayı kendi bağlantınıza göre düzenliyeceksiniz.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
#11
Kusura bakmayın acemiliğimden dolayı dediklerinizi yapamıyorum. Accesse nasıl bağlantı kurduğumu kodlarda belirttim. Ne yapacağımı anlamadım lütfen yardım edin. Çok uğraştım bunu yapmaya ama olmuyor.
Cevapla
#12
Sn:chevy
İlk önce Komponentler bölümünden Adodc nesnesini eklemeniz gerekir.Yada Data1 bağlantı nesnesi ilede yapabilirsiniz ama Adodc Nesnesini öncelikle öneririm sonrada data bağlantınızı aşağıdaki şekilde yapınız bende VB.NET olmadığı için örnek üzerinde yapamıyorum bu sebeple sadece size yol gösterebilirim.

Adodc1.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\ VeriKayit.mdb"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from Kasa ORDER BY ID"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
End If
Set DataGrid1.DataSource = Adodc1
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da