MEMBUAT DATABASE DENGAN VISUAL BASIC

Langkah-Langkahnya :

1. Membuka Ms.Visual Basic
2. Pilih Add-Ins  Visual Data Manager… maka akan tampil VisData
3. Pada VisData pilih File  New…  Microsoft Access  Version 7.0 MDB…
4. Akan tampil jendela baru “Select Microsoft Access Database to Create” pada kotak file name ketik ‘praktikumLABSI’ dan klik save
5. Setelah itu akan kembali ke jendela VisData pada Database Window akan muncul properties, pada properties klik kanan dan pilih New Table
6. Akan tampil jendela baru Table Structure pada Table name ketik ‘data_pribadi’ , setelah itu klik Add Field
7. Akan muncul jendela Add Field dan pada name ketik ‘nama’ lalu pilih OK. Ketikan juga npm, kelas beserta keterangan. Lalu pilih Close
8. Nama, npm, kelas, keterangan akan muncul pada Field List lalu pilih Build the Table
9. Maka akan kembali ke jendela Database Window dan muncul folder ‘data_pribadi’ dan double klik
10. Disitu akan tampil jendela Dynaset : data_pribadi , pilih Add
11. Masukan nama ,npm, kelas, serta keterangan pada kotak isian yang ada pada jendela tersebut ,setelah semua kotak terisi pilih Update dan klik Close
12. Lalu kembali ke tampilan Form1 pada table properties bagian Caption diganti menjadi ‘data_pribadi’
13. Klik kanan pada toolbox, pilih components, beri tanda check list pada Microsoft ADO Data 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) lalu pilih OK
14. Setelah itu akan muncul DataGrid, letakkan datagrid dan adodc pada form,klik kanan pada adodc dan pilih ADODC properties
15. Akan mucul jendela properties pages, pada use connection string klik build,akan muncul Data Link Properties pada bagian provider pilih Microsoft Jet 4.0 OLE DB Provider dan klik Next, pada bagian Connection klik tombol yang bertanda titik-titik,maka akan muncul Select Database pilih “PraktikumLab_SI” klik Open, klik Test Connection jika sudah muncul ktak dialog “Tes Connection Succeded” , setelah itu pilih “Advanced” pada access permissions pilih yang readWrite,lalu klik OK maka akan kemabli ke jendela sebelumnya,lalu pilih RecordSource pada bagian Command Type pilih 2- adCmdTable dan pada Tablr or Stored Procedure Name pilih “data_pribadi” , lalu klik Apply dan Ok. Klik TextBox1, kemudian properties. Pada properties pilih DataSource kemudian pilih Adodc1, setelah itu pilih DataField lalu pilih Nama, (untuk hal ini lakukan berulang sesuai dengan TextBox masing-masing).
16. Lalu buat kode programnya :

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.Delete

End Sub

Private Sub Command3_Click()

End

End Sub

17. pada command1 , tertulis perintah Adodc1.Recordset.AddNew yang berarti pada jika tombol “ADD” di klik akan muncul kolom baru yang dapat kita isi
18. Pada command2, tertulis perintah Adodc1.Recordsert.Delete yang berarti jika kolom yang kita klik kemudian kita mengklik tombol hapus maka kolom tersebut akan terhapus
19. pada command3, tertulis perintah end yang berarti jika tombol keluar di klik maka program tersebuat akan selesai, dan tekan F5 untuk menjalankannya