Pada Kategori Visual Basic Sebelumnya Sampul Ilmu Menjelaskan Tentang Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0.
Artikel Kali ini adalah lanjutan dari artikel sebelumya dimana kita
telah membuat koneksi antara VB dengan Database Ms Accsess
Untuk Artikel Kali ini Sampul Ilmu memberikan sedikit pengetahuan tentang Cara Membuat Menu Utama Di Visual Basic
Langkah Yang Harus Anda Lakukan Adalah :
Untuk Artikel Kali ini Sampul Ilmu memberikan sedikit pengetahuan tentang Cara Membuat Menu Utama Di Visual Basic
- Buka Project ( Yang dimaksud Disini adalah Project Yang Telah Anda Buat Pada artikel Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0)
- Setelah Project Anda Telah terbuka Selanjutnya Aktifkan Form Home Kemudian Pada Properties Ubah Name Menjadi MenuUtama Dan Ubah Caption Menjadi MenuUtama
- Selanjutnya Membuat Menu Utama Caranya Clik Kanan Pada Form MenuUtama ( Yang Dimaksud Disini Adalah Form Yang Telah anda ubah namenya menjadi MenuUtama) Kemudian Pilih Menu Editor
- Pada Halaman Menu Editor Buatlah Menu File Caranya Pada Caption Ketik &File kemudian Pada Name Ketik file setelah itu Clik Next
- LangkahSelanjutnya Adalah membuat Sub Menu Caranya Pada Halaman Menu Editor Clik Tanda Panah Kekanan Maka Akan Muncul Tanda ….. Tepat Dibawah menu &File Kemudian Pada Caption Ketik &Input Data dan Pada Name ketik inpData kemudian clik Next
- Selanjutnya membuat garis tepat dibawah Sub menu &Input Data Caranya Pada Caption Ketik “-“ Tanpa Tanda Petik Dan Pada Name Ketik grs Kemudian Clik Next
- Untuk Membuat Sub Menu Keluar Caranya Sama Seperti Langkah Diatas Pada Caption ketik &Keluar Dan Pada Name Ketik Keluar Kemudian Clik OK
- Sebelum Anda Menjalakan Programnya Terlebih dahulu clik module1 ubah source code Home.show Menjadi MenuUtama. Show Seperti Contoh Dibawah ini
Global db As New ADODB.Connection
Public dbdata As ADODB.Recordset
Sub Connect()
Set dbdata = New ADODB.Recordset
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\coba.mdb"
End Sub
Sub Main()
Connect
Home.Show --------> Ubah Menjadi MenuUtama. Show
End Sub
Public dbdata As ADODB.Recordset
Sub Connect()
Set dbdata = New ADODB.Recordset
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\coba.mdb"
End Sub
Sub Main()
Connect
Home.Show --------> Ubah Menjadi MenuUtama. Show
End Sub
Menu utama yang Anda buat telah selesai untuk melihat hasilnya clik Start.
Download Tutorialnya Disini
Postingan
