1365 Views

Cara Menambah Items Combo Box Dari Database Access Di Vb.Net

logo-visual-basic

Hai.. sobat belajarhebat berjumpa lagi dengan saya, kali ini saya akan memberikan tutorial bagaimana Cara Menambah Item Combo Box Diambil Dari Database Access.

Langkah 1:

  • Buka microsoft access
  • Kilk blak database – beri nama data – creat
  • Tekan ctrl + s – beri nama tblkelas
  • Ganti field name id dengan kelas dan data format menjadi text
  • Jika sudah crl + s
  • Klik kanan pada tblkelas + klik datasheet view
  • Lalu masukkan data ke field kelas

Langkah 2:

  • Masukkan 1 combobox ke form
  • Double klik pada form
  • Lalu masukkan kode dibawah ini

Imports System.Data.OleDb

Public Class Form1

Sub Data_Record()

Try

Call Koneksi()

Tabel = New Data.OleDb.OleDbDataAdapter(“select * from tblkelas”, Database)

Data = New DataSet

Tabel.Fill(Data)

Record.DataSource = Data

Record.DataMember = Data.Tables(0).ToString()

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Sub Atur()

Call Koneksi()

Call Data_Record()

End Sub

Sub Data_Kategori()

Call Koneksi()

Tabel = New Data.OleDb.OleDbDataAdapter(“select * from tblkelas”, Database)

Data = New DataSet

Tabel.Fill(Data)

Record.DataSource = Data

Record.DataMember = Data.Tables(0).ToString()

Try

Dim a As DataRow

Combobox1.Items.Clear()

For Each a In Data.Tables(0).Rows

Combobox1.Items.Add(a.Item(0))

Next a

Catch ex As Exception

MsgBox(ex.ToString())

End Try

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call atur

Call Data_Kategori

End sub

End class

 

Mudah sekali bukan!!, nah sekian dari saya semoga bermanfaat bagi anda semua. salam HEBAT!!.

video tutorial:

Share
You can leave a response, or trackback from your own site.

Leave a Reply