Pada tutorial kali ini kita akan berguru cara untuk menambahkan item atau data database ke combo box, sehingga dikala kita menentukan data / combo box di klik, maka akan muncul daftar item / data dari database, menurut record yang kita pilih, untuk memulai tutorial ini menyerupai biasa siapkan terlebih dulu file database accessnya, di sini aku memakai format .mdb, silahkan konvert terlebih dahulu format filenya, berikut screen shootnya :
kalau sudah siap, kita mulai ke Visual Basic :
1. Jalankan VB dengan project satandar EXE
2. Tambahkan 4 label, 1 combo box dan 2 text box, kemudian atur propertiesnya menyerupai ini :
dan untuk ukuran abjad (font size), menyesuaikan, tapi disini aku setting 10
3. Jika sudah tuliskan script berikut :
'Awal Script untuk menciptakan koneksi antara vb dengan database
Dim Koneksi As New ADODB.Connection
Dim DtUser As New ADODB.Recordset
Sub Buka()
Set Koneksi = New ADODB.Connection
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database_BluesPedia.mdb"
Koneksi.CursorLocation = adUseClient
End Sub
'Akhir Script
Private Sub Form_Load()
Combo1.Clear
Call Buka
'Script untuk membuka file database
Set DtUser = New ADODB.Recordset
DtUser.Open "SELECT * FROM Data_User", Koneksi, adOpenDynamic, adLockOptimistic
Do Until DtUser.EOF
'Script untuk menambahkan item yang ada di database ke combo box
Combo1.AddItem DtUser!ID_User
DtUser.MoveNext
Loop
DtUser.Close
End Sub
Private Sub Combo1_Click()
Call Buka
Set DtUser = New ADODB.Recordset
DtUser.Open "SELECT * FROM Data_User WHERE ID_User='" & Combo1.Text & "'", Koneksi, adOpenDynamic, adLockOptimistic
DtUser.Requery
With DtUser
Combo1.Text = !ID_User
Text1.Text = !Nama
Text2.Text = !Alamat
End With
DtUser.Close
End Sub
4. Jika sudah, Jalankan program
Silahkan pilih data yang akan di tampilkan di text 1 dan 2, menurut Id user yang di pilih,
kalau sudah memilih, maka otomatis text 1 dan 2 akan menampilkan data sesuai database.
Sekian tutorial kali ini biar bermanfaat
kalau sudah siap, kita mulai ke Visual Basic :
1. Jalankan VB dengan project satandar EXE
2. Tambahkan 4 label, 1 combo box dan 2 text box, kemudian atur propertiesnya menyerupai ini :
| Tool Box | Properties | Keterangan |
| Form 1 | Star Up Position | Center Screen |
| Label 1 | Caption | (Judul) |
| Label 2 | Caption | (ID User |
| Label 3 | Text | Nama |
| Label 4 | Text | Alamat |
| Text 1 | Text | (Kosong) |
| Text 2 | Text | (Kosong) |
| Combo 1 | Text | (Kosong) |
dan untuk ukuran abjad (font size), menyesuaikan, tapi disini aku setting 10
3. Jika sudah tuliskan script berikut :
'Awal Script untuk menciptakan koneksi antara vb dengan database
Dim Koneksi As New ADODB.Connection
Dim DtUser As New ADODB.Recordset
Sub Buka()
Set Koneksi = New ADODB.Connection
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database_BluesPedia.mdb"
Koneksi.CursorLocation = adUseClient
End Sub
'Akhir Script
Private Sub Form_Load()
Combo1.Clear
Call Buka
'Script untuk membuka file database
Set DtUser = New ADODB.Recordset
DtUser.Open "SELECT * FROM Data_User", Koneksi, adOpenDynamic, adLockOptimistic
Do Until DtUser.EOF
'Script untuk menambahkan item yang ada di database ke combo box
Combo1.AddItem DtUser!ID_User
DtUser.MoveNext
Loop
DtUser.Close
End Sub
Private Sub Combo1_Click()
Call Buka
Set DtUser = New ADODB.Recordset
DtUser.Open "SELECT * FROM Data_User WHERE ID_User='" & Combo1.Text & "'", Koneksi, adOpenDynamic, adLockOptimistic
DtUser.Requery
With DtUser
Combo1.Text = !ID_User
Text1.Text = !Nama
Text2.Text = !Alamat
End With
DtUser.Close
End Sub
4. Jika sudah, Jalankan program
 |  |
Silahkan pilih data yang akan di tampilkan di text 1 dan 2, menurut Id user yang di pilih,
kalau sudah memilih, maka otomatis text 1 dan 2 akan menampilkan data sesuai database.
Sekian tutorial kali ini biar bermanfaat
Comments
Posting Komentar