Evo ti jednog primjera kada se za citanje koristi DataReader, koji je brzi i koristi se za neke stvari kada treba iscitati mali broj podataka.
Code:
dim veza as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mojabaza.mdb;User Id=admin;Password=;")
dim kom as new oledbcommand("",veza)
dim citac as oledbdatareader
Sub Citanje_iz_baze
try
'ovo ovdje ce da doda stavku naziv u tvoj listbox
veza.open
kom.commandtext="SELECT id,naziv FROM Neka_tabela"
citac=kom.executereader
while citac.read
listbox1.item.add citac.item("naziv")
end while
citac.close
veza.close
catch gr as OleDbException
msgbox gr.message
end try
End sub
Sub Pisanje_u_bazu
'ovo ovdje ce da azurira entitet naziv. Pretpostavimo da ti se redni brojevi u DropDownListi poklapaju sa id-om u bazi, tj da ti id u bazi ide 1,2,3,4,5,6,7,8,9...
veza.open
kom.commandtext="UPDATE Neka_tabela set naziv='Pero' where id=" & DropDownList1.SelectedIndex
kom.executeNonQuery
veza.close
catch gr as OleDbException
msgbox gr.message
end try
End sub
A evo i primjera kada podatke zelis prikazati u nekoj tabeli, Grid-u
Code:
dim veza as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mojabaza.mdb;User Id=admin;Password=;")
dim DA as new OleDbDataAdapter("SELECT * FROM Neka_tabela",veza)
dim DT as new Data.DataTable
Sub Citanje_iz_baze
try
da.fill dt
Grid.DataSource=DT
catch gr as OleDbException
msgbox gr.message
end try
End sub