Imports System.Data.OleDb
Public Class Form1
End Class
Pertama kita import terlebih dahulu OleDb. Selanjutnya buat sebuah Subroutine dengan nama Simpan untuk menyimpan data kedalam database. Code subroutine simpannya seperti berikut ini:
Sub Simpan()
Try
Call koneksi()
Dim str As String
str = "insert into tblSiswa values ('" & txtNis.Text & "','" & txtNama.Text & "', '" & txtKelas.Text & "', '" & rtbAlamat.Text & "')"
cmd = New OleDbCommand(str, conn)
cmd.ExecuteNonQuery()
MessageBox.Show("Simpan Data Siswa Berhasil Dilakukan")
Catch ex As Exception
MessageBox.Show("Simpan data Gagal Dilakukan")
End Try
End Sub
Setelah subroutine simpan dibuat, selanjutnya klik dua kali btnSimpan lalu panggil subroutinenya dengan perintah call Simpan, codingnya seperti berikut ini :
Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
Call Simpan()
End Sub
Sebelum lanjut, sekarang kita coba jalankan dahulu programnya. Masukan Data lalu klik tombol Simpan.
Yup data sudah berhasil masuk kedalam tblSiswa, dimana pada tabel tersebut sudah ada siswa dengan NIS 10108822 dengan nama Firdan Ardiansyah, kelas dan juga alamatnya pun ikut masuk kedalam tabel tblSiswa tersebut.
Seperti itulah cara bagaimana melakukan insert data melalui aplikasi yang di buat di Visual Basic.Net kedalam database MS. Access. Pembahasan selanjutnya kita akan mempelajari tentang bagaimana memproses update data di VB.Net, jadi sering sering mampir ke blog virdane.blogspot.com ini ya.
Post a Comment