Evo ti deo koda koji cita neke podatke iz access baze, a ti ih mozes prikazati na formi ili upotrebiti za neka izracunavanja ili sl.
Code:
Imports System.Data.OleDb
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'deo koda koji radi sa access bazom
' napravimo string za konekciju na bazu
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\User\My Documents\db1.mdb"
Dim myConnection As OleDbConnection = New OleDbConnection
myConnection.ConnectionString = connString
' napravimo data adapter
Dim sql1 As String
sql1 = "Select ind,br,dim,ime, dug from novo"
Try
Dim accessAdapter As OleDbDataAdapter = New OleDbDataAdapter(sql1, myConnection)
' kreiramo novi dataset
Dim skuppodataka As DataSet = New DataSet
' napunimo dataset sa podacima
accessAdapter.Fill(skuppodataka)
DataGrid1.DataSource = skuppodataka.DefaultViewManager
myConnection.Close()
Catch ex As Exception
MessageBox.Show("Doslo je do greske u radu sa Access bazom - ponovite operaciju", "UPOZORENJE", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
Imas mnogo primera na mrezi, budi malo aktivniji