SELECT SIRA, Bolum, Besin, Miktar, Kalori FROM Kalori WHERE Bolum = deg order by Kalori
Yukarıdaki kodu suletion explorerde dataseti acıp tabloya add quary ile FillByListe olarak yazıyorum.
Mdb (accsess) dosyası ile calışıyorum.
Bir tane combobox ve bir tanede data gridview nesnem var.
Combboxta load olayında Bolum alanında benzersiz verileri listelidikten sonra comboboxın changed oalyına yazdığım ko ilede Comboboxta yazdığım bolumun besinlerini listelemek istiyorum.
Fakat aşağıdaki changed olayında Parantez icindeki virgulden sonra yazdığım combobox1.text yazısının altını mavi ciziyor.
Nerde hata yapıyorum.Nasıl yapmalıyım.Comboboxın changed oalyındaki kod aşapğıdadır.Teşekkur ederim.
Esas sorun Dataset ile sorgu oluşturuken kriter oluşturulmuoyor ben @ ibaresini eşitliğin diğer tarfına koyduğum zmaan next ten sonra ! iaşareti yani hata veriyor ve kriter oluş[email protected] işaretini eşitliğin diğer tarafına koymadan yazarsamda bu sefer hata vermiyor ama kriter de oluşturmuyor.Where den sonra.Dolayısı ile eventte yazdığım parantez icindeki kodda virgulden sonra hata oluşuyor.Dağa doğrusu kod yazarkan yardımcı acıan pencerenin icinde virgul gozukmuyor.bende virgul koyop Combobx1.text yazınca hata veriyor,altını mavi ciziyor yani.
Teşekkur ederim.
Projenin bulunduğu link aşağıdadır. :-)

http://rapidshare.com/files/21641738..._2005.rar.html

Kod:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DSDataSet.Kalori' table. You can move, or remove it, as needed. 'Me.KaloriTableAdapter.Fill(Me.DSDataSet.Kalori) 'BolumComboBox.Text = "" Me.KaloriTableAdapter.FillByListe(Me.DSDataSet.Kal ori) End Sub
Hata veren yer aşağıdadır
Kod:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Me.KaloriTableAdapter.FillByListele(Me.DSDataSet.K alori, ComboBox1.Text) End Sub

__________________