Pembuatan Aplikasi Simpan Data Menggunakan Visual Basic 2010

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 bawah ini :

Public Class form1

Dim tabel As OleDb.OleDbDataAdapter

Dim data As DataSet

Dim record As New BindingSource

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

13. Lalu jalankan program seperti gambar di bawah ini :

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

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

Tweet

Subscribe to receive free email updates: