Membuat Login Case Sensitive Pada Visual Basic

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Cara Mudah Membuat Login Case Sensitive Pada Visual Basic. Mungkin ada diantara anda yang masih bertanya apa itu Case Sensitive ? Case sensitive adalah suatu metode pembedaan penulisan huruf kecil dan besar ( kapital ). Fungsi ini biasa terdapat dalam prosedur pengetikan password atau struktur bahasa pemrograman tertentu. disini akan kita terapkan dalam bahasa pemograman Visual Basic.

Bagi anda yang sudah mempraktikan dalam membuat form login Aplikasi Penjualan dengan VB .NET, maka jika anda login dengan menggunakan Huruf kecil maupun huruf besar ( Kapital ) maka tidak ada pengaruhnya. Dengan kata lain, asal password login benar, anda tidak perlu memusingkan huruf besar atau kecil didalam database. Namun jika anda ingin aplikasi anda lebih secure, maka kami sarankan anda menggunakan metode case sensitive.

Metode case sensitive memang diperuntukan security yang lebih detail sehingga aplikasi lebih aman dari orang-orang yang iseng login dengan akun anda.
Jika anda menggunakan database SQL Server, maka anda bisa melakukan atau setting pada SQL Server itu sendiri. Anda bisa mempraktikannya yaitu dengan :

Silahkan login ke Database SQL Server anda
Kemudian pilih database yang sudah anda buat.
Sebagai contoh didalam tabel : TBL_ADMIN terdapat field : KodeAdminm, NamaAdmin, PasswordAdmin dan LevelAdmin.

Jika anda ingin password case Sensitive silahkan anda pilih atau Klik PasswordAdmin
Kemudian pada Column Properties silahkan cari collation
Pilih Windows Collation
dan Checklist Case Sensitive seperti gambar dibawah :

Membuat Login Case Sensitive Pada Visual Basic .NET
Jika sudah silahkan Klik OK

Link Tutorial di Youtube :

https://www.youtube.com/watch?v=UyE-ZHN2N0Y


Untuk mempraktikannya silahkan lakukan praktek login seperti aplikasi Penjualan yang sudah saya buatkan tutorialnya pada web javanetmedia ini. kemudian silahkan login dengan mengganti huruf kecil maupun besar. Jika tidak sama dijamin anda bisa login ke Aplikasi anda :)

Demikian Cara Membuat Login Case Sensitive Pada Visual Basic, semoga bermanfaat untuk anda.

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Source Code Contoh From Transaksi Penjualan VB .NET

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Pada tutorial kali ini saya akan memberikan Logika dalam Membuat Form Transaksi Penjualan pada VB .NET. Koding form transaksi memang biasanya lebih panjang dari form master lainnya. Karena pada form transaksi lebih kompleks dan banyak yang harus di kendalikan pada Dataridview Visual Basic .NET agar form transaksi ini berjalan dengan semestinya.

Hasil dari from transaksi penjualan adalah seperti gambar dibawah ini :
Download Source Code Contoh From Transaksi Penjualan VB .NET
Bagaimana apakah anda tertarik untuk membuat Form transaksi diatas?

Berikut langkahnya :
Silahakn buka VB .NET anda
Bautlah sebuah project VB .NET
Jika sudah muncul Form1, silahkan design form1 seperti gambar dibawah ini :
Download Source Code Contoh From Transaksi Penjualan VB .NET
Pada gambar diatas terdapat :
DataGridView yang diganti namanya menjadi : dgvData
Button Tambah : btnAdd
Button Hapus : btnRemove
Label Total
dan TexBox : txtSumTotal

