...::: Selamat Datang Di Blog Putra-Jambi :::...

Rabu, 30 November 2016

VB .Net - Validasi ComboBox Tidak Bisa Di Ketik

Kembali lagi di Tutorial Visual Basic .Net di JavaNetMedia, pada tutorial kali ini saya masih membahas tentang Validasi pada Visual Basic .Net. Kali ini akan dibahas mengenai Validasi ComboBox Tidak Bisa Di Ketik. Fungsi ini untuk memvalidasi Pengguna aplikasi yang anda buat, sehingga combobox tidak bisa diisi sembarangan atau sudah disesuaikan dengan data yang sudah anda tentukan.

Oh ya sebelum anda mengikuti Validasi kali ini, apakah anda sudah bisa memunculkan data pada ComboBox pada VB .Net ? pastikan anda sudah tau ya... atau jika anda belum bisa, bisa KLIK PADA LINK INI

Oke untuk membuat validasi pada ComboBox silahkan ikuti langkah dibawah ini :
Buka Aplikasi VB .Net anda,
Silahkan buat form seperti gambar dibawah ini :

VB .Net - Validasi ComboBox Tidak Bisa Di Ketik
Silahkan klik gambar diatas agar anda lebih detail. Pada Level terdapat ComoBox1, untuk mevalidasi agar tidak bisa di ketik anda bisa Klik ComboBox1 terlebih dahulu.
VB .Net - Validasi ComboBox Tidak Bisa Di Ketik
Pilih DropDownStyle : DropDownList

Untuk membuktikannya, anda bisa Runing Project anda. Hasilnya anda sudah tidak bisa mengetik data pada ComboBox.
Demikian Validasi ComboBox Tidak Bisa Di Ketik semoga bermanfaat untuk anda :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .Net - Validasi Panjang Character Pada TextBox

Pada tutorial VB .Net kali akan dibahas tentang Validasi pada VB .Net. Dalam membuat sebuah Aplikasi atau Program kita harus Mempunyai Logika yang panjang, artinya pastikan tidak hanya bisa Input Edit dan Delete semata, namun kita harus memikirkan Validasinya.

Validasi dalam membuat Program seperti :
Validasi Level User : Validasi ini biasanya digunkan untuk hak akses user yang login pada sebuah Aplikasi. Dengan adanya Validasi ini, setiap user yang mempunyai level yang berbeda maka akan mendapatkan hak akses yang berbeda pula. Jika kita mengamati didalam sebuah aplikasi, biasanya Hak Akses administrator akan mendapatkan Full akses, namun akan berbeda dengan hak akses user dan lain-lain.

Validasi Numeric pada Text : Validasi ini biasanya digunakan sebuah TextBox yang mana field tabel berjenis numeric, dengan adanya validasi ini dimaksudkan supaya Textbox hanya bisa diisi oleh angka saja. Jika anda masukan huruf diharapkan ada Validasi sehingga tidak bisa input huruf.

Validasi diatas nantinya akan kita bahas pada Website Javanet Media tercinta ini.

Kali ini kita hanya akan membahas Validasi Panjang Character Pada TextBox.
Validasi ini digunakan, jika panjang Field didalam sebuah tabel adalah 6. Jika anda input data lebih dari 6 biasanya yang keinput 6 caracter saja atau bahkan bisa menyebabkan Program Error. Oleh karena itu perlu diberikan Validasi Panjang TextBox,

Berikut Langkahnya :
Silahkan Buka Program VB .Net anda, kemudian anda buat form seperti gambar dibawah ini :

VB .Net - Validasi Panjang Character Pada TextBox
Pada gambar diatas terdapat TextBox1, TextBox2, TextBox3, TextBox4.

Untuk Valiasi Panjang Caracter silahkan masukan koding dibawah ini :
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.MaxLength = 6
        TextBox2.MaxLength = 50
        TextBox3.MaxLength = 100
        TextBox4.MaxLength = 20
    End Sub
End Class
 Untuk angka angka diatas maksudnya panjang karakter yang akan divalidasi. Silahkan ganti angkanya sesuai dengan field tabel anda

Kemudian silahkan anda Run atau Jalankan Project. Maka hasilnya anda tidak bisa input data pada textbox1 melebihi 6 karakter. dan pada TextBox lainnya silahkan dicoba.

Demikian Validasi Panjang Character Pada TextBox pada VB .Net, semoga bermanfaat untuk anda :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Membuat Form Pencarian Data Pada DataGridView

Masih di Tutorial Visual Basic .Net Oleh JavaNetMedia, kali ini kami akan membahas tentang : Cara Membuat Pencarian Data Pada DataGridView Pada Form VB .NET. Kami informasikan juga pada Tutorial kali ini, kami menggunakan Visual basic .Net versi 2010 dan Database menggunakan SQL Server 2008.


VB .NET - Membuat Form Pencarian Data Pada DataGridView

Berikut langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI adalah seperti gambar dibawah ini :

Jika sudah silahkan Save kemudian anda bisa mengisi data seperti gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :
VB .NET - Membuat Form Pencarian Data Pada DataGridView

Pada Form1 diatas, kami menggunakan DataGridView1, Label1 dan TexBox1.
Jika sudah sesuai dengan gambar diatas, silahkan masukan koding dibawah ini ;
 
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim Cmd As SqlCommand
    Dim Rd As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Call Koneksi()
        Cmd = New SqlCommand("select * from TBL_PEGAWAI where Nama_Pegawai like '%" & TextBox1.Text & "%'", Conn)
        RD = CMD.ExecuteReader
        Rd.Read()
        If Rd.HasRows Then
            Call Koneksi()
            da = New SqlDataAdapter("select * from TBL_PEGAWAI where Nama_Pegawai like '%" & TextBox1.Text & "%'", Conn)
            ds = New DataSet
            da.Fill(ds, "ketemu")
            DataGridView1.DataSource = ds.Tables("ketemu")
            DataGridView1.ReadOnly = True
        End If
    End Sub
End Class

Dan Jika sudah selesai semuanya, silahkan Jalankan atau Run Project VB .Net anda, kemudian masukan nama yang akan anda cari pada textBox PENCARIAN DATA. maka data yang anda cari sesuai dengan data yang anda masukan...

Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda
Demikianlah Tutorial VB .NET - Membuat Form Pencarian Data Pada DataGridView Semoga bermanfaat untuk anda dimanapun berada :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Cara Membuat Kode Otomatis Di VB .NET

Pada Tutorial Visual Basic .Net kali ini, kami akan membahas tentang Cara Membuat Kode Otomatis Pada VB .Net. Kami menggunakan VB .Net versi 2010 dan Database SQL Server.


Cara Membuat Kode Otomatis Di VB .NET 2010

Berikut Langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI adalah seperti gambar dibawah ini :

Jika sudah silahkan Save kemudian anda bisa mengisi data seperti gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :
Cara Membuat Kode Otomatis Di VB .NET 2010

Pada Form1 diatas, kami memberikan Label, TextBox1, TextBox2, TextBox3, TextBox4, Button1, Button2, dan DatagridView1.

