Aplikasi Simpan, Edit, Cari, Hapus Menggunakan Visual Basic 2010

Pendahuluan
Puji syukur penulis panjatkan kepada Allah SWT yang telah memberikan kesehatan dan kemudahan sehingga penulis dapat menyelesaikan modul ini. Tidak lupa penulis juga ucapkan terima kasih kepada almarhum ayah semoga amal ibadahnya di terima di sisi Allah SWT, Ibu dan Nenek.
Karena penulis juga manusia dan memiliki kekurangan semoga kritik dan saran membangun diperlukan untuk penulis guna menjadikan buku ini lebih baik lagi. Kritik dan saran bisa disampaikan melalui :
Facebook : Budhi Nobi Permana
Email FB : nobini ce@gmail.com
Email : nobi ast a@gm ail.com
YM : budinobipermana@yahoo.co.id
Akhir kata penulis ucapkan terima kasih semoga menjadi ilmu bermanfaat bagi mereka yang menggunakan buku ini amin

Program Database Sederhana

Contoh : 

1. Buat  database  di  SQL Server  2008  dengan  nama  dbsiswa  kemudian  buatlah  table dengan nama Tblsiswa seperti berikut :

2. Setelah itu bukalah Visual Studio 2010 dan buat proyek baru seperti langkah di bawah ini :

3. Buatlah tampilan form seperti berikut :

4. Kemudian Buatlah modul dengan langkah seperti gambar di bawah ini :

5. Tuliskan nama modul lalu klik add seperti gambar di bawah ini :

6. Double klik modul1 :

7. Dan Isikan kode seperti di bawah ini :

Imports System.Data Imports System.Data.Sql Module Module1
Public database As OleDb.OleDbConnection Public Sub koneksi()
Try
database = New OleDb.OleDbConnection("Provider=SQLOledB.1;Integrated Security=SSPI;Persist Security Info=False;Initial catalog=dbsiswa;data source=NOBI\SQLEXPRESS")
database.Open() Catch ex As Exception
MsgBox(ex.ToString) End Try
End Sub End Module

8. Klik kanan Form1 kemudian klik view code :

9. Lalu masukan kode dibawah ini :

Public Class form1
Dim tabel As OleDb.OleDbDataAdapter Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
Txtnis.Text = "" Txtnama.Text = "" Txtkelas.Text = "" Call data_siswa()
End Sub
Sub data_siswa() Call koneksi()
tabel = New Data.OleDb.OleDbDataAdapter("select * from tblsiswa", database)

10. Kembali ke desain form, double klik form1 :

 

11. Setelah itu masukan kode dibawah ini :

Private  Sub  form1_Load(ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs) Handles MyBase.Load
Call data_siswa() End Sub

12. Double klik button simpan lalu masukan kode berikut :

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
Dim sqlquery As New OleDb.OleDbCommand sqlquery.Connection = database sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Insert into tblsiswa values ('" & Txtnis.Text & "','" & Txtnama.Text & "','" & Txtkelas.Text & "')"
sqlquery.ExecuteNonQuery() MsgBox("Data terimpan") Call bersih()
End Sub

13. Lalu jalankan program seperti gambar di bawah ini :

14. Setelah di klik simpan data akan secara otomatis masuk ke dalam database di awali dengan pesan data telah tersimpan lalu secara otomatis data akan Nampak pada Datagridview1.

15. Pada button keluar masukan kode berikut :

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End End Sub

Membuat Tombol Cari :

1. Tambahkan button seperti gambar di bawah ini :

2. Kemudian setelah itu masukan kode berikut :

Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click
Dim NiS_Siswa = InputBox("Masukkan Nis Siswa")
Try
data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("nis")}
Dim row As DataRow
row = data.Tables(0).Rows.Find(Nis_Siswa) Txtnis.Text = row("nis")
Txtnama.Text = row("nama_siswa") Txtkelas.Text = row("kelas")
Catch ex As Exception
MsgBox("Data Tidak ada / anda batal mencari Data !!") End Try
End Sub

3. Setelah itu coba jalankan program dengan mengklik tombol simpan :

Membuat Tombol Edit 

1. Tambahkan button Edit seperti gambar di bawah ini :

2. Lalu double klik button edit masukan kode berikut :

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
Try
Call koneksi()
Dim sqlquery As New OleDb.OleDbCommand sqlquery.Connection = database sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Update tblsiswa set nama_siswa = '" & Txtnama.Text & "',kelas = '" & Txtkelas.Text & "' where nis = '" & Txtnis.Text & "'"
sqlquery.ExecuteNonQuery() MsgBox("Data   Sudah Di Update") Call bersih()
Catch ex As Exception MsgBox(ex.ToString())
End Try End Sub

3. Setelah  itu  coba  jalankan  program  dengan  menekan  tombol  cari  terlebih  dahulu kemudian mengedit data yang di maksud

Membuat Tombol Hapus :

1. Tambahkan button seperti gambar dibawah ini :

2. Kemudian double klik tombol hapus dan masukan kode berikut :

Dim sqlquery As New OleDb.OleDbCommand sqlquery.Connection = database sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Delete from tblsiswa where nis = '" & Txtnis.Text & "'"
sqlquery.ExecuteNonQuery() MsgBox("Data Dihapus") Call bersih()

3. Setelah itu jalankan program, hapus data yang dimaksud :

Refrensi

1. www.msdn.microsoft.com

2. Budi Permana, Modul Belajar Cepat Membuat Program Dengan Visual Studio 2010 dan SQL Server 2008.

Sumber : 

Ilmu Komputer

Tweet