VISUAL BASIC 6.0 DATABASE

VISUAL BASIC 6.0

DATABASE

 

 

  • Pilih menu "Standard EXE" pada tampilan awal Visual Basic.

  • Lalu klik "Open".

 

  • Klik kanan pada toolbox.

  • Pilih menu "Components".

  • Ceklist :

     > Microsoft ADO Data Control 6.0 (OLEDB)

     > Microsoft DataGrid Control 6.0 (OLEDB)

     > Microsoft DataList Controls 6.0 (OLEDB)

  • Buat desain form seperti ini :

     > 1 toolbox datagrid

     > 8 toolbox label

     > 7 toolbox textbox

     > 1 toolbox combobox

     > 5 toolbox command button

     > 1 toolbox adodc

Setelah selesai membuat form di Visual Basic 6.0 lalu membuat file

di Ms. Access. 

  • Pilih "Blank desktop database".

   • Klik kiri pada icon browse (gambar file).

   > Simpan file satu folder dengan folder visual basic.

   > Beri nama database yang diinginkan.

   > Pilih format type save "Microsoft access database (2002-2003 format)".

   • Lalu klik kiri pada icon create.

   > Pada kolom tabel, klik kanan pada menu tabel. 

   > Pilih design view.  

   • Beri nama tabel, lalu klik "OK".  

   > Field Name : Untuk nama label pada Visual Basic.

   > Data Type   : Tipe data isi dari database.  

   > Jika sudah diisi, klik kanan pada nama tabel yang berada diatas field name.

   > Pilh menu "Datasheet View".

   • Pilih "Yes".

Setelah selesai membuat file di Ms. Access kembali ke Visual Basic6.0

   > Klik kanan pada adodc. 

   > Pilih menu ADODC Properties. 

   > Pilih "Use Connection String". 

   > Lalu pilih menu 'Build".

     > Pilih file database yang anda buat tadi. 

     > Jika sudah klik "Test Connection".

     • Jika berhasil maka notifikasinya seperti ini.

  

    > Pilih menu "RecordSource". 

    > Lalu pada "Command Type" pilih "2 – adCmdTable".  

  

    • Setelah itu pada "Table or Stored Procedure Name" pilih nama file Ms. Access yang anda buat tadi.

    

    • Klik datagrid.

    > Lalu pada properties datagrid, scroll kebawah pilih menu "DataSource". 

    > Lalu pilih "Adodc1". 

Berikut ini untuk codingannya :

       Sub bersih()

       Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Combo1 = ""
Text7 = ""
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Indonesia"
    Text5.Text = Text5.Text
Case "Inggris"
    Text5.Text = Text5.Text
End Select
End Sub

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("ID BUKU") = Text1.Text
Adodc1.Recordset.Fields("NAMA BUKU") = Text2.Text
Adodc1.Recordset.Fields("PENULIS") = Text3.Text
Adodc1.Recordset.Fields("PENERBIT") = Text4.Text
Adodc1.Recordset.Fields("HARGA SATUAN") = Text5.Text
Adodc1.Recordset.Fields("BANYAKNYA") = Text6.Text
Adodc1.Recordset.Fields("BAHASA") = Combo1.Text
Adodc1.Recordset.Fields("TOTAL HARGA") = Text7.Text
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.Refresh
MsgBox "Data '" & Text1.Text & "' Berhasil Disimpan!", vbInformation, "Notification"
Call bersih
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Call bersih
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Delete
MsgBox "Data '" & Text1.Text & "' Berhasil Dihapus!", vbInformation, "Notification"
Call bersih
Text1.SetFocus
End Sub

Private Sub Command4_Click()
menuawal.Show
Unload Me
End Sub

Private Sub Command5_Click()
Text7.Text = Text5.Text * Text6.Text
End Sub

Private Sub Form_Load()
Text7.Enabled = False
Combo1.AddItem "Indonesia"
Combo1.AddItem "Inggris"
End Sub 
Jika masih belum jelas, lihat lebih rinci file dibawah ini.