Jika sudah selesai membuat Form1 seperti gambar diatas, silahkan masukan koding dibawah ini :
 
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim CMD As SqlCommand
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox1.Enabled = False
        Button1.Text = "Input"
    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Input" Then
            Button1.Text = "Simpan"
            Call Koneksi()
            CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP in (select max(NIP) from TBL_PEGAWAI)", Conn)
            Dim urutan As String
            Dim hitung As Long
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                urutan = "NIP" + "001"
            Else
                hitung = Microsoft.VisualBasic.Right(RD.GetString(0), 3) + 1
                urutan = "NIP" + Microsoft.VisualBasic.Right("000" & hitung, 3)
            End If
            TextBox1.Text = urutan

        Else
            If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
                MsgBox("Data belum lengkap, Pastikan Semua form terisi")
                Exit Sub
            Else
                Call Koneksi()
                Dim simpan As String = "insert into TBL_PEGAWAI values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
                CMD = New SqlCommand(simpan, Conn)
                CMD.ExecuteNonQuery()
                MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
                Call KondisiAwal()
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Jika sudah, anda bisa Run atau Jalankan Project VB .Net anda, Caranya adalah :
Silahkan Klik Input, maka Tombol input akan menjadi Simpan. Kemudian pada NIP akan menjadi otomatis terisi sesuai nomor urut. Kemudian isi data dan terakhir Klik Simpan.

Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda
Demikian Tutorial VB .NET - Cara Membuat Kode Otomatis, semoga bermanfaat untuk anda dimanapun berada :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Cara Hapus Data Didalam Database

Masih di Tutorial Visual Basic .Net. Pada Tutorial kali ini kami akan membahas tentang Cara Mendelete atau menghapus Data Kedalam Database Dengan Menggunakan VB .Net 2010 dan Database SQL Server 2008.


Cara Hapus Data Didalam Database Dengan VB .Net 2010

Berikut langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI adalah seperti gambar dibawah ini :

Jika sudah silahkan Save kemudian anda bisa mengisi data seperti gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :
Cara Hapus Data Didalam Database Dengan VB .Net 2010
Pada Form1 diatas, kami menggunakan TextBox1, TextBox2, TextBox3, TextBox4, Button1, Button2, DatagridView1 dan Label

Jika sudah selesai, silahkan masukan koding dibawah ini pada Form1 :
 
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim CMD As SqlCommand
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))
        DataGridView1.ReadOnly = True
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan NIP 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim hapus As String = "delete from TBL_Pegawai where NIP='" & TextBox1.Text & "'"
            CMD = New SqlCommand(hapus, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")
            Call KondisiAwal()
        End If
    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_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        Call Koneksi()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP='" & DataGridView1.Item(0, i).Value & "'", Conn)
        RD = CMD.ExecuteReader
        RD.Read()
        If Not RD.HasRows Then
            TextBox2.Focus()
        Else
            TextBox1.Text = RD.Item("NIP")
            TextBox2.Text = RD.Item("Nama_Pegawai")
            TextBox3.Text = RD.Item("Alamat_pegawai")
            TextBox4.Text = RD.Item("Telp_Pegawai")
            TextBox2.Focus()
        End If
    End Sub
End Class

Jika sudah silahkan Run atau jalankan project VB .Net anda, kemudian untuk menghapus data, silahkan Double Klik pada DatagridView1 dan jika data sudah muncul, maka anda bisa Klik Hapus. Maka dengan Klik tersebut anda telah menghapus data pada Tabel TBL_PEGAWAI pada Database SQL Server anda...

Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Cara Edit Data Pada Database

Pada pembelajaran kali ini, kami akan membahas tentang Visual Basic .Net 2010 yaitu VB .NET - Cara Edit Data Pada Database. Database yang kami gunakan adalah menggunakan database SQL Server R2.

Berikut langkahnya :
Buka komputer anda
Buka SQL Server Management Studio.
Buatlah Database dengan nama : DBJNM
Buatlah tabel dengan nama : TBL_PEGAWAI.
Design TBL_PEGAWAI adalah seperti gambar dibawah ini :
VB .NET - Cara Edit Data Pada Database

Jika sudah silahkan Save kemudian anda bisa mengisi data seperti gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :
VB .NET - Cara Edit Data Pada Database
Pada gambar diatas, saya membuat form dengan nama Form1, kemudian terdapat DatagridView, TextBox1, TextBox2, TextBox3, TextBox4, Label, Button1 dan Button2

Jika sudah membuat form1 seperti gambar diatas, silahkan masukan koding dibawah ini :
 
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim CMD As SqlCommand
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))
        DataGridView1.ReadOnly = True
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan NIP 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim edit As String = "update tbl_pegawai set nama_pegawai='" & TextBox2.Text & "',Alamat_Pegawai='" & TextBox3.Text & "',Telp_Pegawai='" & TextBox4.Text & "' where NIP='" & TextBox1.Text & "'"
            CMD = New SqlCommand(edit, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")
            Call KondisiAwal()
        End If
    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_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        Call Koneksi()
        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
        CMD = New SqlCommand("Select * from TBL_PEGAWAI where NIP='" & DataGridView1.Item(0, i).Value & "'", Conn)
        RD = CMD.ExecuteReader
        RD.Read()
        If Not RD.HasRows Then
            TextBox2.Focus()
        Else
            TextBox1.Text = RD.Item("NIP")
            TextBox2.Text = RD.Item("Nama_Pegawai")
            TextBox3.Text = RD.Item("Alamat_pegawai")
            TextBox4.Text = RD.Item("Telp_Pegawai")
            TextBox2.Focus()
        End If
    End Sub
End Class

Jika sudah, silahkan anda run, kemudian untuk cara editnya adalah :
Silahkan Double Klik pada datagrid view1, jika sudah muncul data, silahkan edit datanya. Jika sudah selesai maka anda bisa Klik Edit.

Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda
Demikianlah Tutorial VB .NET - Cara Edit Data Pada Database., semoga bermanfaat untuk anda :)

luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Cara Input Data Kedalam Database

Kembali di Tutorial Visual Basic .Net, kali ini kami akan membahas tentang Cara Input atau Insert Data Kedalam Database Dengan Menggunakan VB .Net 2010 dan Database SQL Server 2008.


VB .NET - Cara Input Data Kedalam Database SQL Server

Berikut langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI adalah seperti gambar dibawah ini :

Jika sudah silahkan Save kemudian anda bisa mengisi data seperti gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :
VB .NET - Cara Input Data Kedalam Database SQL Server
Pada gambar diatas, saya membuat form dengan nama Form1, kemudian terdapat DatagridView, TextBox1, TextBox2, TextBox3, TextBox4, Label, Button1 dan Button2

Jika sudah membuat form1 seperti gambar diatas, silahkan masukan koding dibawah ini :
 
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim CMD As SqlCommand
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan NIP 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim simpan As String = "insert into TBL_PEGAWAI values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
            CMD = New SqlCommand(simpan, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
            Call KondisiAwal()
        End If
    End Sub
End Class

Jika sudah, silahkan Running atau jalankan Project anda

Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda
Demikian Cara Input atau Insert Data Kedalam Database Dengan Menggunakan VB .Net 2010 dan Database SQL Server 2008 Semoga bermanfaat untuk anda :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .Net - Cara Mempercantik DatgridView

Bagaimana cara mempercantik Tampilan DatagridView pada Visual Basic .Net ? Pada tutorial gratis VB .Net kali ini akan membahas tentang Cara Mempercantik Tampilan DatagridView pada VB .Net. Bagi anda programmer Visual Basic .Net yang ingin tampilan Form lebih hidup dan indah anda perlu sedikit menambahkan tampilan datagrid agar lebih nyaman dilihat oleh pengguna Aplikasi yang anda buat.

Untuk cara mempercantiknya anda bisa menggunakan 
1. Merubah Lebar Kolom Datagrid agar sesuai dengan data yang ada di tabel
2. Membuat Warna Zebra pada datagrid.

Untuk point nomor satu (1) sudah kami buatkan pada tutorial sebelumnya. anda bisa pilajari dengan KLIK LINK INI

Untuk point nomor Dua (2). anda perlu menambahkan sedikit koding lagi. sehingga kodingnya menjadi seperti dibawah ini :

Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from barang", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Barang")
        DataGridView1.DataSource = (ds.Tables("Barang"))
        DataGridView1.Columns(0).Width = 70
        DataGridView1.Columns(1).Width = 150
        DataGridView1.Columns(2).Width = 80
        DataGridView1.Columns(3).Width = 80
        DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Silver
    End Sub
