cara menampilkan data access mysql sqlserver ke dalam listbox dan combobox
database access (mdb) : -----------------------------------------------------
Imports System.Data.OleDb
Public Class Form2
Dim conn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Sub koneksi()
conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=db1.mdb")
conn.Open()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
koneksi()
cmd = New OleDbCommand("select * from tblbarang", conn)
dr = cmd.ExecuteReader
ComboBox1.Items.Clear()
Do While dr.Read
ComboBox1.Items.Add(dr("kode_barang") & Space(2) & dr("nama_barang"))
ListBox1.Items.Add(dr("satuan"))
Loop
End Sub
End Class
database mysql : -----------------------------------------------------------
Imports MySql.Data.MySqlClient
Public Class Form1
Dim conn As MySqlConnection
Dim da As MySqlDataAdapter
Dim ds As DataSet
Sub koneksi()
conn = New MySqlConnection("server=localhost;user=root;password=;database=absen")
conn.Open()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
koneksi()
Me.CenterToScreen()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
'da = New MySqlDataAdapter("select namadepan,namabelakang,tempatlahir from karyawan", conn)
da = New MySqlDataAdapter("select * from karyawan", conn)
ds = New DataSet
da.Fill(ds)
dgv.DataSource = ds.Tables(0)
dgv.ReadOnly = True
End Sub
End Class
database sqlserver : ------------------------------------------------------------------
Imports System.Data.SqlClient
Public Class Form2
Dim conn As SqlConnection
Dim cdm As SqlCommand
Dim dr As SqlDataReader
Sub koneksi()
conn = New SqlConnection("data source=user-pc\sqlexpress;user=sa;password=xyz;initial catalog=dbkoperasi")
conn.Open()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
koneksi()
CMD = New SqlCommand("select * from tblanggota", conn)
dr = CMD.ExecuteReader
ListBox1.Items.Clear()
ComboBox1.Items.Clear()
Do While dr.Read
ListBox1.Items.Add(dr("nama_anggota"))
ComboBox1.Items.Add(dr("alamat_anggota"))
Loop
End Sub
End Class