Membuat proses Simpan update delete visual basic (bagian 2 )

By: Unknown on 12.10

proses ini kelanjutan dari Membuat simpan update delete visual basic 6.0

PROSES SIMPAN

Setelah langkah sebelumnya membuat koneksi ke database dan membuat form maka selanjutnya lanjut koding "SIMPAN"

isikan kode berkiut di form_activate untuk memunculkan data database di datagrid

Private Sub Form_Activate()
Set rsmhs = New ADODB.Recordset
rsmhs.Open ("Select * from mahasiswa"), kn
Set dgmahasiswa.DataSource = rsmhs
kosongkan
End Sub

Sebelum proses simpan terlebih dahulu kita membuat pesan (msgbox) jika textbox dalam kondisi kosong maka akan timbul pesan untuk di isi terlebuh dahulu ...

berikut codenya

If txtnim.Text = "" Then

MsgBox "nim harus di isi", vbInformation, "Info"

txtnim.SetFocus

Exit Sub

End If

If txtnama.Text = "" Then

MsgBox "nama harus di isi", vbInformation, "Info"

txtnama.SetFocus

Exit Sub

End If

If tgllahir.Value = "" Then

MsgBox "tanggal lahir harus di isi", vbInformation, "Info"

tgllahir.SetFocus

Exit Sub

End If

If cmbjenkel.Text = "" Then

MsgBox "jenis kelamin harus di isi", vbInformation, "Info"

cmbjenkel.SetFocus

Exit Sub

End If

If cmbagama.Text = "" Then

MsgBox "agama harus di isi", vbInformation, "Info"

cmbagama.SetFocus

Exit Sub

End If

If txtalamat.Text = "" Then

MsgBox "alamat harus di isi", vbInformation, "Info"

txtalamat.SetFocus

Exit Sub

End If

If txttelp.Text = "" Then

MsgBox "no telp harus di isi", vbInformation, "Info"

txttelp.SetFocus

Exit Sub

End If

If cmbstudy.Text = "" Then

MsgBox "study harus di isi", vbInformation, "Info"

cmbstudy.SetFocus

Exit Sub

End If

If tglmasuk.Value = "" Then

MsgBox "Tanggal masuk harus di isi", vbInformation, "Info"

tglmasuk.SetFocus

Exit Sub

End If

Selelah itu kita membuat validasi agar tidak timbul pesan eror doble primary key
berikut code nya

Set rsmhs = New ADODB.Recordset
rsmhs.Open "select*from mahasiswa where nim ='" & txtnim.Text & "'", kn
If Not rsmhs.EOF Then
MsgBox "Nim sudah digunakan", vbInformation, "Info"
Exit Sub
End If

Selelah proses validasi lanjut proses simpan
berikut kodenya

Set rsmhs = New ADODB.Recordset
rsmhs.Open "insert into mahasiswa values ( '" & txtnim.Text & "' ,'" & txtnama.Text & "' , '" & tgllahir.Value & "' ,'" & cmbjenkel.Text & "' ,'" & cmbagama.Text & "' ,'" & txtalamat.Text & "' ,'" & txttelp.Text & "' ,'" & cmbstudy.Text & "' ,'" & tglmasuk.Value & "')", kn

terakhir berikan kode ini di tempat paling bawah sebelum end sub guna untuk merefres data agar masuk ke datagrid

Form_Activate

Untuk Keseluruhan kodenya sebagai berikut

Private Sub Simpan_Click()
'pesan textbox kosong
If txtnim.Text = "" Then
MsgBox "nim harus di isi", vbInformation, "Info"
txtnim.SetFocus
Exit Sub
End If
If txtnama.Text = "" Then
MsgBox "nama harus di isi", vbInformation, "Info"
txtnama.SetFocus
Exit Sub
End If
If tgllahir.Value = "" Then
MsgBox "tanggal lahir harus di isi", vbInformation, "Info"
tgllahir.SetFocus
Exit Sub
End If
If cmbjenkel.Text = "" Then
MsgBox "jenis kelamin harus di isi", vbInformation, "Info"
cmbjenkel.SetFocus
Exit Sub
End If
If cmbagama.Text = "" Then
MsgBox "agama harus di isi", vbInformation, "Info"
cmbagama.SetFocus
Exit Sub
End If
If txtalamat.Text = "" Then
MsgBox "alamat harus di isi", vbInformation, "Info"
txtalamat.SetFocus
Exit Sub
End If
If txttelp.Text = "" Then
MsgBox "no telp harus di isi", vbInformation, "Info"
txttelp.SetFocus
Exit Sub
End If
If cmbstudy.Text = "" Then
MsgBox "study harus di isi", vbInformation, "Info"
cmbstudy.SetFocus
Exit Sub
End If
If tglmasuk.Value = "" Then
MsgBox "anggal masuk harus di isi", vbInformation, "Info"
tglmasuk.SetFocus
Exit Sub
End If
'validasi
Set rsmhs = New ADODB.Recordset
rsmhs.Open "select*from mahasiswa where nim ='" & txtnim.Text & "'", kn
If Not rsmhs.EOF Then
MsgBox "Nim sudah digunakan", vbInformation, "Info"
Exit Sub
End If
'proses simpan
Set rsmhs = New ADODB.Recordset
rsmhs.Open "insert into mahasiswa values ( '" & txtnim.Text & "' ,'" & txtnama.Text & "' , '" & tgllahir.Value & "' ,'" & cmbjenkel.Text & "' ,'" & cmbagama.Text & "' ,'" & txtalamat.Text & "' ,'" & txttelp.Text & "' ,'" & cmbstudy.Text & "' ,'" & tglmasuk.Value & "')", kn
Form_Activate
End Sub 

Tekan RUN / F5 untuk mencoba , coba validasinya juga isikan nim yang sama seperti data yang sudah tersimpan sebelumnya

Gambar jika data berhasil tersimpan akan muncul di datagrid

Gambar jika memasukan nim yang sama akan muncul pesan , dikarenakan nim adalah primary key dari tabel database , primary key tidak boleh sama dan harus dibuat seunik mungkin

Lanjut Bagian 3