End Class

Hasilnya adalah seperti gambar dibawah ini :

Note :
Untuk koding warna kuning : Digunakan untuk mengatur lebar datagrid
Untuk koding warna Orange : Digunakan untuk mengatur warna Zebra

Semoga Tutorial VB .Net diatas bermanfaat untuk anda :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .Net - Cara Mengatur Lebar DatagridView

Bagaimana cara mengatur atau mengubah Lebar DataGridView pada VB .Net? Jika anda mempunyai pertanyaan diatas, maka tutorial dibawah ini tepat untuk anda. Bagi anda programmer VB .Net yang berbasis database mungkin dipastikan anda akan menggunakan DatagridView.

Secara Default, Lebar DatagridView pada VB .Net adalah sama, jika isi pada datagrid banyak atau melebar, maka tampilan datagridview tidak bisa mengikutinya. Oleh karena itu agar tampilan Form semakin menarik dan mudah dilihat oleh pemakai aplikasi anda, anda harus mengatur Lebar DatagridView tersebut.


VB .Net - Cara Mengatur Lebar DatagridView
Untuk mempraktikannya, silahkan anda gunakan contoh atau Download Koneksi VB .Net Dengan Access 2007 (accdb) jika anda sudah menampilkan Datagrid seperti gambar diatas, anda cukup masukan koding dibawah ini. Kemudian untuk mengganti lebar datagrid sesuai keinginan anda. Silahkan ganti Angka dibawah.

Berikut kodingnya :
DataGridView1.Columns(0).Width = 70
DataGridView1.Columns(1).Width = 150
DataGridView1.Columns(2).Width = 60

Semoga bermanfaat untuk anda, ikuti terus Tutorial menarik lainnya tentang VB .Net dari kami :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Cara Koneksi Database SQL Server

Pada tutorial gratis VB .Net atau Visual Basic .Net kali ini akan dibahas mengenai Cara Koneksi Database SQL Server. Langkahnya sangat mudah, silahkan ikuti tutorial dibawah ini :

Pastikan anda telah menginstall Aplikasi dibawah ini :
1. Visual Basic .Net
2. Database SQL Server (kami menggunakan SQL Server 2008 R2)

Berikut langkanya :
No.1 - Membuat Database dan Tabel Dengan SQL Server

Buatlah Database Pada SQL Server dengan nama : DBJNM
Buatlah Tabel dengan nama : TBL_PEGAWAI dengan design tabel seperti gambar dibawah ini :
Kemudian karena nantinya kita akan mengkoneksikannya saja, maka membuat sample data pada
TBL_PEGWAI tersebut. silahkan masukan seperti contoh dibawah ini :


Jika sudah membuat langkah diatas,
No.2 - Membuat Form1 Beserta Kodingnya
Buka Visual Basic .Net anda
Buatlah Form Seperti gambar dibawah ini :

VB .NET - Cara Koneksi Database SQL Server
Pada Form diatas, hanya ditambahkan Datagridview1
Kemudian pada Form1, masukan koding dibawah ini :
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET007;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))
    End Sub
End Class

Kemudian silahkan Run atau jalankan Project VB Net anda
Hasilnya adalah seperti gambar dibawah ini :

VB .NET - Cara Koneksi Database SQL Server

Semoga bermanfaat untuk Sobat JNM, ikuti terus pembelajaran kami selanjutnya :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Cara Koneksi Database MySQL

Pada tutorial Gratis Visual Basic .Net kali ini akan dibahas mengenai : Cara Koneksi Database MySQL dengan VB .Net. Bagi anda yang akan membuat Aplikasi dengan VB .Net database MySQL.. Tutorial ini adalah tahap awal. Karena jika anda sudah bisa membuat Koneksi Database MySQL maka anda akan semakin mudah dalam membuat Aplikasi VB .Net dengan Database MySQL tersebut.

