Contoh Aplikasi PSB Menggunakan Database SQL SERVER

                    Nahh lama nggk ngeblog,jdi gagu dan lupa-lupa caranya ngeblog, jadi saya langsung saja berikan contoh aplikasi mungkin bisa berguna untuk yang ingin mencobanya. Saya akan memberikan contoh Aplikasi PSB, aplikasi kali ini berbasis Desktop dan menggunakan Data Base SQL SERVER nahh untuk aplikasi kali ini saya buat menurut yang saya pelajari.

1. Nahh langkah pertama siapkan database dengan nama db_psb dan buat tabel seperti berikut dengan nama tb_pendaftar seperti dibawah ini :

2.Setelah membuat database siapkan form untuk form ekskusi aplikasinya, siapkan 5 buah textbox 1 buah datetimepicker dan 1 buah datagridview , seperti berikut :

Ket : untuk textbox id pendaftaran diubah namenya menjadi 'txtid',textbox nama 'txtnama', textbox tempat lahir 'txttempat', untuk date time picker diubah jadi 'dt1', textbox asal sekolah 'txtasal', textbox alamat pendaftaran 'txtalamat'. 

3.Langkah berikutnya bikin module untuk koneksi database beri nama config.vb seperti berikut :

Nahh setelah itu masukan script seperti dibawah ini :

Untuk Script ini  'Data Source=RIZKI-PC\SQLEXPRESS;Initial Catalog=db_psb;Integrated Security=True' nama ini 'RIZKI-PC\SQLEXPRESS; sesuaikan dengan yang ada di database kalian yang koneksi yang ini :

4.Setelah itu klik double pada form yang telah dibuat,dan masukan script dibawah ini :

1. Imports System.Data.SqlClient
2. Public Class Form1
3.    
4.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
5.         opendb()
6.         opentable()
7.     End Sub
8.  
9.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
10.         cmd.Connection = cn
11.         cmd.CommandText = "insert into tb_pendaftar values('" & txtid.Text & "','" & txtnama.Text & "','" & txttempat.Text & "','" & dt1.Text & "','" & txtasal.Text & "','" & txtalamat.Text & "')"
12.         cmd.ExecuteNonQuery()
13.         MessageBox.Show("Data Tersimpan")
14.         opentable()
15.         bersih()
16.  
17.     End Sub
18.     Sub bersih()
19.         txtid.Text = ""
20.         txtalamat.Text = ""
21.         txtasal.Text = ""
22.         txtnama.Text = ""
23.         txttempat.Text = ""
24.     End Sub
25.     Sub opentable()
26.         cmd.Connection = cn
27.         cmd.CommandText = "select * from tb_pendaftar"
28.         Dim rd As SqlDataReader = cmd.ExecuteReader
29.         Dim dt As New DataTable
30.         dt.Load(rd)
31.         DataGridView1.DataSource = dt
32.  
33.     End Sub
34.  
35.  
36.     Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
37.  
38.     End Sub
39.  
40.     Private Sub DataGridView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDoubleClick
41.         txtid.Text = DataGridView1.SelectedCells(0).Value.ToString
42.         txtnama.Text = DataGridView1.SelectedCells(1).Value.ToString
43.         txttempat.Text = DataGridView1.SelectedCells(2).Value.ToString
44.         dt1.Text = DataGridView1.SelectedCells(3).Value.ToString
45.         txtasal.Text = DataGridView1.SelectedCells(4).Value.ToString
46.         txtalamat.Text = DataGridView1.SelectedCells(5).Value.ToString
47.     End Sub
48.  
49.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnubah.Click
50.  
51.         cmd.Connection = cn
52.         cmd.CommandText = "Update tb_pendaftar set id_pendaftar = '" & txtid.Text & "',nama = '" & txtnama.Text & "',tempat_lahir = '" & txttempat.Text & "',tanggal_lahir = '" & dt1.Text & "',asal_sekolah = '" & txtasal.Text & "',alamat_pendaftar = '" & txtalamat.Text & "' where id_pendaftar = '" & txtid.Text & "'"
53.         cmd.ExecuteNonQuery()
54.         MessageBox.Show("Data Sudah Di Update")
55.         opentable()
56.         bersih()
57.  
58.     End Sub
59.  
60.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
61.         cmd.Connection = cn
62.         cmd.CommandText = "Delete from tb_pendaftar where id_pendaftar = '" & txtid.Text & "'"
63.         cmd.ExecuteNonQuery()
64.         MessageBox.Show("Data Sudah Di Hapus")
65.         opentable()
66.         bersih()
67.  
68.     End Sub 
69. 
    
70.     Private Sub Label14_Click(sender As Object, e As EventArgs) Handles Label14.Click
71.         Me.Close()
72.     End Sub
73. End Class

Setelah itu coba dijalankan dan yang akan muncul seperti dibawah ini :

Jika ada error silahkan di comment yahh, selamat mencoba.