Syntax Form Load
Private Sub Form_Load()
DATA_KAMAR.DatabaseName = App.Path &
"/Langkah Pelangi Hotel.mdb"
DATA_KAMAR.RecordSource = "Data Kamar"
DATA_KAMAR.RecordsetType = 0 - Table
DATA_KAMAR.Refresh
BERSIH
Combo1.AddItem "VIP"
Combo1.AddItem "EKONOMI"
Combo1.AddItem "UMUM"
End Sub
Catatan :
DATA_KAMAR adalah name dari Data tuliskan berdasarkan
name sesunguhnya pada project anda.
Langkah Pelangi Hotel.mdb adalah nama DataBase
Data Kamar adalah nama Table
Syntax AddItem pada ComboBox berfungsi untuk memasukan item pada ComboBox.
Tidak ada komentar:
Posting Komentar