Contoh VB 6.0 dengan database access part 3

Tulisan kali ini adalah tulisan lanjutan dari tulisan 2 tulisan yang sebelumnya untuk tulisan yang pertama saya membuat cara pembuatan form dan database yang bisa sobat lihat DISINI Dan tulisan yang kedua tentang cara pengkoneksian database access dan project VB 6.0 DISINI.
untuk tulisan ke 3 saya akan buat coding program untuk project yang saya buat di 2 tulisan sebelumnya.

Untuk menghubungkan Grid dengan database langkahnya adalah klik pada Grid1 pada  properties pilih DataSource kemudian isi dengan ADOC1

 

Berikut adalah coding program yang saya buat untuk 2 tulisan sebelumnya

Dim isidata As Boolean ‘variable

Sub bersih()  ‘membuat sub bersih

Tno = ""

Tnama = ""

Ttgl = ""

Talamat = ""

Tno = ""

End Sub

Sub aktif() ‘membuat sub aktif

Tno.Enabled = True

Tnama.Enabled = True

Cjk.Enabled = True

Talamat.Enabled = True

Tnotlp.Enabled = True

Tno.SetFocus

Tno.BackColor = &H80000000

Tnama.BackColor = &H80000005

Cjk.BackColor = &H80000005

Tnotlp.BackColor = &H80000005

Talamat.BackColor = &H80000005

End Sub

Sub nonaktif() ‘membuat sub nonaktif

Tno.Enabled = False

Tnama.Enabled = False

Cjk.Enabled = False

Tnotlp.Enabled = False

Talamat.Enabled = False

Tno.BackColor = &H80000005

Tnama.BackColor = &H80000000

Cjk.BackColor = &H80000000

Tnotlp.BackColor = &H80000000

Talamat.BackColor = &H80000000

End Sub

Private Sub Ccancel_Click() ‘Perintah untuk batal

Ccancel.Enabled = False

Cnew.Enabled = True

Cexit.Enabled = True

Csave.Enabled = True

Cdelete.Enabled = True

bersih

End Sub

Private Sub Cdelete_Click() ‘Perintah untuk menghapus

On Error Resume Next

hapus = MsgBox("Yakin akan menghapus record?", vbQuestion + vbOKCancel, "fajar345.com")

If hapus = vbOK Then

Adodc1.Recordset.Delete

Adodc1.Refresh

Set Grid1.DataSource = Adodc1

Grid1.Refresh

End If

End Sub

Private Sub Cexit_Click() ‘perintah untuk Keluar

pesan = MsgBox("Keluar dari Program", vbQuestion + vbYesNo, "fajar345.com")

If pesan = vbYes Then

Unload Me

End If

End Sub

Private Sub Cnew_Click() ‘perintah New

Call aktif

Call bersih

Cnew.Enabled = False

Csave.Enabled = True

Cdelete.Enabled = True

Ccancel.Enabled = True

Cexit.Enabled = True

End Sub

Private Sub Csave_Click() ‘Perintah Untuk menyimpan

On Error Resume Next ‘Jika terjadi kesalahan makan akan dilanjutkan

‘Perintah untuk memberikan pesan bahwa setiap record harus di isi

If Tno.Text = Empty Then MsgBox "No Harus Di Isi", vbInformation, "fajar345.com": Tno.SetFocus: Exit Sub

If Tnama.Text = Empty Then MsgBox "Nama harus Di Isi", vbInformation, "fajar345.com": Tnama.SetFocus: Exit Sub

If Cjk.Text = Empty Then MsgBox "Pilih jenis Kelamin", vbInformation, "fajar345.com": Cjk.SetFocus: Exit Sub

If Talamat.Text = Empty Then MsgBox "Alamat harus Di Isi", vbInformation, "fajar345.com": Talamat.SetFocus: Exit Sub

If Tnotlp.Text = Empty Then MsgBox "Notlp harus Di Isi", vbInformation, "fajar345.com": Tnotlp.SetFocus: Exit Sub

With Adodc1.Recordset

If isidata = True Then

.AddNew

!No = Tno.Text

!Nama = Tnama.Text

!Jkel = Cjk.Text

!Alamat = Talamat.Text

!Tlp = Tnotlp.Text

.Update

Else

!No = Tno.Text

!Nama = Tnama.Text

!Jkel = Cjk.Text

!Alamat = Talamat.Text

!Tlp = Tnotlp.Text

.Update

End If

Adodc1.Recordset.Requery

Adodc1.RecordSource = "select * from Tbdaftar"

Set Grid1.DataSource = Adodc1

Grid1.Refresh

Csave.Enabled = False

Cnew.Enabled = True

Ccancel.Enabled = True

Cdelete.Enabled = True

Cexit.Enabled = True

End With

End Sub

Private Sub Form_Activate() ‘Saat di run maka yang yang aktif hanya Delete,New dan Exit

nonaktif

Csave.Enabled = False

Cnew.Enabled = True

Ccancel.Enabled = False

Cdelete.Enabled = True

Cexit.Enabled = True

Adodc1.Visible = False

End Sub

Sub tabel() ‘Membuat table Pada MHSFlexgrid

Grid1.Cols = 6

Grid1.Rows = 8

Grid1.ColWidth(0) = 100

Grid1.ColWidth(1) = 1500

Grid1.ColWidth(2) = 2000

Grid1.ColWidth(3) = 1000

Grid1.ColWidth(4) = 2000

Grid1.ColWidth(5) = 1500

Grid1.ColWidth(6) = 1000

End Sub

Private Sub Form_Load() ‘form memanggil table dan item dari combobox

call tabel

Cjk.AddItem "Pria"

Cjk.AddItem "Wanita"

End Sub

Huuhhhhh....Akhirnya selesai juga membuat program sederhana di vb 6.0. untuk melihat hasilnya sekarang sobat tinggal runing untuk mengetahui apakah project nya benar2 berfungsi..
Ok.. Sampai disni dulu selamat mencoba..dan semoga Sukses......

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!