Untuk bisa mengikuti tutorial VB .Net kali ini pastikan anda sudah :
1. Install Xampp pada komputer anda
2. Install Connector Xampp ke VB yaitu ODBC versi 3.51
3. dan tentunya anda sudah menginstall Visual Basic .Net ( kami menggunakan Versi 2010 )

Berikut langkah-langkahnya :
No.1. Membuat database dan Tabel MySQL Dengan Xampp
Buatlah database dengan nama : dbjnm
Buatlah tabel dengan nama : tbl_buku
isi tabel barang tersebut dengan data seperti dibawah ini :
Jika sudah membuat langkah diatas, silahkan lanjutkan dengan langkah kedua dibawah ini :
No.2. Membuat Form1 pada VB Net 2010 dan Kodingnya
Buka Aplikasi VB Net 2010 anda
Buatlah design Form1 seperti gambar dibawah ini :
Jika sudah membuat Form1 seperti gambar diatas, silahkan masukan koding dibawah ini :
Imports System.Data.Odbc
Public Class Form1
    Dim Conn As OdbcConnection
    Dim da As OdbcDataAdapter
    Dim ds As DataSet
    Dim str As String
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) _
       Handles MyBase.Load
        Koneksi()
        da = New OdbcDataAdapter("Select * from tbl_buku", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "tbl_buku")
        DataGridView1.DataSource = (ds.Tables("tbl_buku"))
    End Sub
    Sub Koneksi()
        str = "Driver={MySQL ODBC 3.51 Driver};database=dbjnm;server=localhost;uid=root"
        Conn = New OdbcConnection(Str)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub
End Class

Silahkan Run atau Jalankan Project anda, dan berikut hasilnya :


Semoga bermanfaat untuk Sobat JNM, ikuti terus Tutorial Gratis VB .Net kami lainnya....
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .Net - Cara Koneksi Database Access (.accdb)

Pada Tutorial Gratis VB .Net kali akan dibahas mengenai cara membuat koneksi database Access .accdb. Database Access .accdb ini bisa anda gunakan dalam Micorosoft Office Access 2007 keatas. atau jika anda menggunakan Office Access versi 2010 atau 2013 pun bisa menggunakan tutorial ini. Caranya sangat mudah, anda cukup mengikuti tutorial dibawah dan langsung di praktikan pada komputer atau laptop anda

Berikut langkahnya :
No.1 Membuat Database dan Tabel Menggunakan Access 2007 atau 2010 atau 2013
Seperti yang sudah kami informasikan diatas, anda harus membuat database dengan Access.
Nama Database : DBJNM.accdb
Buatkah tabel dengan Nama : SISWA
Design Tabel SISWA seperti gambar dibawah ini :



NO.2 Membuat Form Dengan Kodingnya
Jika anda sudah membuat database dan tabel, kini saatnya anda membuat form dan koding dengan VB .Net
Buka VB .Net anda
Jika sudah muncul Form1, silahkan design Form1 seperti gambar dibawah ini :
VB .Net - Cara Koneksi Database Access (.accdb)
Pada gambar diatas, hanya ditambahkan DataGridView

Kemudian masukan koding dibawah ini pada Form1
Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from SISWA", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "SISWA")
        DataGridView1.DataSource = (ds.Tables("SISWA"))
    End Sub
End Class 
Note :
Jangan lupa, database DBJNM.accdb di pindahkan ke Folder Bin\Debug Project VB .Net anda
Jika sudah silahkan jalankan Project anda, gambar dibawah adalah hasil jika anda running project VB .Net amda.

VB .Net - Cara Koneksi Database Access (.accdb)
Silahkan KLIK DISINI untuk mendownload Tutorial Diatas
Hasil dari tutorial diatas adalah seperti gambar diatas. Semoga bermanfaat untuk anda :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

