Sabtu, 13 Juni 2015

Membuat Simpan Update Delete visual basic 6.0 database acces ( bagian 1)

Proses ini adalah kelanjutan dari Mengkoneksikan Visual Basic 6.0 dengan Ms.Acces

Untuk contoh database bisa diunduh Disini

1. Buat tampilan from dengan  properties (name) frmakademik

  • 10 Label 
  • 5 Textbox
  • 2 DTPicker
  • 3 Combobox
  • 5 commandButton

Dengan keterangan :

  •  LABEL

label 1
- caption : Nim
label 2
- caption : Nama
label 3
- caption : Tanggal Lahir
label 4
- caption : Jenis Kelamin
label 5
- caption : Agama
label 6
- caption : Alamat
label 7
- caption : Notelp
label 8
- caption : Study
label 9
- caption : Tanggal Masuk
label 10
- caption : Cari
Datagrid1
-(name) dgmahasiswa

  • TEXTBOX

Text1
-(name) : txtnim
Text2
-(name) : txtnama
Text3
-(name) : txtalamat
Text4
-(name) : txttelp
Text5
-(name) : txtcari                

  •  DTPICKER

DTPicker1
-(name) : tgllahir
DTPicker2
-(name) : tglmasuk

  •  COMBOBOX

Combo1
-(name) : cmbjenkel
Combo2
-(name) : cmbagama
Combo3
-(name) :  cmbstudy

  •  COMMADBUTTON

Command1
-(name) : cmdtambah
-caption : tambah
Command2
-(name) : cmdsimpan
-caption : simpan
Command3
-(name) : cmdbatal
-caption : batal
Command4
-(name) : cmdhapus
-caption : hapus
Command5        
-(name) : cmdkeluar
-caption : keluar            

2. Klik form 2x pada form_load         
           

3. Ketikan kode berikut
Private Sub Form_Load()
'memanggil sub kosongkan
kosongkan
'memanggil sub combo
combo
Call koneksi
'koneksi adalah sub yang kita buat di module tadi
End Sub
4. berkan kode berikut untuk mengkosongkan textbox dan mengisi combobox dengan kode , berikan dipaling bawah atau selelah kode form_load

Sub kosongkan()
'untuk mengkosongkan textbox
txtnim.Text = ""
txtnama.Text = ""
cmbjenkel.Text = ""
cmbagama.Text = ""
txtalamat.Text = ""
txttelp.Text = ""
cmbstudy.Text = ""
txtcari.Text = ""
End Sub

Sub combo()
'mengisi combobox
cmbjenkel.AddItem "Pria"
cmbjenkel.AddItem "Wanita"
cmbagama.AddItem "Islam"
cmbagama.AddItem "Kristen"
cmbagama.AddItem "Kristen Protistan"
cmbagama.AddItem "Budha"
cmbagama.AddItem "Hindu"
cmbagama.AddItem "Kong Hu Chu"
cmbstudy.AddItem "D3 - ABA"
cmbstudy.AddItem "D3 - MI"
cmbstudy.AddItem "S1 - ABA"
cmbstudy.AddItem "S1 - MI"
End Sub

Berikut kode lengkapnya


4. Tempatkan file database ms.acces tadi ke tempat dimana anda menyimpan file visual basic 6.0



5. Klik run / f5 jika tidak ada eror berarti koneksi anda sukses


lanjut Bagian 2


Tidak ada komentar:

Posting Komentar

Pengikut

Designed By Donie Laksmana Putra