28 May 2015


Sekarang kita coba menampilkan data dari tabel kategori ke dalam list combobox.

Atur layout sederhana seperti berikut:
Semudian source code di belakang form adalah sebagai berikut:
Imports System.Data.OleDb

Public Class Form1
  Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0" & _
                                 ";Data Source=latihan.accdb;" & _
                                 "Persist Security Info=False;")


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

      Dim cmd As New OleDbCommand
     
Dim adapt As New OleDbDataAdapter
     
Dim dt As New DataTable

      Try
          con.Open()

          cmd.Connection = con
          cmd.CommandText = "Select kodekategori, namakategori From kategori"

          adapt.SelectCommand = cmd
          adapt.Fill(dt)


          ComboBox1.DataSource = dt
          ComboBox1.DisplayMember = "namakategori"
          ComboBox1.ValueMember = "kodekategori"

          con.Close()
      Catch myerror As OleDbException
          MessageBox.Show("Error: " & myerror.Message)
      Finally
          con.Dispose()
      End Try
  End Sub


End Class

Coba Run:
 List akan menampilkan data kategori.


Click here if you like this article.


0 comments: