VB .Net - Cara Memunculkan Data Jika ComboBox Di Klik

Kembali lagi di Penggunaan ComboBox pada VB .Net, kali ini akan saya bahas mengenai Cara Memunculkan Data Jika ComboBox Di Klik - Pada VB .Net. Jika sebelumnya anda telah mengikuti Tutorial sebelum ini yaitu : Memunculkan Item Tabel Database di ComboBox, maka ini adalah lanjutan dari Tutorial tersebut.

Logikanya adalah sebagai berikut :
Pertama, kita harus mempunyai database terlebih dahulu. Didalam database terdapat Tabel yang akan kita munculkan didalam Form VB .Net. Jika sudah muncul data di ComboBox maka data tersebut dimunculkan pada TextBox VB .Net lainnya.

Baiklah langsung saja kita praktikan :
Buatlah sebuah database dengan nama : DBJNM.mdb
Kemudian buat tabel dengan nama : TBL_BARANG
Design TBL_BARANG adalah sebagai berikut :

Karena nantinya akan dimunculkan data didalam TBL_BARANG, silahkan masukan sample data :

Silahkan Simpan, jika sudah selesai, kita langsung buka VB .Net anda
Buatlah Form dengan nama Form1 dan Design form seperti gambar dibawah ini :

Kemudian pada Form1, silahkan masukan koding dibawah ini :

 
Imports System.Data.OleDb
Public Class Form1
    Dim CONN As OleDbConnection
    Dim CMD As OleDbCommand
    Dim DS As New DataSet
    Dim DA As OleDbDataAdapter
    Dim RD As OleDbDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        DA = New OleDbDataAdapter("Select * from TBL_BARANG", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "TBL_BARANG")
        DataGridView1.DataSource = (DS.Tables("TBL_BARANG"))

        CMD = New OleDbCommand("select * FROM TBL_BARANG", CONN)
        RD = CMD.ExecuteReader
        Do While RD.Read
            ComboBox1.Items.Add(RD.Item(0))
        Loop

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
        Call Koneksi()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        CMD = New OleDbCommand("Select * from TBL_Barang where KodeBarang='" & ComboBox1.Text & "'", CONN)
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            TextBox1.Text = RD.Item("NamaBarang")
            TextBox2.Text = RD.Item("HargaBeli")
            TextBox3.Text = RD.Item("HargaJual")
            TextBox4.Text = RD.Item("JumlahBarang")
            ComboBox2.Text = RD.Item("SatuanBarang")
            TextBox1.Focus()
        End If
    End Sub
End Class

Silahkan anda Running atau jalankan Project VB .Net anda, berikut hasilnya :

 Demikianlah Cara Memunculkan Data Jika ComboBox Di Klik Pada VB .Net, semoga bermanfaat untuk anda :)

Read More

Mengatasi The Microsoft.Jet.OLEDB.4.0 Provider is Not Registered Pada VB .Net

Kembali di Tutorial VB .Net, sebelum saya memberikan Tutorial dibawah, saya mengucapkan banyak terima kasih kepada anda pengunjung VB .Net yang telah mengikuti Polling kami tentang "Tutorial Apa yang Anda Suka?" ternyata banyak yang memilih VB .Net, oleh karena itu saya akan banyak memberikan Tutorial tentang VB .Net.

Oke, kali ini saya akan memberikan solusi cara  Mengatasi The Microsoft.Jet.OLEDB.4.0 Provider is Not Registered on The Local Machine pada VB .Net.
Error diatas, biasanya ( Dari pengalaman saya) terjadi pada saat anda membuat sebuah aplikasi dengan VB .Net dengan menggunakan Database Access .MDB ( Office Access 2003) dan menggunakan komputer yang 64 bit.

Berikut contoh keterangan errornya :

Jika anda pernah mengalami masalah yang sama, dan anda masih belum bisa, berikut langkahnya :
Oke saya menggunakan VB .Net 2010
Silahkan Buka Project Anda

Pilih Compile
Silahkan Anda Scrole Mouse anda ke bagian bawah
Kemudian anda pilih "Advanced Compile Options"

Kemudian anda Cari Target CPU
Pilih x86

Keterangan :
Artinya, walaupun Komputer kita menggunakan OS 64bit, target Aplikasi yang kita bangun adalah OS 32bit. Jika anda menggunakan VB .Net dengan versi lain, caranya hampir sama, silahkan cari Target CPU.

Jika sudah, silahkan anda Klik OK
Kemudian yang terakhir, Run atau Jalankan Project VB .Net anda

Demikianlah Cara Mengatasi The Microsoft.Jet.OLEDB.4.0 Provider is Not Registered on The Local Machine Pada VB .Net, semoga bermanfaat untuk sobat JNM dimanapun anda berada

