+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 3 Ayrı Combobox değerlerine göre veri çağırmak??? (/konu-3-ayri-combobox-degerlerine-gore-veri-cagirmak.html)
Cvp: 3 Ayrı Combobox değerlerine göre veri çağırmak??? - Nurullah_Serdar - 15/09/2009
listeye elemanları eklemeden önce listedeki tüm değerleri kaldırmalısın. onun kodu belki farklıdır diye yazmıyorum. listeyi boşalt yeni verileri eklemeden önce.
Cvp: 3 Ayrı Combobox değerlerine göre veri çağırmak??? - maytas - 15/09/2009
Alıntı:1. comboboxtan başka bir değer seçtiğimde 2. comboboxta yer alan ilk seçim kriterlerinin altına devam ediyor.
2. ComboBox'a verileri alan kodlardan önce ilgili ComboBox'un içeriğini silen kod ekle.
ComboBox2.Clear türü.
Nurullah bey, mesajınızı benimkini gönderdikten sonra gördüm.
Amacımız paylaşım. yarış yapmıyoruz. o yüzden önemi yok. teşekkür ederim inceliğiniz için.
Cvp: 3 Ayrı Combobox değerlerine göre veri çağırmak??? - ancyra - 16/09/2009
maytas teşekkür ederim cevabın için,
comboBox2.Items.Clear() şeklinde yaptın oldu. Herkese duyrulur....
Cvp: 3 Ayrı Combobox değerlerine göre veri çağırmak??? - ancyra - 16/09/2009
comboboxta seçili değere göre datagridview nasıl filtreliyebilirim.???
Şöyle bir kod yazdım ama dosya yüklenemedi diyor. Nerde hata yapıyorum....
Try
Dim ds As New DataSet
ds = Data.fill(CommandType.Text, "select * from tblkömür")
grdsektör.DataSource = ds.Tables("tblkömür").DefaultView.RowFilter = "bölüm_adı='" & cmbbölüm.SelectedValue.ToString & "'"
Catch ex As Exception
MsgBox("Dosya Yüklenemedi!", MsgBoxStyle.Critical)
End Try
grdsektör-------devexpreste tablo adı
cmbbölüm------- combobox adı
tblkömür------ tablo adı
Cvp: 3 Ayrı Combobox değerlerine göre veri çağırmak??? - maytas - 17/09/2009
Merhaba.
Gerçi siz gördüğüm kadarıyla VB.Net'ten bahsediyorsunuz.
Benim VB.Net bilgim yok, ama VB6'ya göre ipucu verebilirim, Vb.Net'te de benzer şekilde olduğunu tahmin ediyorum, her ne kadar kodlamalar biraz daha farklı olsa da.
Veritabanı bağlantısını Adodc1 nesnesiyle Oledb.4.0 üzerinden yapın ve adodc1.recordsource'sinden ilgili tabloyu seçin.
DataGrid'in recordsourcesi'ni = Adodc1 olarak eşitleyin.
istediğiniz kod şöyle bir şey olmalı:
Değişkenlerde türkçe karakter kullanmamaya dikkat edin.
Kod:
Adodc1.CommandType = adCmdUnknown
Adodc1.RecordSource = " select * from TabloAdi where [AlanAdi] like '%" & ComboBox1.value & "%'"
Adodc1.RefreshCvp: 3 Ayrı Combobox değerlerine göre veri çağırmak??? - ancyra - 17/09/2009
Teşekkür ederiöm güzel bir yol gösterdiniz.
Try
Dim ds As New DataSet
ds = Data.fill(CommandType.Text, "select * from tblkömür where bölüm_adı='" & cmbbölüm.Text & "'")
grdsektör.DataSource = ds.Tables(0).DefaultView
Catch ex As Exception
MsgBox("Dosya Yüklenemedi!", MsgBoxStyle.Critical)
End Try
olarak yazdım olay çözüldü....