Membuat proses Simpan update delete visual basic (bagian 4 )

Proses ini kelanjutan dari Membuat proses simpan update delete visual basic 6.0 (bagian 3)

PROSES DELETE 

Doble klik pada tombol Hapus lalu tuliskan kode berikut

buang = MsgBox("yakin dihapus ?", vbYesNo, "Peringatan")
If buang = vbYes Then
Set rsmhs = New ADODB.Recordset
rsmhs.Open "delete from mahasiswa where nim= '" & txtnim.Text & "'", kn
End If

Tepat dibawahnya tuliskan kode berikut untuk mengaktifkan kembali textbox untuk proses lainya

txtnim.Enabled = True
txtnama.Enabled = True
cmbjenkel.Enabled = True
cmbagama.Enabled = True
cmbstudy.Enabled = True
tgllahir.Enabled = True
tglmasuk.Enabled = True
txtnim.SetFocus
Form_Activate 

Sehingga kode keseluruhan tombol hapus menjadi seperti ini

Tekan F5 / RUN untuk mencoba

Read More

Membuat proses Simpan update delete visual basic (bagian 3 )

Proses ini kelanjutan dari Membuat proses simpan update delete visual basic 6.0 (bagian 2)

PROSES UPDATE

UPDATE : Sebelumnya ikutin prosess INI terlebih dahulu sebelum lanjut koding update

Doble klik datagrid pada form

Tulis code berikut tepat dipaling bawah kode sebelunya

Simpan.Caption = "Update"

Sehingga akan menjadi seperti ini

Kembalin ke form , Doble klik tombol simpan

tulis kode berikut di atas kode validasi

If Simpan.Caption = "Simpan" Then

Maka akan menjadi seperti ini

Cari kode simpan hapus code

form_activate

lalu tulis kode update berikut di bawah kode simpan

Else
Set rsmhs = New ADODB.Recordset
rsmhs.Open "update mahasiswa set alamat= '" & txtalamat.Text & "',notelp= '" & txttelp.Text & "' where nim= '" & txtnim.Text & "'", kn
End If

karena di proses update hanya alamat dan notelp yang diupdate maka di datagrid harus ditambah kode ini

txtnim.Enabled = False
txtnama.Enabled = False
cmbjenkel.Enabled = False
cmbagama.Enabled = False
cmbstudy.Enabled = False
tgllahir.Enabled = False
tglmasuk.Enabled = False 

Guna untuk mematikan textbox yang tidak diedit agar tidak terjadi eror nantinya ,
berikut kode keseluruhan di datagrid

Setelah proses update berhasil maka textbox yang dimatikan langkah diatas akan tetap mati , jadi dihidupkan kembali untuk proses simpan , akan tertapi jika datagrid ditekan textbox masih tetap dalam keadaan mati , berikut kodenya berikan dibawah kode update setelah end if

txtnim.Enabled = True
txtnama.Enabled = True
cmbjenkel.Enabled = True
cmbagama.Enabled = True
cmbstudy.Enabled = True
tgllahir.Enabled = True
tglmasuk.Enabled = True
Simpan.Caption = "Simpan"
Form_Activate

Maka kode keseluruhan di tombol simpan akan menjadi seperti  ini

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
If Simpan.Caption = "Simpan" Then
'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
'proses update
Else
Set rsmhs = New ADODB.Recordset
rsmhs.Open "update mahasiswa set alamat= '" & txtalamat.Text & "',notelp= '" & txttelp.Text & "' where nim= '" & txtnim.Text & "'", kn
End If
txtnim.Enabled = True
txtnama.Enabled = True
cmbjenkel.Enabled = True
cmbagama.Enabled = True
cmbstudy.Enabled = True
tgllahir.Enabled = True
tglmasuk.Enabled = True
Simpan.Caption = "Simpan"
Form_Activate
End Sub

Tekan F5 / RUN untuk mencoba ...

lanjut proses selanjunya Proses Hapus

Read More

Memunculkan data datagrid ke textbox

Sebelum memulai proses ini lihat proses sebelumnya terlebih dahulu Membuat proses simpan

Doble klik datagrid dan ganti prosedur dari Clik ke DBlClik

Sehingga code menjadi seperti ini

Masukan kode berikut

Private Sub dgmahasiswa_DblClick()
txtnim.Text = dgmahasiswa.Columns(0)
txtnama.Text = dgmahasiswa.Columns(1)
tgllahir.Value = dgmahasiswa.Columns(2)
cmbjenkel.Text = dgmahasiswa.Columns(3)
cmbagama.Text = dgmahasiswa.Columns(4)
txtalamat.Text = dgmahasiswa.Columns(5)
txttelp.Text = dgmahasiswa.Columns(6)
cmbstudy.Text = dgmahasiswa.Columns(7)
tglmasuk.Value = dgmahasiswa.Columns(8)
End Sub

Klik RUN / F5 untuk mengecek

 Gambar jika datagrid di klik 2x maka textbox akan terisi 

Read More

Membuat proses Simpan update delete visual basic (bagian 2 )

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

Read More