JIka sudah selesai membuat Form seperti gambar diatas,
Silahkan Masukan Koding pada Form1 dibawah ini : 

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
        Me.Text = "Contoh Form Transaksi Penjualan - www.javanetmedia.com"
        txtSumTotal.Text = "0.00"
        SetupGridView()
        Dim row As String() = New String() {1, "BRG0001", "Nama Barang 1", 1, 0.0, 0.0}
        ' Add First Row
        dgvData.Rows.Add(row)
        ' Focus
        dgvData.Focus()
        dgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3)
        ' / Summary Cell Index = 5
        CalSumTotal()
    End Sub

    ' / --------------------------------------------------------------------------------
    Private Sub SetupGridView()
        With dgvData
            .RowHeadersVisible = False
            .AllowUserToAddRows = False
            .AllowUserToDeleteRows = False
            .AllowUserToResizeRows = False
            .MultiSelect = False
            .ReadOnly = False
            ' Columns Specified
            dgvData.ColumnCount = 6
            dgvData.Columns(0).Name = "No"
            'dgvData.Columns(0).Visible = False  ' Don't show Primary Key
            dgvData.Columns(1).Name = "Kode_Barang"
            dgvData.Columns(2).Name = "Nama_barang"
            dgvData.Columns(3).Name = "Jumlah"
            dgvData.Columns(3).ValueType = GetType(Integer)
            dgvData.Columns(4).Name = "Harga"
            dgvData.Columns(4).ValueType = GetType(Double)
            dgvData.Columns(5).Name = "Total"
            dgvData.Columns(5).ValueType = GetType(Double)
            ' Hidden column index 0 ... It's Primary Key for DataBase
            .Columns("No").Visible = True ' False
            .Columns("Kode_Barang").HeaderText = "Kode_Barang"
            .Columns("Nama_Barang").HeaderText = "Nama_Barang"
            .Columns("Jumlah").HeaderText = "Jumlah"
            .Columns("Harga").HeaderText = "Harga"
            ' Total Column
            With .Columns("Total")
                .HeaderText = "Total"
                .ReadOnly = True
                .DefaultCellStyle.BackColor = System.Drawing.Color.LightGoldenrodYellow
                .DefaultCellStyle.ForeColor = System.Drawing.Color.Red
                .DefaultCellStyle.Font = New Font(dgvData.Font, FontStyle.Bold)
            End With
            ' Adjust Column width
            .Columns(0).Width = 35
            .Columns(1).Width = dgvData.Width \ 5
            .Columns(2).Width = dgvData.Width \ 5
            .Columns(3).Width = dgvData.Width \ 5 - 20
            .Columns(4).Width = dgvData.Width \ 5 - 20
            .Columns(5).Width = dgvData.Width \ 5 ' + 2
            ' Header Own Style
            With .ColumnHeadersDefaultCellStyle
                .BackColor = Color.Navy
                .ForeColor = Color.White
                .Font = New Font(dgvData.Font, FontStyle.Bold)
            End With
            ' Alignment only columns 3 to 5
            For i As Byte = 3 To 5
                ' Header Alignment
                .Columns(i).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
                ' Cell Alignment
                .Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            Next
        End With
    End Sub

    ' / --------------------------------------------------------------------------------
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        With dgvData
            .Width = Me.Width - 22
        End With
        txtSumTotal.Left = Me.Width - (txtSumTotal.Width + 20)
        Label1.Location = New Point(txtSumTotal.Left - Me.Label1.Width, txtSumTotal.Top + 3)
    End Sub

    ' / --------------------------------------------------------------------------------
    ' / Add new row
    Private Sub btnAddRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim Position As Integer = dgvData.Rows.Count - 1
        Dim LastRow = (From Items In dgvData.Rows.Cast(Of DataGridViewRow)() Select Items).ElementAt(Position)

        Dim PK As Long = LastRow.Cells(0).Value + 1
        Dim row As String() = New String() {PK, "BRG000" & PK, "Nama Barang " & PK, 1, 0.0, 0.0}
        dgvData.Rows.Add(row)
        ' Focus
        dgvData.CurrentCell = dgvData.Rows(dgvData.RowCount - 1).Cells(3)
        dgvData.Focus()
        ' /
        CalSumTotal()
    End Sub

    ' / --------------------------------------------------------------------------------
    ' / Remove selected row
    Private Sub btnDelRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.Click
        If dgvData.RowCount = 1 Then Exit Sub
        dgvData.Rows.Remove(dgvData.CurrentRow)
        dgvData.Refresh()
        ' / 
        CalSumTotal()
    End Sub

    ' / --------------------------------------------------------------------------------
    ' / Calcualte sum of Total (Column Index = 5)
    Private Sub CalSumTotal()
        txtSumTotal.Text = "0.00"
        For i As Byte = 0 To dgvData.RowCount - 1
            ' CDbl = Convert to Double
            txtSumTotal.Text = CDbl(txtSumTotal.Text) + CDbl(dgvData.Rows(i).Cells(5).Value)
        Next
        txtSumTotal.Text = Format(CDbl(txtSumTotal.Text), "#,##0.00")
    End Sub

    ' / --------------------------------------------------------------------------------
    ' / Before Edit Data
    Private Sub dgvData_CellBeginEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles dgvData.CellBeginEdit
        Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
        Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
        dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
        ' / 
        CalSumTotal()
    End Sub

    ' / --------------------------------------------------------------------------------
    ' / After you press Enter
    Private Sub dgvData_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit

        Select Case e.ColumnIndex
            Case 3, 4 ' Column Index = 3 (Quantity), Column Index = 4 (UnitPrice)
                ' Quantity
                ' If Null Value
                If IsDBNull(dgvData.Rows(e.RowIndex).Cells(3).Value) Then dgvData.Rows(e.RowIndex).Cells(3).Value = 0
                Dim Quantity As Integer = dgvData.Rows(e.RowIndex).Cells(3).Value
                ' Keep original value in temporary. (Tag Properties)
                dgvData.Tag = Quantity
                If Quantity <= 0 Then
                    dgvData.Rows(e.RowIndex).Cells(3).Value = dgvData.Tag
                    Quantity = dgvData.Tag
                End If

                ' UnitPrice
                ' If Null Value
                If IsDBNull(dgvData.Rows(e.RowIndex).Cells(4).Value) Then dgvData.Rows(e.RowIndex).Cells(4).Value = 0.0
                Dim UnitPrice As Double = dgvData.Rows(e.RowIndex).Cells(4).Value
                dgvData.Tag = UnitPrice
                If UnitPrice < 0 Then
                    dgvData.Rows(e.RowIndex).Cells(4).Value = dgvData.Tag
                    UnitPrice = dgvData.Tag
                End If
                ' Quantity x UnitPrice
                dgvData.Rows(e.RowIndex).Cells(5).Value = (Quantity * UnitPrice).ToString("#,##0.00")
                CalSumTotal()
        End Select
    End Sub

    ' / --------------------------------------------------------------------------------
    Private Sub dgvData_EditingControlShowing(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
        Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Name
            ' / Can use both ColumeIndex or Field Name
            Case "Quantity", "UnitPrice"
                RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
                AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
        End Select
    End Sub

    ' / --------------------------------------------------------------------------------
    Private Sub ValidKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tb As TextBox = sender
        Select Case dgvData.CurrentCell.ColumnIndex
            Case 3  ' Quantity is Integer
                Select Case e.KeyChar
                    Case "0" To "9"   ' digits 0 - 9 allowed
                    Case ChrW(Keys.Back)    ' backspace allowed for deleting (Delete key automatically overrides)
                    Case ChrW(Keys.Delete)  ' Delete key

                    Case Else ' everything else ....
                        ' True = CPU cancel the KeyPress event
                        e.Handled = True ' and it's just like you never pressed a key at all
                End Select

            Case 4  ' UnitPrice is Double
                Select Case e.KeyChar
                    Case "0" To "9"
                        ' Allowed "."
                    Case "."
                        ' can present "." only one
                        If InStr(tb.Text, ".") Then e.Handled = True

                    Case ChrW(Keys.Back)
                    Case ChrW(Keys.Delete)
                    Case Else
                        e.Handled = True

                End Select
        End Select
    End Sub
    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
        Application.Exit()
    End Sub
End Class
Jika sudah silahkan anda Save dan Jalankan Project VB .NET anda

Demikian Source Code Contoh From Transaksi Penjualan VB .NET, semoga bermanfaat untuk anda
Silahkan KLIK DISINI untuk download Project diatas

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Membuat Form Loding Dengan Visual Basic .NET

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Kembali di tutorial Visual Basic .NET bersama Javanetmedia.com pada bab atau tutorial kali ini saya akan memberikan tutorial mengenai Form Loading pada VB .NET. Apa itu form Loading?
Sebenarnya form loading ini hanya Gaya-gaya an atau untuk mempercantik sebuah program agar terlihat lebih bagus atau lebih profesional. Dengan adanya form loading ini diharapkan Aplikasi yang anda buat akan lebih hidup dan lebih ada efek teknologinya :)


Form Loading biasanya digunakan pada saat membuka aplikasi atau setelah input data form Login atau pada saat load form tertentu ( tergantung kebutuhan )

Berikut langkah dalam membuat form Loading dengan VB .NET.

Silahkan buat sebuah Project dengan Visual Basic .NET
Buat lah dua buah form (minimal 2 Form)
2 Form disini yang 1 digunakan untuk form loading dan satunya digunakan untuk form setelah loading.
Jadi jalannya aplikasi adalah, ketika Project di run, maka form loading akan muncul, kemudian jika loading sudah selesai maka form2 akan muncul.
Nantinya jika anda sudah berhasil maka anda bisa gunakan pada Aplikasi VB .NET yang anda buat.

Cara Membuat Form Loding Dengan Visual Basic .NET
Pada Form1 diatas, silahkan buat form seperti diatas :
Masukan : Label1, ProgressBar1, dan Timer1