Read More

VB .Net - Cara Membuat Shortcut Pada Form Menu Utama

Masih di Tutorial Lengkap VB .Net bersama JavaNetMedia, kali ini akan dibahas mengenai Cara Membuat Shortcut Pada Form Menu Utama. Shortcut adalah tambahan didalam sebuah aplikasi dimana fungsinya adalah untuk mempercepat atau mempermudah pengguna Aplikasi yang akan kita buat.

Shortcut pada Aplikasi biasanya dilakukan dengan menekan tombol tertentu maka sebuah proses akan di eksekusi. Sebagai contoh pada gambar diatas, maka Jika anda Klik tombol F1 pada Keyboard maka Form Login akan muncul, sehingga user tidak perlu Klik File kemudian Klik Login, cukup satu tombol saja.

Begitulah kerja Shortcut pada sebuah aplikasi, fungsinya adalah mempermudah penggunaan aplikasi oleh user. Disini saya hanya menjelaskan cara membuatnya, bagi anda yang sedang belajar VB .Net semoga bermanfaat dan menambah ilmu VB .Net anda.

Berikut langkahnya :
Buka Aplikasi VB .Net anda, kemudian Muncul Form1 seperti gambar dibawah ini :

 Klik MenuStrip pada toolBox :

Jika sudah silahkan anda design Menu Seperti Gambar dibawah ini :

Kemudian silahkan Klik Kanan Pada : Login - Klik Properties

Pada Properties, Cari Shortcut Keys, kemudian anda bisa pilih sesuai dengan keinginan anda.
Saya menggunakan F1 pada Menu Login. F2 Pada Logout dan F3 pada Exit. Anda juga bisa mencheklist CTRL, Shift atau ALT, dimana nanti jika di setting CTRL + F1, maka akan muncul proses sesuai dengan Klik File - Login.

Silahkan sesuaikan dengan keinginan anda, yang pastinya agar mempermudah dalam penggunaan user. Demikian Cara Membuat Shortcut Pada Form Menu Utama pada VB .Net, semoga bermanfaat untuk anda :)

Read More

VB .Net - Memunculkan Item Tabel Database di ComboBox

Kembali lagi di Tutorial Visual Basic .Net atau biasa disingkat VB .Net, kali ini saya akan memberikan tentang Bagaimana Cara Memunculkan Item Database di ComboBox. Jika ingin membuat data pada combobox secara Dinamis ( Bukan Statis ) maka Combobox harus dikoneksiakan dengan Database, sehingga jika di dalam database terjadi Update maka data didalam ComboBox juga akan terjadi Update data yang bisa dipilih.

Bagi anda yang ingin memunculkan Item ComboBox namun tidak menggunakan Database (Item ComboBox Statis), anda bisa KLIK DISINI.

Berikut langkah-langkahnya dalam Memunculkan Item Database di ComboBox - VB .Net

Karena kita akan mengkoneksikan dengan database, maka kita harus membuat database terlebih dahulu.
Agar lebih mudah, kita buat saja Database dengan Office Acess.
Buatlah database dengan nama : DBJNM.mdb
Kemudina buatlah tabel dengan nama : TBL_BARANG
Design tabel barang adalah seperti gambar dibawah ini :

Karena nantinya akan dimunculkan data didalam TBL_BARANG, silahkan masukan sample data :

Silahkan Simpan, jika sudah selesai, kita langsung buka VB .Net anda
Buatlah Form dengan nama Form1 dan Design form seperti gambar dibawah ini :

Kemudian pada Form1, silahkan masukan koding dibawah ini :

 
Imports System.Data.OleDb
Public Class Form1
    Dim CONN As OleDbConnection
    Dim CMD As OleDbCommand
    Dim DS As New DataSet
    Dim DA As OleDbDataAdapter
    Dim RD As OleDbDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBJNM.mdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        DA = New OleDbDataAdapter("Select * from TBL_BARANG", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "TBL_BARANG")
        DataGridView1.DataSource = (DS.Tables("TBL_BARANG"))

        CMD = New OleDbCommand("select * FROM TBL_BARANG", CONN)
        RD = CMD.ExecuteReader
        Do While RD.Read
            ComboBox1.Items.Add(RD.Item(0))
        Loop

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
        Call Koneksi()
    End Sub
End Class

Jika sudah silahkan Running Project VB .Net anda
Hasilnya adalah sebagai berikut :

Demikianlah Proses Memunculkan Item Database di ComboBox - VB .Net, semoga bermanfaat untuk anda yang sedang belajar VB .Net :)

Read More

VB .Net - Cara Memunculkan Item Data Pada ComboBox