VB .NET - Cara Koneksi Database Access (.mdb)

NO.1 Membuat Project Baru VB 2010 dan Menyimpannya
Pastikan anda sudah Install Visual Basic 2010 pada komputer anda,
Klik Start pada Windows
All Programs

VB .NET - Cara Koneksi Database Access (.mdb)
Klik Microsoft Visual Basic 2010 Express
Klik File - New - Project
Maka akan muncul :
Klik OK
Maka akan keluar Form1 (lihat gambar diatas)

NO.2 - Membuat Database Access 2003 , Tabel Barang dan menyimpannya pada Bin / Debug
Buatlah sebuah database dengan nama : DBJNM.mdb
Buatlah sebuah Tabel dengan Nama : Barang
Silahkan Design Tabel Barang dan Isi Tabel Barang tersebut sesuai gambar dibawah ini :
Setelah selesai, simpan pada folder Bin / Debug

NO.3  Design Form, Masukan Koding dan Jalankan Program
Buatlah sebuah Form seperti gambar dibawah
VB .NET - Cara Koneksi Database Access (.mdb)
Masukan Koding dibawah ini :
Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from barang", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Barang")
        DataGridView1.DataSource = (ds.Tables("Barang"))
    End Sub
End Class

Jika sudah semua, silahkan run atau jalankan Proect VB .Net anda
Hasilnya adalah seperti gambar dibawah ini :
VB .NET - Cara Koneksi Database Access (.mdb)

Silahkan KLIK DISINI Untuk mendownload Tutorial diatas
Semoga bermanfaat, ikuti terus pembelajaran dari kami :)
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

Percabangan If Clause Tiga Kondisi VB.NET

Berikut ini kami akan bahas mengenai Percabangan If Clause Tiga Kondisi Pada VB.NET.
anda bisa mengikuti tutorial kami sebelumnya yaitu :



Tiga atau Lebih Kondisi : IF .. THEN .. ELSEIF ...
Setelah kita mengetahui satu kondisi, dua kondisi. Sekarang kita akan lebih lanjut memahami tiga
atau lebih kondisi. Sama seperti satu dan dua kondisi sebelumnya yaitu jika pada kondisi pertama kita
sudah menemukan yang cocok maka code result langsung dieksekusi dan kondisi yang lain diabaikan.
Namun jika belum sesuai maka akan memeriksa kondisi selanjutnya sampai Else andaikan belum
ditemukan.


Sintaks:

If [kondisi] Then   [Result]   ...ElseIf [kondisi] Then   [Result]   ...Else   [Result]   ...End If

 Contoh:
UI:
Code:
Public Class Form1    Private Sub Form1_Load(ByVal sender As System.Object, _       ByVal e As System.EventArgs) Handles MyBase.Load        TextBox1.Text = 0        Button1.Text = "Show Result!"        Label1.Text = "[result]"    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, _       ByVal As System.EventArgs) Handles Button1.Click        If CSng(TextBox1.Text) >= 80 Then            Label1.Text = "Nilai A"        ElseIf CSng(TextBox1.Text) >= 70 Then            Label1.Text = "Nilai B"        ElseIf CSng(TextBox1.Text) >= 60 Then            Label1.Text = "Nilai C"        ElseIf CSng(TextBox1.Text) >= 50 Then            Label1.Text = "Nilai D"        Else            Label1.Text = "Nilai E"        End If    End SubEnd Class
Runtime:

Bagaimana, mudah bukan? ayooo ikuti terus pembelajaran selanjutnya....
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

Percabangan If Clause Dua Kondisi VB.NET

Dibawah ini akan kami jelaskan mengenai Percabangan If Clause Dua Kondisi VB.NET, anda bisa langsung praktik pada komputer anda agar bisa dipahami dengan baik.

Dua Kondisi : IF .... THEN .. ELSE....
Jika satu kondisi terpenuhi maka code result akan dieksekusi dan jika tidak maka akan mencari
code lain untuk dieksekusi.