Agar tampilan lebih bagus, silahkan Klik Form1
Kemudian di Properties, pada formBorderStyle silahkan pilih None
Gambarnya adalah sebagai berikut :
Cara Membuat Form Loding Dengan Visual Basic .NET
dan Berikut Hasilnya :
Cara Membuat Form Loding Dengan Visual Basic .NET
Kemudian silahkan masukan koding dibawah ini pada Form1 :
Public Class Form1

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        Label1.Text = ProgressBar1.Value & ("%")
        If ProgressBar1.Value = 100 Then
            Me.Hide()
            Form2.Show()
            Timer1.Stop()

        End If
    End Sub
End Class

Silahkan Save dan Jalankan Project anda.
Untuk Form2 tidak perlu anda beri koding, form2 akan muncul ketika loading selesai atau sudah 100 persen.

Demikian tutorial dalam Membuat Form Loding Dengan Visual Basic .NET, semoga bermanfaat untuk anda.
Sillahkan KLIK DISINI untuk download project diatas.

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Membuat CRUD VB .Net Database SQL Server

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Membuat Aplikasi CRUD ( Create, Read, Update, Delete ) Visual Basic .Net Database SQL Server. Pada tutorial VB .NET kali ini saya akan melanjutkan Tutorial CRUD menggunakan VB .NET. Pada Tutorial sebelumnya saya sudah memberikan pembelajaran CRUD VB .Net database Access dan MySQL. Bagi anda yang sedang membuat Aplikasi VB .NET dan Database SQL Server maka tutorial kali ini adalah dasar dalam membuat sebuah Aplikasi. Fungsi ini sangat penting karena nantinya anda bisa Input, Edit dan Delete di dalam Form VB .NET yang datanya tersimpan di database SQL Server.

Untuk bisa mengikuti tutorial ini pastikan :
  1. Anda sudah install Visual Basic .NET ( Jika belum punya, silahkan download disini )
  2. Anda sudah install SQL Server ( Jika belum punya anda bisa download disini )
Cukup 2 syarat diatas yang perlu anda install di Komputer anda.

Selanjutnya, konsep dasarnya adalah : Kita buat Database dan Tabel pada SQL Server, mengkoneksikan database ke VB .NET, Kemudian Membuat Input, Edit dan Delete data.

Link Video di Youtube :

https://www.youtube.com/watch?v=CHfaBSwlXyU

#1. Membuat Database dan Tabel SQL Server

Silahkan buka database SQL Server anda
Buatlah database dengan nama : JNM_CRUD
Buatlah Tabel dengan nama : TBL_MAHASISWA
Field Tabelnya adalah : NIM, NamaMahasiswa, JenisKelamin, AlamatMahasiswa dan TeleponMahasiswa.