Kembali lagi Tutorial Visual Basic .Net bersama JavaNetMedia, kali ini kita akan membahas tentang ToolBox pada VB .Net yaitu ComboBox. Dalam mengisi data pada sebuah Form biasanya ada DropDown atau memilih salah satu pilihan dari sebuah Form. ComboBox biasanya berisi sebuah pilihan yang bisa dipilih oleh user pada sebuah Form.

Bagi anda yang sedang belajar Visual Basic .Net dan akan menggunakan ComboBox, berikut langkah dibawah adalah cara untuk mengisinya :

Buka Aplikasi VB .Net anda
Buatlah sebuah form seperti gambar dibawah ini :

Silahkan anda klik agar gambar bisa terlihat dengan jelas.
Pada Form diatas, saya memberikan ComboBox pada Level, dan pada ComboBox kami akan memberikan pilihan Level : Administrator, User, Kasir

Berikut koding untuk memunculkannya :

 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("Administrator")
        ComboBox1.Items.Add("User")
        ComboBox1.Items.Add("Kasir")
    End Sub
End Class

Kemudian silahkan anda jalankan atau Runing Project VB .Net anda
berikut hasilnya :

Demikian Tutorial VB .Net tentang Cara Memunculkan Data Pada ComboBox, semoga bermanfaat untuk anda :)

Read More

VB .Net - Validasi TextBox Hanya Bisa Diisi Oleh Angka

Kembali di Validasi pada Visual Basic .Net. Kali ini saya akan membahas cara memvalidasi TextBox hanya bisa diisi oleh huruf / tidak bisa diisi oleh angka. Fungsi ini menurut saya sangat penting, karena jika anda mempunya sebuah tabel yang data fieldnya adalah numeric dan anda ingin menginput data pada sebuah form VB .Net, maka anda harus memvalidasinya karena jika tidak maka program akan error jika anda atau user yang menggunakan aplikasi input sebuah huruf.

Fungsi validasi kali ini biasanya digunakan pada sebuah Form Transaksi, atau Form Barang. Dimana form barang biasanya terdapat input data Harga Barang atau Jumlah Barang yang diharuskan Input angka bukan Huruf.

Berikut langkahnya :
Buka Aplikasi VB .Net anda, kemudian anda buat sebuah Form.

Silahkan anda klik gambar diatas untuk lebih detail
Gambar diatas terdapat TextBox1, TextBox2, TextBox3, TextBox4.
Yang akan kita Validasi adalah TextBox3 dan TextBox4.
Karena pada TextBox tersebut kita harus menginput Angka bukan Huruf.

Untuk kodingnya seperti dibawah ini :

 Public Class Form1
 Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub
    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True
    End Sub
End Class

Sesuai penjelasan saya diatas, bahwa yang kita validasi hanya TextBox3 dan 4.
Untuk mempraktikannya silahkan anda Run atau Jalankan Project VB .Net anda

Maka jika sudah Run, anda tidak bisa memasukan Huruf pada TextBox3 dan 4.
Demikian pembahasan saya mengenai Validasi TextBox Hanya Bisa Diisi Oleh Angka semoga bermanfaat untuk anda.

Read More

VB .Net - Validasi Huruf Capital Pada TextBox

Kembali lagi di Tutorial VB .Net bersama JavaNetMedia, kali ini saya akan membahas tentang Validasi Huruf Capital Pada TextBox VB .Net. Mungkin dari anda ada yang bertanya, kenapa Huruf Capital harus di Validasi?

Fungsi ini biasanya dilakukan oleh para Programmer untuk merapikan data pada sebuah tabel. Sebagi contoh yang sering dilakukan adalah mevalidasi Kode Barang atau pengkodean lainnya dengan Huruf Capital agar ketika kita amblil sebuah laporan menjadi lebih rata dan indah dilihat.

Berikut langkah dalam membuat Vaidasi Capital Huruf pada TextBox :
Silahkan buka program VB .Net anda
Kemudian anda bisa buat sebuah Form Seperti gambar dibawah ini:

 Pada Form diatas, saya mempunyai sebuah Form Barang, dimana ada TextBox1 yang mengarah ke KodeBarang. Ceritanya KodeBarang tersebut akan saya perbolehkan atau Memvalidasi agar huruf yang diinput adalah caracter Capital.
Langkahnya, silahkan Klik TextBox1.

Kemudian pada Properties, silahkan cari CharacterCasing, kemudian ganti menjadi Upper.

Untuk membuktikannya silahkan anda Running Project anda, maka TextBox1 ketika anda input maka hasilnya Capital Semua.

Demikian Tutorial VB .Net tentang validasi yaitu Validasi Huruf Capital Pada TextBox, semoga bermnafaat untuk pembelajaran VB .Net anda :)

Read More