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?
Şimdiden teşekkürler.
1. sayfa
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
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.