Untuk membuat TBL_MAHASISWA dengan Koding, Silahkan gunakan Query dibawah : 
use [DBTM]
CREATE TABLE [dbo].[TBL_MAHASISWA](
 [NIM] [varchar](6) NOT NULL,
 [NamaMahasiswa] [varchar](100) NULL,
 [JenisKelamin] [varchar](20) NULL,
 [AlamatMahasiswa] [varchar](100) NULL,
 [TeleponMahasiswa] [varchar](20) NULL,
 CONSTRAINT [PK_TBL_MAHASISWA] PRIMARY KEY CLUSTERED 
(
 [NIM] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

Dengan langkah diatas anda telah sukses membuat Database dan Tabel SQL Server

#2. Membuat Form VB .NET dan Input Data

Selanjutnya setelah anda sukses membuat Database dan Tabel, kita akan input data menggunakan Form Visual Basic .NET.
Silahkan buka aplikasi Visual Basic .NET
Kemudian jika sudah muncul Form1, silahkan buat design Form1 seperti gambar dibawah ini :
Membuat CRUD VB .Net Database SQL Server

Dari Gambar diatas terdapat : Label1 sampai Label 5, TextBox1 sampaiTextBox4, ComboBox1, Button1 sampai Button4, dan DataGrudView1

Jika sudah membuat form diatas, dan sebelum membuat koding input. silahkan memunculkan tabel TBL_MAHASISWA dan Munculkan di DataGridView1

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=JNM_CRUD;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_MAHASISWA", Conn)
        Ds = New DataSet
        Ds.Clear()
        Da.Fill(Ds, "TBL_MAHASISWA")
        DataGridView1.DataSource = (Ds.Tables("TBL_MAHASISWA"))
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        ComboBox1.Text = ""
        ComboBox1.Items.Clear()
        ComboBox1.Items.Add("PRIA")
        ComboBox1.Items.Add("WANITA")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    End Sub
End Class

Dengan koding diatas, maka Kondisi Awal semua Form dalam keadaan Kosong dan Sudah terjadi koneksi TBL_MAHASISWA kedalam DataGridView1

Link Video di Youtube :

https://www.youtube.com/watch?v=CHfaBSwlXyU


Penampakannya adalah seperti gambar dibawah ini :

Membuat CRUD VB .Net Database SQL Server
Koding Input Data :
Silahkan Double Klik Tombol Input, dan masukan koding dibawah ini :
    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 = "" Or ComboBox1.Text = "" Then
            MsgBox("Silahkan Isi Semua Form")
        Else
            Call Koneksi()
            Dim simpan As String = "insert into TBL_MAHASISWA values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
            Cmd = New SqlCommand(simpan, Conn)
            Cmd.ExecuteNonQuery()
            MsgBox("Input data berhasil")
            Call KondisiAwal()
        End If
    End Sub

Untuk Membuktikan bisa Input, silahkan anda Run atau Jalankan Project VB .NET anda

#3. Edit Data VB .NET Database SQL Server

Jika Input data sudah berhasil maka kita akan melanjutkan dalam Edit Data didalam Database.
Sebelum anda membuat koding di Tombol Edit, maka anda harus memunculkan data yang akan anda update terlebih dahulu.
Berikut kodingnya :
    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            Cmd = New SqlCommand("Select * From TBL_MAHASISWA  where NIM='" & TextBox1.Text & "'", Conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("NIM Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("NamaMahasiswa")
                TextBox3.Text = RD.Item("AlamatMahasiswa")
                TextBox4.Text = RD.Item("TeleponMahasiswa")
                ComboBox1.Text = RD.Item("JenisKelamin")
                TextBox2.Focus()
            End If
        End If
    End Sub

Arti koding diatas :
Silahkan masukan NIM pada TextBox1, jika sudah memasukan NIM maka silahkan tekan ENTER pada Keyboard
Jika NIM pada TextBox1 tidak ada databnya, maka munculkan MsgBox 
Jika NIM pada TextBox1 terdapat pada TBL_MAHASISWA maka munculkan data Mahasiswa

Jika sudah muncul data mahasiswa, silahkan anda edit data, Contoh Nama diganti dengan benar. Jika sudah masukan koding Edit dibawah pada Tombol Edit :
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Koneksi()
        Dim edit As String = "update TBL_MAHASISWA set NamaMahasiswa='" & TextBox2.Text & "',AlamatMahasiswa='" & TextBox3.Text & "',TeleponMahasiswa='" & TextBox4.Text & "',JenisKelamin='" & ComboBox1.Text & "' where NIM='" & TextBox1.Text & "'"
        Cmd = New SqlCommand(edit, Conn)
        CMD.ExecuteNonQuery()
        MsgBox("Data Berhasil diUpdate")
        Call KondisiAwal()
    End Sub

Untuk membuktikan anda bisa Edit data, silahkan jalankan Project anda

#3. Hapus Data VB .NET Database SQL Server

Yang terakhir dalam membuat Aplikasi CRUD adalah Delete atau Hapus Data. Untuk hapus data konsepnya hampir sama dengan Edit data, dimana anda harus memilih data yang akan dihapus kemudian anda klik Button Hapus.
Silahkan double klik button hapus, kemudian masukan koding dibwah ini :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")
        Else
            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Call Koneksi()
                Dim CMD As SqlCommand
                Dim hapus As String = "delete From TBL_MAHASISWA  where NIM='" & TextBox1.Text & "'"
                CMD = New SqlCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
                MsgBox("Data Berhasil diHapus")
                Call KondisiAwal()
            End If
        End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

Silahkan tekan F5 atau Jalankan Project anda.
Dengan langkah diatas seharusnya anda sudah bisa membuat Aplikasi CRUD VB .NET database SQL Server.
Adapun untuk menyempurnakan Aplikasi CRUD diatas, anda harus memvalidasi sebuah form Mahasiswa, diantaranya :
  1. Nomor NIM dibuat otomatis
  2. Semua Field terdapat Validasi Berapa Digit Karakter
  3. Jika Edit dan Hapus, TextBox1 harus dalam kondisi disable ( Tidak Boleh diedit )
  4.  dan lain sebagainya

Link Video di Youtube :

https://www.youtube.com/watch?v=CHfaBSwlXyU



Demikian Membuat Aplikasi CRUD VB .Net Database SQL Server, semoga bermanfaat...
Silahkan KLIK DISINI untuk download Project CRUD diatas..

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Cara Membuat Alarm Dengan Visual Basic .NET

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Tutorial Gratis Cara Membuat Alarm Dengan Visual Basic .NET. Kembali pada tutorial Visual Basic ..NET kali ini saya akan memandu anda dalam membuat Aplikasi Alarm Dengan Visual Basic .NET. Fungsi nantinya juga bisa anda kembangkan untuk membuat Aplikasi Antrian di Bank atau Alarm Bel Sekolah, Aplikasi Alert dan lain sebagainya.

Sebelum anda mengikuti turorial kali ini, pastikan anda sudah menginstall Aplikasi Visual Basic, kemudian anda mempunyai file Musik. Jika sudah, mari kita lanjutkan cara membuat Alarm dengan VB .NET.
Cara Membuat Alarm Dengan Visual Basic .NET
Silahkan anda nyalakan Komputer atau Laptop anda
Silahkan buka Aplikasi Visual Basic .NET
Buatlah design Form1 seperti gambar dibawah ini :
Cara Membuat Alarm Dengan Visual Basic .NET
Gambar diatas terdapat :
Label1, Label2, Label3, DateTimePicker1, Button1, Button2, Button3, TextBox1
Windows Media Player, Timer1, Timer2 dan OpenFileDialog1

Untuk memunculkan Windows Media Player pada ToolBox VB .NET anda bisa lihat Tutorial dibawah :

Jika anda sudah bisa membuat Form1 seperti gambar diatas, silahkan masukan koding dibawah ini :
Imports System.IO
Public Class Form1
    Dim s As Integer = 0
    Dim d As Path

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DateTimePicker1.Format = DateTimePickerFormat.Time
        Timer2.Enabled = True
        TextBox1.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Silakan Pilih Musik Alarm Dahulu!")
        Else
            Timer1.Enabled = True
            DateTimePicker1.CalendarForeColor = Color.Blue
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Text = ""
            TextBox1.Text = OpenFileDialog1.FileName
            s = 1
        End If
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If TimeOfDay = DateTimePicker1.Text Then
                If s = 1 Then
                    AxWindowsMediaPlayer1.URL = TextBox1.Text.ToString
                Else
                    MsgBox(DateTimePicker1.Value)
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label2.Text = DateTime.Now.ToLongTimeString
    End Sub

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

Kemudian silahkan Run atau Jalankan Project anda, atau anda bisa tekan F5 pada Keyboard komputer anda. Untuk menjalankan aplikasinya :
Silahkan Pilih Waktu Alarm, Pilih Musik, Tekan Tombol Set Waktu Alarm.
Dan Tunggu Sampai Waktu alarm datang. dan Jangan Kaget jika musik yang anda pilih langsung berbunyi pada Aplikasi VB .NET anda.

Demikian Cara Mudah Membuat Alarm Dengan Visual Basic .NET, semoga bermanfaat.
Silahkan KLIK DISINI untuk download Project Alarm diatas.

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Cara Menambahkan Windows Media Player Pada Toolbox VB .NET

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Cara Menambahkan AxWindowsMediaPlayer atau Windows Media Player Pada Toolbox Visual Basic .NET
Pada tutorial VB .NET kali ini akan saya bahas bagaiaman cara menambahkan atau memunculkan WIndows Media Player Pada VB .NET. Fungsi ini biasanya digunakan oleh para pengguna VB .NET untuk memutar Musik pada Aplikasi VB .NET.

Dasar Memutar Musik dengan Visual Basic .NET ini akan bisa dikembangkan untuk membuat Aplikasi Alarm VB .NET, Aplikasi Antrian VB .NET, Aplikasi dengan Notifikasi Musik atau Suara, Aplikasi Alert System dengan VB .NET dan lain sabagainya. Cukup banyak hal yang bisa anda kembangkan dengan mengetahui dasar dalam memutar musik pada form VB .NET.
Cara Menambahkan Windows Media Player Pada Toolbox VB .NET

Namun sebelum anda membuat Aplikasi untuk memutar Musik pada VB .NET, anda perlu memunculkan Windows Media Player pada ToolBox VB .NET.

Berikut Caranya :
Silahkan anda buka Aplikasi Visual Basic .NET anda
Jika sudah muncul Form1, silahkan anda klik kanan pada ToolBox
Cara Menambahkan Windows Media Player Pada Toolbox VB .NET
Klik Choose Items...
Cara Menambahkan Windows Media Player Pada Toolbox VB .NET
Kemudian Klik COM Components
Checklist Windows Media Player
Klik OK

Jika sudah silahkan lihat pada ToolBox ( samping kiri Form1 ) maka seharusnya sudah ada WIndows Media Player pada ToolBox VB .NET anda.
Untuk tutorial membuat Aplikasi Alarm, Aplikasi Alert, Maupun Aplikasi Antran Pada Rumah sakit atau BANK nantinya akan saya bahas pada Artikel selanjutnya.

Demikian Cara Menambahkan Windows Media Player Pada Toolbox VB .NET, semoga bermanfaat untuk anda.



Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Download Mozila Firefox 56.0 Beta 12


Siapa yang tidak mengenal Firefox? Si rubah api ini merupakan salah satu pilihan software yang dapat Anda gunakan untuk berselancar internet, di samping Internet Explorer yang tengah mengalami masa suram dan beberapa kompetitor lainnya seperti Safari, Chrome, maupun Opera. Untuk kebanyakan pengguna internet, si rubah api ini dianggap sebagai sebuah browser yang memiliki berbagai fitur namun tetap nyman digunakan.
Kini Mozilla Firefox terbaru tengah dirilis, dan menawarkan banyak sekali fitur baru. Mozilla Firefox adalah Browser yang cepat dengan fitur lengkap untuk Windows, yang membuat browsing lebih efisien dibandingkan sebelumnya.

Firefox termasuk pop up, sebuah tab browsing yang memungkinkan Anda membuka beberapa halaman dalam satu jendela.
Kelebihan Mozilla Firefox :
1.Live Bookmarks – RSS integrasi memungkinkan Anda membaca berita terbaru dan membaca update situs favorit yang disindikasikan.
2.Extensions – add-ons yang menambahkan fungsi baru untuk program Mozilla Anda.
3.Tema – Anda dapat mengubah Tampilan dengan grafis baru dan warna.
4.Privasi dan Keamanan – Firefox menjaga komputer dan laptop Anda aman dari spyware berbahaya dengan memblokir ActiveX.
5.Plugin – Program tambahan yang menyediakan konten pelengkap yang lebih menarik.
6.Dilengkapi dengan alat pengembang termasuk JavaScript dan error CSS / peringatan konsol, dan Inspektur Dokumen opsional yang memberikan informasi rinci tentang halaman yang dibuka.
7.Terintegrasi Bahasa Indonesia
Untuk menjalankan Private Browsing, kamu dapat menggunakan melalui tombol Firefox dan memilih menu New Private Window.Setiap menggunakan mode Private Browsing tombol Firefox akan berganti warna menjadi ungu. Keuntungan menggunakan Private Browsing yaitu semua kegiatan baik history dan cache tidak akan tersimpan, namun sebaliknya jika anda membuat bookmark baru maka akan segera tersimpan.

Untuk Download klik disini

Cara Menghitung Selisih Tanggal Pada VB .NET

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Cara Menghitung Selisih Data Tanggal, Selisih Bulan, Selisih Tahun ( Penambahan, Pengurangan ) Pada Visual Basic .NET
Pada pembajaran VB .NET kali ini saya akan membahas mengenai cara menghitung selisih data tanggal pada VB .NET. Fungsi tutorial kali ini sangat banyak sekali. Yang pasti akan memberikan manfaat jika aplikasi yang anda buat menggunakan Tanggal dan akan dikurangi atau ditambah seperti aplikasi dibawah ini :

1. Pada Aplikasi Penyewaan akan sangat bermanfaat dalam menghitung biaya Sewa maupun biasa Denda
2. Pada Aplikasi Perpustakaan juga pasti menggunakan penghitungan biaya lama sewa dan denda jika pengembalian telat.
3. Dan masih banyak sekali aplikasi yang bisa diterapkan pada tutorial selisih tanggal ini.

Baik langsung saja, berikut ini kita akan langsung mempraktikan bagaimana cara membuat penghitungan selisih tanggal pada VB .NET.
Silahkan buka komputer anda
Silahkan buka Visual Basic .NET
Jika sudah muncul Form1, buatlah design Form seperti gambar dibawah ini :

Cara Menghitung Selisih Tanggal Pada VB .NET | JNM
Pada gambar diatas terdapat :
DateTimePicker1, LBL1, LBL2, LB3, LBL4, LBL5, LBL6, LBL7, LBL8, LBL9, Button1
Dan yang terakhir adalh Masukan Timer1.
Kemudian pada Timer1 jangan lupa anda ubah menjadi Enable.

Jika sudah semua membuat design Form1 seperti gambar diatas, masukan koding dibawah ini :
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LBL1.Text = Format(Today(), "dd-MMMM-yyyy")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LBL2.Text = DateDiff(DateInterval.Day, DateTimePicker1.Value, Today()) & " Hari"
        LBL3.Text = DateDiff(DateInterval.Month, DateTimePicker1.Value, Today()) & " Bulan"
        LBL4.Text = DateDiff(DateInterval.Year, DateTimePicker1.Value, Today()) & " Tahun"
        LBL5.Text = Format(DateAdd(DateInterval.Day, 1, DateTimePicker1.Value), "dd-MMMM-yyyy")
        LBL6.Text = Format(DateAdd(DateInterval.Month, 2, DateTimePicker1.Value), "dd-MMMM-yyyy")
        LBL7.Text = Format(DateAdd(DateInterval.Year, 3, DateTimePicker1.Value), "dd-MMMM-yyyy")
        LBL8.Text = DateTimePicker1.Value.ToString("dddd")
        LBL9.Text = Hasil(Year(DateTimePicker1.Text), Month(DateTimePicker1.Text))
    End Sub
    Function Hasil(ByVal MyYear As Integer, ByVal MyMonth As Integer) As Integer
        Return DateTime.DaysInMonth(MyYear, MyMonth)
    End Function
End Class

Kodingnya sangat Simple atau sederhana namun hasilnya luar biasa :)

Kemudian yang terakhir silahkan Running atau jalankan Project VB .NET anda.
Bagaimana cara menggunakannya ?
Silahkan running Form1 VB .NET anda, kemudian anda ganti Tanggal di Pilih.
Jika sudah anda bisa Klik Button1 atau Tombol Proses.
Hasilnya adalah sebagai berikut :

Cara Menghitung Selisih Tanggal Pada VB .NET
 Demikian Cara Membuat Form Sederhana untuk menghitung selisih tanggal pada Visual Basic .NET. Semoga bermanfaat untuk anda.
Silahkan KLIK DISINI untuk download Project diatas


Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Membuat Format Mata Uang Rupiah Pada VB .NET

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Tutorial VB .NET Cara Membuat Format Mata Uang Rupiah pada TextBox Visual Basic .NET. Tutorial kali ini saya buat karena ada pengunjung web JNM yang telah berkomentar dan request artikel ini.
Untuk detail contoh form menggunakan Format mata uang atau Rupiah anda bisa melihat contoh hasil form nya seperti gambar dibawah ini :

Membuat Format Mata Uang Rupiah Pada VB .NET

Capture pertanyaanya adalah sebagai berikut :

Membuat Format Mata Uang Rupiah Pada VB .NET


Pertanyaan diatas di tulis pada artikel :
http://www.javanetmedia.com/p/visual-basic-net.html
Jadi bagi rekan-rekan pengunjung web JNM yang ingin bertanya atau reuest tutorial jangan malu-malu untuk berkomentar di bawah :)

Link Video Tutorial di Youtube :

https://www.youtube.com/watch?v=8OS0g3BYTgU


Baik langsung saja mari kita buat langkah-langkahnya :
Silahakn buka Visual Basic .NET pada komputer anda
Silahkan buat Form1 seperti gambar dibawah ini :

Membuat Format Mata Uang Rupiah Pada VB .NET
Pada Form1 diatas terdapat 4 TextBox.
Pada Jumlah atau TextBox3 kita akan buatkan Format Mata Uang.
Format mata uang ini akan dimunculkan otomatis pada system komputer anda. Jika anda menggunakan Region Indonesia maka akan langsung berubah menjadi Rp. (Rupiah). atau akan berubah menjadi $ (dolar) jika anda gunakan Region United States

Kodingnya Form1 adalah sebagai berikut :
Public Class Form1
    Private Sub TextBox3_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Leave
        TextBox3.Text = FormatCurrency(TextBox3.Text)
    End Sub
End Class

Saya menggunakan TextBox3.leave artinya, ketika anda memasukan Harga maka tidak akan terjadi perubahan, namun jika anda sudah memasukan pada TextBox3 kemudian mouse anda pindah ke TextBox lainnya, maka akan secara otomatis berubah format Currency atau mata uang pada format Region komputer anda.

Silahkan anda praktikan terlebih langkah diatas terlebih dahulu.

Jika anda sudah mempraktikan dan sudah berhasil memunculkan Format Mata Uang Rupiah, selanjutnya anda bisa menginput data dengan Format Rupiah tersebut.

Cara Input Data Format Mata Uang / Currency

Karena akan menginput data kedalam database, maka langkah pertama anda harus membuat Database dan Tabel.
Buatlah Database dengan nama : DBJNM.mdb
Buatlah Tabel dengan nama : BARANG
Design BARANG adalah :
KodeBarang : Text (6) Primary Key
NamaBarang : Text (50)
HargaBarang : Number / Numeric
JumlahBarang : Number / Numeric


Link Video Tutorial di Youtube :

https://www.youtube.com/watch?v=8OS0g3BYTgU


Kemudian buatlah Form seperti design dibawah ini :
Membuat Format Mata Uang atau Currency Pada VB .NET
Kemudian jika sudah membuat Project VB .NET dan Form1 seperti gambar diatas.
Masukan DBJNM.mdb pada Folder Project anda, didalam Folder Bin / Debug
Kemudian masukan koding dibawah ini :
Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim Rd As OleDbDataReader
    Dim Cmd As OleDbCommand
    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
        Call KondisiAwal()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        da = New OleDbDataAdapter("Select * from BARANG", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "BARANG")
        DataGridView1.DataSource = (ds.Tables("BARANG"))

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        '-------> Koding dibawah untuk mengatur lebar Grid
        '-------> Silahkan ganti angka nya untuk melebarkan atau menyempitkan
        DataGridView1.Columns(0).Width = 70
        DataGridView1.Columns(1).Width = 150
        DataGridView1.Columns(2).Width = 80
        DataGridView1.Columns(3).Width = 80
    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("Pastikan semua form terisi data")
        Else
            Call Koneksi()
            Dim simpan As String = "insert into Barang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
            CMD = New OleDbCommand(simpan, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
            Call KondisiAwal()
        End If
    End Sub
    'Koding Format Rupiah / Mata Uang
    Private Sub TextBox3_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Leave
        TextBox3.Text = FormatCurrency(TextBox3.Text)
    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, silahkan Jalankan atau Runningkan Project VB .NET anda.
Jika anda tidak mau repot, silahkan download project dengan link dibawah ini :


Link Video Tutorial di Youtube :

https://www.youtube.com/watch?v=8OS0g3BYTgU


Silahkan KLIK DISINI Untuk mendownload Source Code Project diatas
Silahakn KLIK DISINI Untuk melihat panduan atau cara downloadnya

Demikian tutorial dalam Membuat Format Mata Uang Rupiah Pada VB .NET, semoga bermanfaat untuk anda. Ikuti terus tutorial VB .NET lainnya dari kami, atau anda bisa Klik Disini untuk Index Tutorial VB .NET lainnya.


Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Membuat CRUD VB .NET Database Access ACCDB

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Pada tutorial Visual Basic kali ini akan dibahas mengenai cara mudah membuat CRUD Visual Basic Database Access .ACCDB ( Microsoft Office Access ACCDB adalah extension sebuah file access yang bisa dibuat Office 2007 keatas) anda bisa membuat database access ACCDB dengan microsoft Office 2007, 2010, 2013, 2015 ataupun Office 2016.

Apa itu CRUD VB .NET ? CRUD adalah singkatan dari Create, Read, Update dan Delete. Bahasa CRUD sudah banyak dipakai dikalangan Pemograman dimana dasar dalam membuat aplikasi berbasis database adalah dengan CRUD. Arti secara umum CRUD VB .NET adalah membuat form Input, Edit dan Hapus data didalam database menggunakan Visual Basic .NET.

Download CRUD Gratis Visual Basic .NET | VB .NET

Berikut langkah Membuat Input, Edit dan Hapus Visual Basic .NET database Access .ACCDB

#1. Membuat Form CRUD Dengan Visual Basic .NET

Silahkan buka Visual Studio anda,
Klik File - New - Project
Membuat CRUD VB .NET Database Access ACCDB
Silahkan lihat gambar diatas, berikut keterangannya :
1 : Pastikan anda memilih Visual Basic
2. Pilih Windows Form Application
3. Buat Namda Project contoh : CRUD VB NET Access ACCDB, kemudian anda simpan sesuai keinginan anda, saya menyimpannya di drive D
4. Klik OK

Jika sudah melakukan langkah diatas maka muncul seperti gambar dibawah :
Membuat CRUD VB .NET Database Access ACCDB
Secara default, maka akan muncul Form1, anda tidak perlu merubah nama form, anda langsung membuat design Form1 seperti gambar dibawah :
Membuat CRUD VB .NET Database Access ACCDB
Silahkan buat design form1 seperti gambar diatas, jika sudah maka tahap 1 sudah selesai, selanjutnya silahkan ikuti langkah ke 2

#2. Membuat Database dan Tabel Dengan Access ACCDB

Setelah anda sukses membuat design form1, maka anda harus membuat database dan Tabel
Buatlah Database dengan nama : DBJNM.accdb
Membuat CRUD VB .NET Database Access ACCDB
Lihat gambar diatas, pada saat membuat DBJNM.accdb pastikan anda simpan di folder bin Debug
Kemudian pastikan save type nya adalah Access accdb
kemudian Klik OK

Silahkan buat Tabel dengan nama : TBL_BARANG
Berikut penampakan TBL_BARANG :
Membuat CRUD VB .NET Database Access ACCDB
Seteleh membuat design TBL_BARANG, silahkan input secara manual terlebih dahulu untuk sample data :
Membuat CRUD VB .NET Database Access ACCDB
Silahkan pastikan kembali :
1. Anda harus membuat database dan tabel
2. Kemudian simpan di folder bin debug
3. Kemudian masukan data sample seperti gambar diatas

#3. Membuat Koding Input, Edit, Delete Dengan VB .NET

Selanjutnya pada TAHAP 3 ini kita akan membuat koding Input, Edit dan Delete
Sebelum Input, Edit, dan Delete anda harus bisa mengkoneksikan database access accdb dan memunculkan TBL_BARANG tersebut pada DatagridView1
Sebenarnya sudah busatkan Cara Koneksi Database Access ACCDB pada tutorial lain
Kurang lebih kodingnya seperti berikut 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.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 TBL_BARANG", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_BARANG")
        DataGridView1.DataSource = (ds.Tables("TBL_BARANG"))
    End Sub
End Class

Jika sudah anda bisa menjalankan atau running Project VB .NET anda
Membuat CRUD VB .NET Database Access ACCDB
Jika anda sukses muncul seperti gambar diatas, artinya anda sudah sukses mengkoneksikan database access accdb dengan VB .NET.

Cara Input Data VB NET Access ACCDB

Langkah selanjutnya adalah kita akan meninput data kedalam dabase.
Double Klik Button1 atau Button Input, kemudian masukan koding dibawah ini :
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 = "" Or ComboBox1.Text = "" Then
            MsgBox("Silahkan Isi Semua Form")
        Else
            Dim CMD As OleDbCommand
            Call Koneksi()
            Dim simpan As String = "insert into TBL_BARANG values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"
            CMD = New OleDbCommand(simpan, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Input data berhasil")
        End If
    End Sub

Jika sudah silahkan praktekan dengan run project anda. dan lakukan input data, berikut tampilannya :
Membuat CRUD VB .NET Database Access ACCDB

Cara Edit Data VB NET Access ACCDB

Jika Input atau Insert data sudah selesai, selanjutnya anda harus membuat Edit Data TBL_BARANG.
Sebelum memberikan koding didalam Button Edit, yang harus anda lakukan andalah menampilkan data ketika memasukan Kode di form kode barang, setelah muncul data anda bisa edit data yang diinginkan kemudian anda klik tombol edit.
Berikut Kodingnya :
Koding Untuk Memunculkan Data Ketika Memasukan KodeBarang dan ENTER pada Keyboard
Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            Dim CMD As OleDbCommand
            Dim RD As OleDbDataReader
            CMD = New OleDbCommand("Select * From TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'", Conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode Barang Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("NamaBarang")
                TextBox3.Text = RD.Item("HargaBarang")
                TextBox4.Text = RD.Item("JumlahBarang")
                ComboBox1.Text = RD.Item("SatuanBarang")
                TextBox2.Focus()
            End If
        End If
    End Sub

Kemudian koding dibawah untuk Button Edit atau Button2 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Koneksi()
        Dim CMD As OleDbCommand
        Dim edit As String = "update TBL_BARANG set NamaBarang='" & TextBox2.Text & "',HargaBarang='" & TextBox3.Text & "',JumlahBarang='" & TextBox4.Text & "',SatuanBarang='" & ComboBox1.Text & "' where KodeBarang='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(edit, Conn)
        CMD.ExecuteNonQuery()
        MsgBox("Data Berhasil diUpdate")
    End Sub

Silahkan di praktekan, seharusnya dengan langkah diatas anda sudah bisa Edit data TBL_BARANG

Cara Hapus atau Delete Data VB NET Access ACCDB

Jika anda sudah bisa Read atau Koneksi database, Create atau Input data, Update atau mengubah data, terakhir adalah Delete atau penghapusan data, sehingga CRUD menjadi lengkap.
Berikut koding untuk Button3 atau Button Hapus.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")
        Else
            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Call Koneksi()
                Dim CMD As OleDbCommand
                Dim hapus As String = "delete From TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'"
                CMD = New OleDbCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
            End If
        End If
    End Sub

Silahkan anda praktekan sampai bisa menghapu data didalam database atau TBL_BARANG. Jika sudah berhasil semua maka proses pembuatan CRUD VB .NET database Access ACCDB selesai, namun untuk Button4 atau Button Tutup masih belum diberikan koding.
Anda bisa Double Klik Button Tutup kemudian masukan koding END
Sangat mudah dan simple dalam membuat CRUD Visual Basic .NET database Access ACCDB

Demikian Tutorial singkat dalam Membuat CRUD VB .NET Database Access ACCDB, semoga bermanfaat untuk anda. Jangan lupa anda bisa share tutorial ini ke rekan anda, dan anda bisa berkomentar dibawah. Ikuti terus Tutorial VB .NET atau Tutorial CRUD lainnya.

Silahkan KLIK DISINI Untuk Download Project CRUD VB .NET diatas

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Cara Backup dan Restore Database SQL Server

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Melanjutkan dalam tutorial database SQL Server, pada tutorial kali ini saya akan membahas tentang cara Backup dan Restore database SQL Server. Fungsi backup database sangat penting sekali.

Fungsi Backup untuk User Pengguna Aplikasi :
Jika Aplikasi tersebut Nasional artinya banyak user yang menggunakan, kemudian transaksi perharinya sangat banyak record data maka alangkah baiknya database tersebut di backup setiap hari, minimal 1 minggu harus ada proses backup database. Hal ini untuk menghindari database rusak, di hack dan lain sebagainya.

Fungsi Backup Untuk Developer Aplikasi :
Bagi anda programmer pemula maupun sudah profesional, proses backup juga penting. Biasanya untuk membackup data yang sudah terecord seperti pemaparan diatas, atau untuk proses melanjutkan pembuatan aplikasi pada komputer lain. Mungkin di laptop probadi atau di komputer dirumah. Hal ini memungkinkan anda untuk tetap melanjutkan project Aplikasi yang anda buat dimanapun anda berada.

1. Cara Backup Database SQL Server

Sebelum anda membackup database SQL Server, anda wajib sudah bisa membuat database dan tabel terlebih dahulu. Seperti BAB Membuat Database dan Tabel SQL Server yang sudah saya buat pada artikel sebelumnya. Saya telah mempunyai database dengan nama : DB_JNM
Kemudian DB_JNM tersebut akan saya backup, caranya adalah sebagai berikut.

Silahkan anda buksa SQL Server Management Studio
Silahkan masuk dengan klik Connect
Jika sudah Pilih DB_JNM - Klik Kanan - Task - Back Up
Cara Backup dan Restore Database SQL Server
Detailnya seperti gambar diatas
Cara Backup dan Restore Database SQL Server
Setelah klik Backup maka akan muncul seperti gambar diatas
Silahkan Klik Remove terlebih dahulu
Jika sudah remove, klik Add

Cara Backup dan Restore Database SQL Server
Fungsi disini adalah untuk mengganti Folder untuk membackup database
Klik browse seperti yang sudah saya berikan kotak Merah

Cara Backup dan Restore Database SQL Server
Kemudian saya pilih Folder Backup Database di Drive D, kemudian saya beri nama DBJNM.bak
Jika sudah klik OK dan OK Kembali

Seharusnya Dengan langkah diatas anda sudah bisa membackup database DB_JNM

2. Cara Restore Database SQL Server

Jika anda sudah bisa Backup database, maka selanjutnya hasil backupan atau langkah diatas.
Namun sebelum proses Restore dimulai, kita harus hapus database DB_JNM terlebih dahulu.

Cara Hapus Database SQL Server
Cara Backup dan Restore Database SQL Server
Silahkan klik Kanan DB_JNM kemudian klik Delete
Jika sudah maka DB_JNM sudah berhasil di hapus dan sudah hilang

Selanjutnya untuk proses restore, Klik Kanan Database
Cara Backup dan Restore Database SQL Server
Pilih Restire Database seperti gambar diatas
Cara Backup dan Restore Database SQL Server
Selanjutnya, pilih Device, Klik Add, cari folder backup database yang sudah kita buat
Saya membackup di Drive D : Backup Database \ DB_JNM.bak
Jika sudah Klik OK
Cara Backup dan Restore Database SQL Server
Jika sudah muncul seperti gambar diatas, Klik OK
Silahkan lihat hasilnya, seharusnya sudah ada DB_JNM pada Database SQL Server
Demikian proses atau cara backup dan restore database SQL Server, semoga bermanfaat untuk anda.Ikuti tertus tutorial Database maupun pemograman Aplikasi Database lainnya. Jangan lupa anda bisa share tutorial kami dan anda bisa berkomentar dibawah.


Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Cara Input Data Menggunakan Radio Button Pada VB .NET

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Melanjutkan Pembelajaran VB .NET, pada tutorial kali ini saya akan membahas Penggunaan dari radio button, yaitu cara input data menggunakan Radio Button pada VB .NET. Tutorial kali ini saya buat lantaran ada beberapa pertanyaan via email maupun via Youtube mengenai tema yang akan kita bahas kali ini. Karena saya akan membuatnya langsung dengan input kedatabase maka saya akan buat databasenya menggunakan MySQL. Bagi anda yang ingin membuat dengan database Access maupun SQL Server silahkan anda dapat menyasuaikan.

Radio button pada VB .NET biasanya digunakan untuk memilih beberapa pilihan yang ada di form, seperti Jenis Kelamin, Agama, Hobby dan lain sebagainya. Yang pada intinya untuk mempermudah pengguna aplikasi untuk memilih pilihan yang akan diinput pada sebuah Form Aplikasi.

Contoh penggunaannya adalah seperti gambar dibawah ini :

Cara Input Data Menggunakan Radio Button Pada VB .NET
Silahkan anda lihat gambar diatas, Radio Button digunakan untuk menentukan Jenis Kelamin Pria atau Wanita pada form Anggota.

1. Membuat Database dan Tabel MySQL

Sesuai yang sudah saya jelaskan diatas, maka kita harus membuat database dan tabel terlebih dahulu. Silahkan anda buat database dengan nama : dbjnm
Kemudian anda buat tabel dengan nama tbl_anggota
Untuk field nya saya buat simple saja,  yaitu : kodeanggota, namaanggota, jeniskelamin, dan alamatanggota

Penggunaan Radio Button Pada VB .NET

Atau jika anda tidak ingin ribet saya sudah membuatkan SQL tbl_anggota, anda bisa copy code dibawah dan masukan ke SQL database MySQL anda. 

CREATE TABLE `tbl_anggota` (
  `kodeanggota` varchar(6) NOT NULL,
  `namaanggota` varchar(50) NOT NULL,
  `jeniskelamin` varchar(20) NOT NULL,
  `alamatanggota` varchar(100) NOT NULL
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
ALTER TABLE `tbl_anggota`
ADD PRIMARY KEY (`kodeanggota`);


INSERT INTO `tbl_anggota` (`kodeanggota`, `namaanggota`, `jeniskelamin`, `alamatanggota`) VALUES
('AGT001', 'ANIS', 'WANITA', 'JL Anggur No 44'),
('AGT002', 'DODI', 'PRIA', 'JL Jeruk No 22'),
('AGT003', 'MAHMUD', 'PRIA', 'JL Belimbing No 31'),
('AGT004', 'ALIYA', 'WANITA', 'Jl Salak No 88');

Jika anda sudah membuat database dan tabel, silahkan anda buat form VB .NET dibawah

2. Membuat Form VB .NET Radio Button dan Kodingnya

Silahkan buka VB .NET anda, kemudian buatlah Form1 dengan design form seperti gambar dibawah ini :
Form1 diatas terdapat :
TextBox1, TextBox2, TextBox3, RadioButton1, RadioButton2, Button1, Button2, Button3, Button4 dan DatagridView1

Kemudian masukan koding dibawah ini :
Imports System.Data.Odbc
Public Class Form1
    Dim CONN As OdbcConnection
    Dim CMD As OdbcCommand
    Dim DS As New DataSet
    Dim DA As OdbcDataAdapter
    Dim RD As OdbcDataReader
    Dim Gender As String
    Dim LokasiData As String
    Sub Koneksi()
        LokasiData = "Driver={MySQL ODBC 3.51 Driver};Database=dbjnm;server=localhost;uid=root"
        CONN = New OdbcConnection(LokasiData)
        If CONN.State = ConnectionState.Closed Then
            CONN.Open()
        End If
    End Sub
    Sub TampilGrid()
        Call Koneksi()
        DA = New OdbcDataAdapter("select * From tbl_anggota ", CONN)
        DS = New DataSet
        DA.Fill(DS, "tbl_anggota")
        DataGridView1.DataSource = DS.Tables("tbl_anggota")
        DataGridView1.ReadOnly = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call TampilGrid()
    End Sub
    Sub KosongkanData()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    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 = "" Then
            MsgBox("Silahkan Isi Semua Form")
        Else
            Call Koneksi()
            If RadioButton1.Checked = True Then
                Gender = RadioButton1.Text
            ElseIf RadioButton2.Checked = True Then
                Gender = RadioButton2.Text
            End If
            Dim simpan As String = "insert into tbl_anggota values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & Gender & "','" & TextBox3.Text & "')"
            CMD = New OdbcCommand(simpan, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Input data berhasil")
            Call TampilGrid()
            Call KosongkanData()
        End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub
End Class

Selanjutnya silahkan jalankan Project VB .NET anda, Silahkan isi data kemudian pilih jenis kelamin Pria atau Wanita, kemudian Klik Input. Maka Data berhasil diinput

Demikian Tutorial VB .NET yaitu : Cara Input Data Menggunakan Radio Button Pada VB .NET, semoga bermanfaat untuk anda. Jika tutorial ini bermanfaat silahkan anda share dan bagikan kepada rekan anda. Atau anda bisa berkomentar dibawah.


Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.