Sabtu, 10 November 2012

TIP DAN TRIK DATABASE DALAM VB.NET 2005

Buatlah form sebagai berikut :



Skenario :


1.       Pada saat form di panggil, tampilkan kode_barang di listbox1
2.     Pada saat form di panggil, tampilkan kode_barang dan nama_barang di combobox1
3.     Pada saat kode barang di listbox1 diklik, maka tampilkan :

a.    Kode_barang di textbox1
b.    Nama_barang di textbox2
c.    Harga_beli di textbox3
d.    Harga_jual di textbox4
e.    Jumlah_barang di textbox5
f.     Satuan di textbox6

4.     Pada saat data di combobox1 diklik, maka tampilkan :

a.    Kode_barang di textbox1
b.    Nama_barang di textbox2
c.    Harga_beli di textbox3
d.    Harga_jual di textbox4
e.    Jumlah_barang di textbox5
f.     Satuan di textbox6

5.   Pada saat textbox7 diketik nama_barang, maka jika data ditemukan tampilkan data tersebut ke dalam grid, jika data tidak ditemukan tampilkan pesan bahwa data tidak ada
6.     Pada saat button1 di klik, maka tampilkan seluruh data barang ke dalam grid
7.     Pada saat button1 di klik, maka tampilkan jumlah seluruh record yang ada dalam grid
8.     Pada saat button1 di klik, maka tampilkan seluruh total harga_beli yang ada dalam grid
9.     Pikirkan ide lain untuk melakukan manipulasi (mencari menampilkan) database

Jawaban :

Imports System.Data.OleDb

Public Class Form2

Dim Conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim rd As OleDbDataReader
Dim ds As DataSet
Dim cmd As OleDbCommand
Dim str As String

Sub KOneksi()
str = "provider=microsoft.jet.oledb.4.0;data source=db1.mdb"
Conn = New OleDbConnection(str)
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
End Sub

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

Call KOneksi()

cmd = New OleDbCommand("select * from barang", Conn)
rd = cmd.ExecuteReader

Do While rd.Read

ListBox1.Items.Add(rd.GetString(0))
ComboBox1.Items.Add(rd.GetString(0) & Space(5) &
rd.GetString(1))
Loop
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ListBox1.SelectedIndexChanged
cmd = New OleDbCommand("Select * from barang where
kode_barang='" & ListBox1.Text & "'", Conn)
rd = cmd.ExecuteReader
rd.Read()

If rd.HasRows Then
TextBox1.Text = rd.GetString(0)
TextBox2.Text = rd.GetString(1)
TextBox3.Text = rd.GetValue(2)
TextBox4.Text = rd.GetValue(3)
TextBox5.Text = rd.GetValue(4)
TextBox6.Text = rd.GetString(5)
End If
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
cmd = New OleDbCommand("Select * from barang where
kode_barang='" & Microsoft.VisualBasic.Left(ComboBox1.Text, 2) & "'",
Conn)
rd = cmd.ExecuteReader
rd.Read()

If rd.HasRows Then
TextBox1.Text = rd.GetString(0)
TextBox2.Text = rd.GetString(1)
TextBox3.Text = rd.GetValue(2)
TextBox4.Text = rd.GetValue(3)
TextBox5.Text = rd.GetValue(4)
TextBox6.Text = rd.GetString(5)
End If
End Sub

Sub TampilGrid()
da = New OleDbDataAdapter("Select * from barang", Conn)
ds = New DataSet
da.Fill(ds, "Barang")
DGV.DataSource = ds.Tables("Barang")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call TampilGrid()
Call CariJumlahData()
Call TotalHarga()
End Sub

Sub CariJumlahData()
TextBox8.Text = DGV.RowCount - 1
End Sub

Sub TotalHarga()
cmd = New OleDbCommand("Select sum(Harga_beli) as ketemu from
barang", Conn)
rd = cmd.ExecuteReader
rd.Read()
TextBox9.Text = rd.GetValue(0)
End Sub

Sub TampilNama()
da = New OleDbDataAdapter("select * from barang where
nama_barang like '%" & TextBox7.Text & "%'", Conn)
ds = New DataSet
da.Fill(ds, "Barang")
DGV.DataSource = ds.Tables("Barang")
End Sub

Private Sub TextBox7_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox7.GotFocus
TextBox7.Clear()
End Sub

Private Sub TextBox7_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress

If e.KeyChar = Chr(13) Then
cmd = New OleDbCommand("select * from barang where
nama_barang like '%" & TextBox7.Text & "%'", Conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
da = New OleDbDataAdapter("select * from barang where
nama_barang like '%" & TextBox7.Text & "%'", Conn)
ds = New DataSet
da.Fill(ds, "Barang")
DGV.DataSource = ds.Tables("Barang")
Call CariJumlahData()
Exit Sub
Else
MsgBox("Nama Barang tidak ditemukan")
Call TampilGrid()
End If
End If
End Sub

End Class

0 komentar:

Posting Komentar

 

© 2011 e - Tutorial | by Moeh Fitrah