Emre Bayrakdar

Veritabanı bağlantısını yap hacı
button1.click eventına alttakileri yaz


try
data.clear()
bag.connectionstring= "provider=microsoft.jet.oledb.4.0;data source=" & application.startuppath & "\veri tabanı adı.mdb"
if bag.open()
kom.commandtext="select * from tablo adı where kitapadi= '" & Textbox1.text & "'")kom.connection=bag
dim par(yukardaki tanıma uygun) as new oledbparameter
par( ).value=textbox adı .text
kom.parameters.clear()
kom.parameters.add(par( ))
adp.selectcommand=komut
adp.fill(veri tabanı adı,"tablo")
oku.kom.executeReader
DatagridView1.datasource=veritabaniadi.tables(0)
catch ex as exception
msgbox(ex.message)
finnaly
oku.close()
bag.close()
end try
end sub