Aplikasi Simpan, Edit, Cari, Hapus Data Dengan Visual Basic 2010

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 viewcode

9. Lalu masukan kode di bawa


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)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
End Sub
End Class

10. Kembali ke desain form, double klik form1 :

11. Setelah itu masukan kode di bawah 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 dml As New OleDb.OleDbCommand
dml.Connection = database

dml.CommandType = CommandType.Text

dml.CommandText = "Insert into tblsiswa values ('" & Txtnis.Text & "','" & Txtnama.Text & "','" & Txtkelas.Text & "')"

dml.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 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

Continue reading →