Belajar Visual basic.net dan Database Mics.Access

Cara membuat koneksi Visual basic.net 2008 dengan Ms.Access 2003

‘Pertama-tama buat terlebih dahulu database dengan Ms.Access 2003 dan simpan dengan nama dbmahasiswa.mdb dengan nama tabel TbMhs

‘Buat variabel dan subroutin koneksi

Dim koneksi As New OleDb.OleDbConnection

Dim proses As New OleDb.OleDbCommand

Dim SQL As String

Private sub koneksikan()

koneksi.ConnectionString = “Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:ARHAMNI _STUDYDatabase_accessdbMahasiswa.mdb; Jet OleDb:Database password=’ ‘;

koneksi.Open()

proses.Connection = koneksi

End sub

‘Dan pada tombol simpan ketik perintah ini

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

‘Memanggil sub koneksikan

koneksikan()

SQL = “insert into TbMahasiswa(NPM,Nama,jurusan)values(’” & TextBox1.Text & “‘,’” & TextBox2.Text & “‘,’” & TextBox3.Text & “‘)”

proses.CommandText = SQL

proses.ExecuteNonQuery()

MsgBox(”Data telah tersimpan”)

End Sub



‘Pada tombol edit ketik perintah dibawah ini

Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

koneksikan()

SQL = “update TbMahasiswa set Nama=’” & TextBox2.Text & “‘,jurusan=’” & TextBox3.Text & “‘ where NPM=’” & TextBox1.Text & “‘”

proses.CommandText = SQL

proses.ExecuteNonQuery()

MsgBox(”Data telah diUpdate”)

End Sub

‘Pada tombol hapus ketik perintah ini

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

koneksikan()

SQL = “delete From TbMahasiswa where NPM=’” & TextBox1.Text & “‘”

Proses.CommandText = SQL

Proses.ExecuteNonQuery()

MsgBox(”Data telah terhapus”)

End Sub