(21/01/2016, 13:51)POWER yazdı: [ -> ]Probleminizi çözeceğimiz şekilde projenizin sadece sorunu çözmek adına gerekli kısımlarını ekleyip destek bekleyiniz...
dilerim ama bu konuda hiç bir bilgim yok daha lise 3 ögrencisiyim ve yavaş yavaş ögreniyorum programda bunu yaparken takıldım hocalarıma sordum select * from kullancan diyorlar başka bişey demiyorlar gece geç saatlere kadar aradım fakat birşey elde edemedim. sadece bir tane labeli dolducak kod olsa ben gerisini getiririm.
Bende bu durumda sadece "SELECT * FROM" diyebiliyorum.
Devamını getirebilmek için Tablo yapılarınızı görmem ve "SELECT * FROM" değilde "SELECT a1,a2 FROM tabloadı" vs destek olmak istiyorum...
(21/01/2016, 14:04)POWER yazdı: [ -> ]Bende bu durumda sadece "SELECT * FROM" diyebiliyorum.
Devamını getirebilmek için Tablo yapılarınızı görmem ve "SELECT * FROM" değilde "SELECT a1,a2 FROM tabloadı" vs destek olmak istiyorum...
Veritabanı görüntüsü ekledim üstadım gözünü seviyim bi yardım et ya
Bu kadar şey yazacağına projeni ekle bakayım...
Sadece tablo yapısıda yeterli değil formda kullandığın değişken isimleri yapılacak sorgu deyimini etkilemekte yani
"Select * From Where Tarih =' & Tarih.text & "'" gibi bir deyim yazmam lazım
Sonuç almak istiyorsan projeni ekle...
(21/01/2016, 14:17)POWER yazdı: [ -> ]Bu kadar şey yazacağına projeni ekle bakayım...
Sadece tablo yapısıda yeterli değil formda kullandığın değişken isimleri yapılacak sorgu deyimini etkilemekte yani
"Select * From Where Tarih =' & Tarih.text & "'" gibi bir deyim yazmam lazım
Sonuç almak istiyorsan projeni ekle...
İstediginiz Bütün bilgiler ve proje konuya eklenmiştir.
Button1 in click olayına aşağıdaki kodu yapıştırın...
Domates ve Soğan adetlerini getirmektedir... Devamını getirirsiniz...
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
baglanti.Open()
Dim komut As New OleDb.OleDbCommand("SELECT * FROM pizza", baglanti)
Dim oku As OleDb.OleDbDataReader
oku = komut.ExecuteReader()
While oku.Read()
If oku(1) = ComboBox1.Text Then
Label10.Text = oku(2)
Label11.Text = oku(3)
End If
End While
baglanti.Close()
End Sub