Pemrograman Visual
Home
Profil Download
Windows 8
Twitter
ignorant
AS
DK
AA
MDN 2 I
3 MO . UL 3 SE 4 LH
RSS Feed
Programmer
Aplikasi Simpan, Edit, Cari, Hapus Data Dengan Visual Basic
2010
D
Facebook
RECENT
POPULAR
LABEL
Aplikasi Simpan, Edit, Cari, Hapus Data Dengan
E
N
T
A
R
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 :
Blog Archive
Blog Archive
2. Setelah itu bukalah Visual Studio 2010 dan buat proyek baru seperti langkah di bawah
ini :
3. Buatlah tampilan form seperti berikut :
converted by [Link]
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 :
converted by [Link]
7. Dan Isikan kode seperti di bawah ini :
Imports [Link]
Imports [Link]
Module Module1
Public database As [Link]
Public Sub koneksi()
Try
database = New [Link]("Provider=SQLOledB.1;Integrated
Security=SSPI;Persist Security Info=False;Initial catalog=dbsiswa;data
source=NOBI\SQLEXPRESS")
[Link]()
Catch ex As Exception
MsgBox([Link])
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 [Link]
converted by [Link]
Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
[Link] = ""
[Link] = ""
[Link] = ""
Call data_siswa()
End Sub
Sub data_siswa()
Call koneksi()
tabel = New [Link]("select * from tblsiswa", database)
data = New DataSet
[Link](data)
[Link] = data
[Link] = [Link](0).ToString()
[Link] = 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 [Link], ByVal e As
[Link]) Handles [Link]
Call data_siswa()
End Sub
12. Double klik button simpan lalu masukan kode berikut :
Private Sub btnsimpan_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim dml As New [Link]
[Link] = database
[Link] = [Link]
[Link] = "Insert into tblsiswa values ('" & [Link] & "','" &
[Link] & "','" & [Link] & "')"
[Link]()
MsgBox("Data terimpan")
Call bersih()
End Sub
13. Lalu jalankan program seperti gambar di bawah ini :
converted by [Link]
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 [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
Rekomendasikan ini di Google
3 Responses so far
Hasan Ashari says:
15 Januari 2015 20.48
ga jelas banget,... ga sesuai dengan judul artikelnya ni,... EDIT, CARI dan HAPUSnya manaaaa ???
Lukman Hutabarat says:
10 Juni 2015 02.45
Ijin Share, Buat Teman-teman yg masih Bingung VB Net , Berikut ini Tutorial Lengkap VB Net saya :
Pemograman VB Net
Lukman Hutabarat says:
10 Juni 2015 02.45
Ijin Share, Buat Teman-teman yg masih Bingung VB Net , Berikut ini Tutorial Lengkap VB Net saya :
Pemograman VB Net
Leave a Reply
converted by [Link]
Masukkan komentar Anda...
Beri komentar sebagai: Select profile...
Publikasikan
Pratinjau
Langganan: Poskan Komentar (Atom)
COPYRIGHT 2012 Adam Muslim
ALL RIGHT RESERVED | Supported by Tips for Life and Blogging Tips
converted by [Link]