Arama butonu
Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı
5
Cevap
3049
Tıklama
0
Öne Çıkarma
Veritabanı bağlantısı Textbox' a Girilen değeri arama
A
13 yıl
Yarbay
Konu Sahibi

Arkadaş acil yardıma ihtiyacım var yarına ödevleri yetiştirmeliyim.

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglanti As New OleDbConnection
Dim komut As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim ds As New DataSet

baglanti.ConnectionString = "Provider=microsoft.jet.oledb.4.0; Data Source=\KITAP.mdb"
baglanti.Open()

komut.CommandType = CommandType.Text
komut.CommandText = "SELECT * FROM KITAP WHERE KITABIN_TURU=Textbox1.text"
komut.Connection = baglanti

adp.SelectCommand = komut
adp.Fill(ds)

DataGridView1.DataSource = ds.Tables(0)

baglanti.Close()
baglanti.Dispose()
komut.Dispose()
adp.Dispose()

End Sub
End Class

Benim sormak istediğim koyu yazan yerdeki sql kodları doğru mu ve öyle bir kullanım var mı?
Eğer kodlar yanlışsa textbox a girilen değeri veritabanında nasıl aratabilirim?

Şimdiden teşekkürler.



S
13 yıl
Yarbay

Alan text ise:
"SELECT * FROM KITAP WHERE KITABIN_TURU='" & Textbox1.Text & "'"
Alan sayısal ise
"SELECT * FROM KITAP WHERE KITABIN_TURU=" & Textbox1.text





< Bu mesaj bu kişi tarafından değiştirildi sehlor -- 24 Şubat 2009; 22:27:47 >
Bu mesaja 1 cevap geldi.
A
13 yıl
Yarbay
Konu Sahibi

@sehlor yardımın için çok teşekkür ederim


Bu mesaja 2 cevap geldi.
S
13 yıl
Yarbay

ne demek her zaman



A
13 yıl
Yarbay
Konu Sahibi

sizlere bir sorum daha olacak "SELECT * FROM KITAP WHERE KITABIN_ADI LIKE '" * & TextBox1.Text & * "'"
koyu renk ile yazılan kısmı bir türlü yapamadım. Soru şöyle textbox a herhangi bir harf veya yazı girilecek ve ona göre kitap adları listelenecek.


Bu mesaja 1 cevap geldi.
S
13 yıl
Yarbay

"SELECT * FROM KITAP WHERE KITABIN_ADI LIKE '%" & TextBox1.Text & "%'"

Bu Şekilde.



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.