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
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?
Alan text ise: "SELECT * FROM KITAP WHERE KITABIN_TURU='" & Textbox1.Text & "'" Alan sayısal ise "SELECT * FROM KITAP WHERE KITABIN_TURU=" & Textbox1.text
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.
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.