15/09/2009, 17:02
3 Ayrı Combobox değerlerine göre veri çağırmak???
15/09/2009, 17:08
maytas
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.
16/09/2009, 08:24
ancyra
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/09/2009, 12:04
ancyra
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ı
17/09/2009, 06:08
maytas
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
17/09/2009, 10:15
ancyra
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ü....