Selamat malam teman,.. di malam
yang sunyi ini ditemani rembulan yang indah seindah wajah ibukku,hehehe saya
mau berbagi tutorial lagi semoga bermanfaat bagi newbie*seperti saya* yang
membutuhkan pencerahan :D bagi para mastah cukup simak aja ya mohon maap lahir
dan batin kalau ada salah..*hayaa kagag nyambung*:D ok,pembahasan saya kali ini
adalah cara menampilkan data di database ke combobox,.. ok karna saya tidak
bisa mengarang kata-kata lagi langsung ekskusi aja ya teman,... cekidott .. :D
Sediakan form misalnya seperti ini
:
Dengan Properti :
Nama Kontrol
|
Values
|
Keterangan
|
Combobox
|
cmbno
|
Combobox untuk nomor penjualan
|
Datagridview
|
DataGridView1
|
Datagridview untuk menampilkan data yang dipanggil
dari no.penjualan
|
Source code untuk menampilkan data kecombobox (cmbno)
Private Sub
Frmrincianpenjualan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
cmbno.Focus()
Dim SQL As String
SQL =
"select no_transaksi from tb_penjualanheader"
Dim mycomm As OdbcCommand
Dim rd As OdbcDataReader
mycomm = New OdbcCommand(SQL,
conn.Open)
rd =
mycomm.ExecuteReader
Do While rd.Read
cmbno.Items.Add(rd("no_transaksi"))
Loop
End Sub
Ini source code untuk menampilkan data ke datagrid
berdasarkan no.penjualan
Sub aturtabel()
DataGridView1.Columns(0).Width = 100
DataGridView1.Columns(1).Width = 250
DataGridView1.Columns(2).Width = 100
DataGridView1.Columns(3).Width = 100
DataGridView1.Columns(4).Width = 100
End Sub
Sub ambil(ByVal
strnomer As String)
Dim StrS1 As String = "select
kdbarang as ` Kode Barang` ,nama as ` Nama Barang`,hargajual as ` Harga Barang`,qty
as ` Jumlah`,total as ` Total` from tb_penjualandetail where no_transaksi like '%" & strnomer & "%' "
DataGridView1.DataSource = getData(StrS1)
aturtabel()
End Sub
Private Function
getData(ByVal strSQL As
String) As DataView
Dim SelectQtry = strSQL
Dim SampleSource As New DataSet
Dim TableView As DataView
Try
Dim SampleCommand As New OdbcCommand()
Dim SampleDataApdater = New
OdbcDataAdapter()
SampleCommand.CommandText = SelectQtry
SampleCommand.Connection = conn.Open
SampleDataApdater.SelectCommand = SampleCommand
SampleDataApdater.Fill(SampleSource)
TableView = SampleSource.Tables(0).DefaultView
Catch ex As Exception
Throw ex
End Try
Return TableView
End Function
Di panggil di cmdno ya....
Private Sub
cmbno_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
cmbno.SelectedIndexChanged
ambil(Trim(cmbno.Text))
End Sub
Semoga Bermanfaat :)
Menampilkan Data dari Database ke Combobox