Koneksi VB.Net Dengan Ms. Access
Buat sebuah Project Baru lalu tambahkan beberapa textbox dan juga sebuah button, atur tampilannya seperti gambar berikut ini :
| 
Tool | 
Properties | 
| 
TextBox1 | 
txtNis | 
| 
TextBox2 | 
txtNama | 
| 
TextBox3 | 
txtKelas | 
| 
RichTextBox1 | 
rtbAlamat | 
| 
Button1 | 
btnSimpan | 
| 
Button2 | 
btnUpdate | 
| 
Button3 | 
btnHapus | 
Buat sebuah database baru di MS. Access lalu beri nama databasenya dengan Sekolah. Lalu simpan databasenya didalam folder bin-debug dari folder project yang sedang dibuat.
Tambahkan beberapa field yaitu field Nis, Nama, Kelas dan juga Alamat seperti gambar berikut ini lalu simpan tabel tersebut dengan nama tblSiswa:

Jika sudah sekarang saatnya kita kembali lagi ke VB.Net. Tambahkan sebuah module baru di VB.Net. caranya klik menu Project - Add New Item - Module.
Selanjutnya ketikan code berikut ini di bagian module1 yang barusan telah dibuat :
Imports System.Data.OleDb
Module Module1
    Public conn As OleDbConnection
    Public cmd As OleDbCommand
    Public RD As OleDbDataReader
    Public DA As OleDbDataAdapter
    Public DS As DataSet
    Public str As String
    Sub koneksi()
        str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\sekolah.mdb"
        conn = New OleDbConnection (str)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module
Source : http://www.biraynara.com/

 
 
 Posts
Posts
 
 
 

0 comments:
Post a Comment