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 :

    Kode_barang di textbox1

    Nama_Barang di textbox2

    Harga_beli di textbox3

    Harga_jual di textbox4

    Jumlah_Barang di textbox5

    Satuan di textbox6

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

kode_barang di textbox1

Nama_Barang di textbox2

Harga_beli di textbox3

Harga_jual di textbox4

Jumlah_Barang di textbox5

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 :

Klik 2x pada form dan ketikan coding berikut :

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

Sub TampilGrid()

da = New OleDbDataAdapter("Select * from barang", Conn)

ds = New DataSet

da.Fill(ds, "Barang")

DGV.DataSource = ds.Tables("Barang")

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 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

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

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