Database dengan Visual Basic

Dibawah ini merupakan salah satu contoh aplikasi VB yang dibuat waktu gw praktikum yang dusah saya kembangkan, semoga temen-temen sekalian tidak sampai berhenti disini saja tp masih mengembangkan model yg telah gw buat..

LA-1

Sebelum di Input

Pic 1

Sesudah di input

Pic 2

Pic 3

Logika Program :

1. Membuat Database di Microsoft Acces 2007

Pic 4

2. Save-as, simpan dengan nama Mhs.mdb di drive c:

3. Buka Aplikasi visual basic 6.0 anda, kemudian pilih standard.exe klik ok"

4. Setelah muncul form baru pilih Menu bar Project-component 

Pic 5

Pic 6

5. Buat 4 buah label, 4 text box, 2 command button, data grid, adodc seperti gambar dibawah ini !

Pic 7

Objek	Properties	Value
Form1	Caption	Form1
Mhs	Connect DatabaseName	Access My.Document-Mhs.mdb
Label1	Caption	Nama :
Label2	Caption	Kelas :
Label3	Caption	NPM :
Label4	Caption	Jurusan:
Text1	Name DataSource Data Field Text	Text1 Adodc1 Nama -
Text2	Name DataSource Data Field Text	Text2 Adodc1 Kelas -
Text3	Name DataSource Data Field	Text3 Adodc1 NPM
Text4	Name DataSource Data Field	Text4 Adodc1 Jurusan
Command1	Caption	Save
Command2	Caption	Clear
Command3	Caption	Delete
Command4	Caption	Close
DBGrid1	DataSource AllowUpdate	Adodc1 False

6. klik kanan digambar/object adodc, adodc properties, dibagian general pilih - use connection string, lalu klik tombol build ..., klik tab provider - microsoft Jet  4.0 OLE DB Provider 

Pic 8

Pic 9

Pic 10

Kemudian Next -> hingga muncul tampilan seperti gambar dibawah ini ! pilih Mhs.mdb, open 

Pic 11

Pic 12

Pic 13

7. Jika koneksi berhasil, akan muncul tampilan 

Pic 14

8. Buka jendela kode program lalu ketikan kode program  berikut : 

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command4_Click()

Adodc1.Recordset.Close

End

End Sub