hai sobat , lama nggk update nih blog . sang bloggernya sedang sibuk di dunia nyata sana.
Disini saya mau memberikan contoh CRUD di VB dalam kasus pendaftaran siswa . saya menggunakan VS 2012 (baru update) dan databasenya menggunakan SQL Server . oke bro silahkan di check aja code nya -->
Step 1 :
buat new project di vb , lalu beri nama pendaftaran_siswa
Step 2 :
Buat Designya menjadi seperti yg dibawah ini (untuk tablenya menggunakan datagridview) :
untuk nama textbox , kalian ubah di properties->name dengan format(txtnama , txtalamat, txttanggal dll)
Step 3 : lalu klik kanan di solution explorer -> pendaftaran_siswa , pilih add -> module . Beri nama config
Step 4 : trus pastekan kodenya dibawah ini (dengan catatan : masukkan nama database kalian di Data Source )
Imports System.Data.SqlClient
Module config
Public cn As New SqlConnection
Public cmd As New SqlCommand
Sub opendb()
cn.ConnectionString = "DATA SOURCE= NAMA SERVER di SQL SERVER;Initial Catalog=NAMA TABLENYA ;Integrated Security=True;"
cn.Open()
If cn.State = ConnectionState.Open Then
'MessageBox.Show("db open")
Else
MessageBox.Show("db close")
End If
End Sub
End Module
Module config
Public cn As New SqlConnection
Public cmd As New SqlCommand
Sub opendb()
cn.ConnectionString = "DATA SOURCE= NAMA SERVER di SQL SERVER;Initial Catalog=NAMA TABLENYA ;Integrated Security=True;"
cn.Open()
If cn.State = ConnectionState.Open Then
'MessageBox.Show("db open")
Else
MessageBox.Show("db close")
End If
End Sub
End Module
Step 5 : kembali ke form1 , klik 2 kali pada form , pastekan di bawah End Sub
Sub opentable()
cmd.Connection = cn
cmd.CommandText = "SELECT * FROM pendaftar"
Dim temp_read As SqlDataReader = cmd.ExecuteReader
tampil_pendaftar.Load(temp_read)
dg_pendaftar.DataSource = tampil_pendaftar
dg_pendaftar.Columns(0).HeaderText = "Id Pendaftaraan"
dg_pendaftar.Columns(1).HeaderText = "Nama Pendaftaraan"
dg_pendaftar.Columns(2).HeaderText = "Tempat Lahir"
dg_pendaftar.Columns(3).HeaderText = "Tanggal Lahir"
dg_pendaftar.Columns(4).HeaderText = "Asal Sekolah"
dg_pendaftar.Columns(5).HeaderText = "Alamat Sekolah"
dg_pendaftar.Columns(0).Width = 100
End Sub
jika sudah , ketik di dalam form1 "call opentable()"
Step 6 : klik 2 kali pada tombol simpan, lalu ketik kode dibawah ini
Try
cmd.Connection = cn
cmd.CommandText = "INSERT INTO tb_pendaftar VALUES ('" & txt_idpendaftar.Text &
"','" & txt_namapendaftar.Text &
"','" & txt_tempat.Text &
"','" & Microsoft.VisualBasic.Left(tanggal.Value, 10) &
"','" & txt_asalsekolah.Text &
"','" & txt_alamat.Text & "')"
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Ditambah")
Call opentable()
Catch ex As Exception
MsgBox("Data Gagal Ditambah")
End Try
Selanjutnya lakukan hal yang sama seperti diatas pada tombol update
Try
cmd.Connection = cn
cmd.CommandText = "UPDATE tb_pendaftar SET id_pendaftar = '" & txt_idpendaftar.Text &
"' , nama = '" & txt_namapendaftar.Text &
"' , tempat_lahir = '" & txt_tempat.Text &
"' , tanggal_lahir = '" & Microsoft.VisualBasic.Left(tanggal.Value, 10) &
"' , asal_sekolah = '" & txt_asalsekolah.Text &
"' , alamat_pendaftar = '" & txt_alamat.Text &
"' WHERE id_pendaftar = '" & txt_idpendaftar.Text & "' "
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Diedit")
Call opentable()
Catch ex As Exception
MsgBox("Data Gagal Diedit")
End Try
lalu tombol delete
Try
cmd.Connection = cn
cmd.CommandText = "DELETE FROM tb_pendaftar WHERE id_pendaftar '" & txt_idpendaftar.Text & "' "
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Dihapus")
Call opentable()
Catch ex As Exception
MsgBox("Data Gagal Dihapus")
End Try
Step 7 : buka form1[design] , lalu klik 2 kali datagridviewnya , lalu ubah menjadi CellContentDoubleClick. Jika sudah , ketik kode dibawah ini
txt_idpendaftar.Text = dg_pendaftar.SelectedCells(0).Value
txt_namapendaftar.Text = dg_pendaftar.SelectedCells(1).Value
txt_tempat.Text = dg_pendaftar.SelectedCells(2).Value
tanggal.Text = dg_pendaftar.SelectedCells(3).Value
txt_asalsekolah.Text = dg_pendaftar.SelectedCells(4).Value
txt_alamat.Text = dg_pendaftar.SelectedCells(5).Value
Step 8 : klik 2 kali pada tombol reset , lalu ketik
txt_idpendaftar.Text = ""
txt_namapendaftar.Text = ""
txt_tempat.Text = ""
tanggal.Text = ""
txt_asalsekolah.Text = ""
txt_alamat.Text = ""
Selesai , Pendaftaran Siswa bisa dijalankan .
Jika ada yang ingin bertanya silahkan komen saja dibawah ini.
