Cara Membuat DataBase Via Visual Basic

1. Pertama-tama kita terlebih dahulu membuka Microsoft Visual Basic
2. Selanjutnya kita klik File > New Project > Standard EXE > OK

   

   
   

3. Sebelum kita memulai, sebaiknya kita membutuhkan barang-barang seperti ini :

• Label ( 3 Buah  )
• TextBox ( 3 Buah )
• CommandButton ( 2 Buah )
• Adodc ( 1 Buah )
• DataGrid ( 1 Buah )
• Form ( 1 Buah )

  4. Didalam Form1 kita pindahkan barang-barang yg diatas kedalam Form

      5. Kita ganti terlebih dahulu Label1, Label2 dan Label3 dengan cara : Klik kanan pada Label1/2/3           > Properties > Caption > Ganti label dengan yang kita butuhkan

      6. Kita kosongkan tulisan Text1, Text2 dan Text3 dengan cara : Klik kanan pada Text1/2/3 >                   Properties > Text > dihapus tulisan Textnya menjadi kosong

       7. Kita ganti tulisan Command1 dan Command2 menjadi Hapus dan Input, dengan cara :                     Klik kanan pada Command1/2 > Properties > Caption > Ganti tulisan Hapus dan Input

 

        8. Nahh di Toolbar tidak ada Adodc sama DataGrid, sebaiknya kita cari secara manual dengan                 cara : Klik Project > Component > Pilih Microsoft ADO Data Control 6.0 (OLEDB) dan                     Microsoft DataGrid 6.0 (OLEDB) > OK

   9. Kita akan membuat tablenya di DataGrid dengan cara sebagai berikut :

1. Klik cari dimenu bar yang tulisannya Add Ins > Visual Data Manager
   
2. Klik File > New > Microsoft Acces > version 7.0 MDB > lalu tekan save, Kalo aku sih savenya di Local Disk C > Bikin folder baru > Masukin nama table
   
3. Nanti akan muncul seperti gambar ini :
   
4. Klik kanan pada properties > New Table
   
5. Table Name kita isi dengan Test aja > Lalu klik Add Field
   
6. Kita isi Name, Type dan Size seperti ini dan terus langsung OK
   
7. Nanti akan seperti ini
   
8. Selanjutnya tinggal klik close saja

10. Kalo sudah selesai yang tadi, selanjutnya kita melanjutkan mengkoding, caranya dengan klik            2 x pada Button Input dan Button Hapus 

•  Sintaks dari Button Input

Private Sub Command2_Click()

Adodc1.RecordSet.AddNew

Adodc1.RecordSet!Kode_Matkul = Text1.Text

Adodc1.RecordSet!Nama_Matkul = Text2.Text

Adodc1.RecordSet!Dosen = Text3.Text

Adodc1.RecordSet.Update

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

•  Sintaks dari Button Hapus

Private Sub Command1_Click()

A = MsgBox("Anda Yakin Akan Menghapus Data Ini ?", vbYesNo, "Informasi")

if A = vbYes Then

Adodc1.RecordSet.Delete

End If

End Sub

11.  Kalo sudah selesai nulis sintaks Input dan Hapus, sekarang tinggal di uji coba berhasil atau  

       tidak caranya tekan F5

12. Ini dia hasil outputnya , tinggal di masukin Kode Matkul, Nama Matkul dan Dosen