#13
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.
İyiki Varsın Access 
3 Ayrı Combobox değerlerine göre veri çağırmak???
#13
#14
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.
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
#15
maytas teşekkür ederim cevabın için,
comboBox2.Items.Clear() şeklinde yaptın oldu. Herkese duyrulur....
comboBox2.Items.Clear() şeklinde yaptın oldu. Herkese duyrulur....
#16
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ı
Şö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ı
Son Düzenleme: 16/09/2009, 16:15, Düzenleyen: ancyra.
#17
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.
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.Refresh
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
#18
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ü....
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ü....
Konuyu Okuyanlar: 2 Ziyaretçi
