Step 1
Buat form baru dan rename nama diorang macam gambar kat bawah
Step 2
Copy dan paste kod kat bawah ni ke button btnGetData. Pastikan korang renama tulisan yang color merah tu dengan lokasi database yang didownload tadi.
'Provider =Microsoft.ACE.OLEDB.12.0 untuk Access 2007 dan keatas
Dim connection As New OleDbConnection("Provider =Microsoft.ACE.OLEDB.12.0; Data Source =C:\Documents and Settings\sal\My Documents\laundry.accdb; Persist Security Info =False;")
'SQL query yang kita nak execute
Dim command As New OleDbCommand("SELECT * FROM laundry_user", connection)
'Selalu guna try and catch supaya boleh elakkan exception dan dapatkan detail error
Try
command.Connection.Open() 'buka connection ke database
Dim da As OleDbDataAdapter = New OleDbDataAdapter(command) 'kod ni adalah untuk execute command sql
'Kita akan guna dataset untuk copy data dari database ke RAM
Dim ds As DataSet = New DataSet 'declare dataset baru
da.Fill(ds, "laundry_user") 'Copy data dari database ke dataset
For i = 0 To ds.Tables(0).Rows.Count - 1 'coding ni dapatkan row dari awal hingga akhir
lstData.Items.Add("Record No " & i)
lstData.Items.Add("Name : " & ds.Tables(0).Rows(i)(1)) 'dalam ram, data disusun dalam array. Nak panggil data pun, kena panggil dalam array jugak
lstData.Items.Add("Phone : " & ds.Tables(0).Rows(i)(6)) 'Tengok database kalau nak paham lagi
lstData.Items.Add(" - - - - - - - - - - - - - - - - - - ")
Next i
Catch ex As Exception
MessageBox.Show(ex.Message & " - " & ex.Source) ' Kalau error, letak error dalam msgbox, jgn keluarkan exception sebab exception sucks & hang
End Try
Step 3
Tekan button Get Data From Database, dan siap!
Kalau nak faham, try baca comment yang ada dalam coding tadi. Kalau nak tanya, comment box ada kat bawah ;)