Visual Basic menggunakan Database

 

Visual Basic  6.0 Menggunakan Database ( Ms.Office Acces 2007)

  

     1. Buat MDIform yang berisi menu utama dan bisa memanggil Form-Form yang ada.

     2. Buat Form untuk jenis makanan baru.

Jawaban :

Buat database Resep :

·         Jenis_Makanan

-Kode_jm – Jenis_Makanan_Baru.

·         Resep

-Id_Masakan – Jenis_Makanan – Nama_Masakan – Bahan – Cara_Memasak.

 JENIS MAKANAN

 Private Sub Command1_Click()
 Adodc1.Recordset.AddNew
    Adodc1.Recordset!jenis_makanan = tjenis.Text
    Adodc1.Recordset!Nama_Masakan = Tnama.Text
    Adodc1.Recordset!bahan = Tbahan.Text
    Adodc1.Recordset!cara_memasak = Tcara.Text
    Adodc1.Recordset.Update
    MsgBox "Data Sudah Di Simpan"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Form_Load()
Adodc1.RecordSource = "Select * From Resep"
    Adodc1.Refresh
End Sub

SCREENSHOOT 1 :

 

Secara otomatis ketika kita menginput akan masuk ke database.

Menampilkan  Jenis Makanan

Source Code :

Private Sub Command1_Click()

    Adodc1.RecordSource = "Select * From Resep where Jenis_makanan = '" & Tjenis.Text & "'"

    Adodc1.Refresh

    While Not Adodc1.Recordset.EOF

   

    Fg1.Row = baris

    Fg1.Col = 0

    Fg1.Text = baris

    Fg1.Col = 1

    Fg1.Text = Adodc1.Recordset!Nama_Masakan

   

    Adodc1.Recordset.MoveNext

    baris = baris + 1

    Wend

End Sub

Private Sub Command2_Click()

    Form3.Show

End Sub

Private Sub Fg1_Click()

    Fg1.ColWidth(0) = 500

    Fg1.ColWidth(1) = 1500

End Sub

Private Sub Form_Load()

    Fg1.Row = 0

    Fg1.Col = 0

    Fg1.Text = "No"

    Fg1.Col = 1

    Fg1.Text = "Nama_Masakan"

End Sub

SCREENSHOOT 2 :

Form ini akan menampilkan data yang ada di database.

                                                                                                               

Menu Editor

Cara membuat Menu editor :

Klik kanan pada Form  –  add MDIForm – klik kanan pada Menu editor –  Caption -  Nama

SCREENSHOOT 3 :

SCREENSHOOT 4 :

SCREENSHOOT 5 :

1.      Form Jenis makanan baru

Source Code :

Private Sub Command1_Click()

    Adodc1.Recordset.AddNew

    Adodc1.Recordset!kode_jm = Text1.Text

    Adodc1.Recordset!Jenis_makanan_baru = Text2.Text

    Adodc1.Recordset.Update

    MsgBox "Data Sudah Di Simpan"

End Sub

Private Sub Command2_Click()

    Unload Me

End Sub

Private Sub Command3_Click()

    MDIForm1.Show

End Sub

Private Sub Form_Load()

    Adodc1.RecordSource = "Select * From Jenis_makanan"

    Adodc1.Refresh

End Sub

 SCREENSHOOT 6 :

Form ini Menambahkan jenis makanan yang ada di database “ Jenis_Makanan”.

Jika Kita ingin mngabungkan seluruh Form yang ada. Maka yang harus kita lakukan 

 ,tambahkan form jenis makanan baru :