Sintaks :

If [kondisi] Then    [Result]   ...Else   [Result]   ...End If


Contoh:
UI:

Code:
  Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, _
     ByVal As System.EventArgs) Handles MyBase.Load
      Button1.Text = "Apply Format"
      CheckBox1.Text = "Red Font"
      CheckBox2.Text = "Lightened"
      Label1.Text = "SAMPLE TEXT"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal As System.EventArgs) Handles Button1.Click
      If CheckBox1.Checked = True Then
         Label1.ForeColor = Color.Red
      Else
         Label1.ForeColor = Color.Black
      End If
      If CheckBox2.Checked = True Then
         Label1.BackColor = Color.Yellow
      Else
         Label1.BackColor = Color.FromKnownColor(KnownColor.Control)
      End If
  End Sub
End Class
  Private Sub Form1_Load(ByVal sender As System.Object, _     ByVal As System.EventArgs) Handles MyBase.Load      Button1.Text = "Apply Format"      CheckBox1.Text = "Red Font"      CheckBox2.Text = "Lightened"      Label1.Text = "SAMPLE TEXT"  End Sub
  Private Sub Button1_Click(ByVal sender As System.Object, _     ByVal As System.EventArgs) Handles Button1.Click      If CheckBox1.Checked = True Then         Label1.ForeColor = Color.Red      Else         Label1.ForeColor = Color.Black      End If      If CheckBox2.Checked = True Then         Label1.BackColor = Color.Yellow      Else         Label1.BackColor = Color.FromKnownColor(KnownColor.Control)      End If  End SubEnd Class

Runtime:


Sangat menarik kan.. ikuti terus pembelajaran kami selanjutnya........
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com

Percabangan If Clause Satu Kondisi VB.NET

Dalam membuat Program atau Aplikasi pasti anda akan menggunakan IF, baik menggunakan VB NET atau Bahasa Pemograman yang lain. Dibawah ini akan kami jelaskan mengenai penggunaan IF pada VB Net dan anda bisa langsung mempraktikannya :

Satu Kondisi : IF ... THEN ...
Pada kondisi ini jika kondisi satu terpenuhi maka code result akan dijalankan atau dieksekusi. Namun
jika tidak memenuhi kondisi maka tidak ada yang dieksekusi.

Sintaks:


If [kondisi] Then [Result]

(2 atau lebih baris result)
If [kondisi] Then    [Result]   [Result]   ...End If

 Contoh:
 UI:
Code :
  Public Class Form1
  Dim As Integer

  Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal As System.EventArgs) Handles Button1.Click
      If i < 10 Then
          i = i + 1
          Label1.Text = i
      End If
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
      ByVal As System.EventArgs) Handles Button2.Click
      If i > 0 Then i = i - 1 : Label1.Text = i
  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
      i = 0
      Label1.Text = i
      Button1.Text = "Tambah (+)"
      Button2.Text = "Kurang (-)"
  End Sub

End Class
  Dim As Integer
  Private Sub Button1_Click(ByVal sender As System.Object, _      ByVal As System.EventArgs) Handles Button1.Click      If i < 10 Then          i = i + 1          Label1.Text = i      End If  End Sub
  Private Sub Button2_Click(ByVal sender As System.Object, _      ByVal As System.EventArgs) Handles Button2.Click      If i > 0 Then i = i - 1 : Label1.Text = i  End Sub
  Private Sub Form1_Load(ByVal sender As System.Object, _      ByVal e As System.EventArgs) Handles MyBase.Load      i = 0      Label1.Text = i      Button1.Text = "Tambah (+)"      Button2.Text = "Kurang (-)"  End Sub
End Class
Runtime :
Silahkan anda coba di komputer anda, dan ikuti terus pembelajaran kami selanjutnya...
luvne.com resepkuekeringku.com desainrumahnya.com yayasanbabysitterku.com