1. Buat Database dengan tabel ContohCB , dengan isi 3 field , masing-masing tipe data berupa Short Text
2. Buat Project baru dengan template "Windows Form Application"
3. Buat tampilan form seperti dibawah ini :
4. Click tombol Button1 sebanyak 2 kali dan isi codingan berikut :
Dim sqltambah As String = "INSERT INTO ContohCB(cb,cb2,cb3)
VALUES ('" & ComboBox1.Text & "','" &
ComboBox2.Text & "','" & ComboBox3.Text &
"')"
Dim perintah As New OleDbCommand(sqltambah, access) perintah.ExecuteNonQuery() MessageBox.Show("Item telah bertambah") ComboBox1.Text = "" ComboBox2.Text = "" ComboBox3.Text = "" |
5.Click Form1 sebanyak 2 kali dan isi codingan berikut :
ComboBox1.Items.Add("Mouse")
ComboBox1.Items.Add("Keyboard") ComboBox1.Items.Add("CPU") ComboBox2.Items.Add("Mouse") ComboBox2.Items.Add("Keyboard") ComboBox2.Items.Add("CPU") ComboBox3.Items.Add("Mouse") ComboBox3.Items.Add("Keyboard") ComboBox3.Items.Add("CPU") |
6. Selanjutnya kita memberi function didalam form tersebut , lokasi database tergantung penempatan Anda . Disini Penulis menggunakan LocalDisk D , didalam folder database1 :
Public
modul = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\database1\database1.accdb;Persist Security Info=False;"
Public Function access() As OleDbConnection
Dim conect As New OleDbConnection(modul) conect.Open() Return conect End Function |
7. Di codingan paling awal , diberi statement imports :
Imports Data.System.OleDb
|
Codingan secara menyeluruh seperti ini :
Output yang dihasilkan dapat dilihat didalam Access Anda.
Program dapat Anda download DISINI
Sekian Tutorial kali ini , Semoga Bermanfaat ya!
0 comments