<center>https://steemitimages.com/DQmNbvPtnhNMw6BTSBxb72NdxFcAzB6TWK4QqNs4w5kPEjX/prog_vbnet.png</center>

[ENG]
Hi on steemians since my post has now pointed to VB.NET. All my future posts will be themed program about VB.NET. Where later I will provide information about VISUAL BASIC.NET. For the first time I will post how to learn for beginners in making a simple application using MySQL database. I will give you brief and easy-to-understand tutorial details for people who are just learning about VB.NET.

[IND]
Hai pada steemians berhubung posting saya sekarang sudah mengarah ke VB.NET. semua postingan saya kedepannya akan bertemakan program tentang VB.NET. dimana nanti saya akan memberikan informasi seputar VISUAL BASIC.NET. Untuk pertama sekali saya akan memposting bagaimana cara belajar bagi pemula dalam membuat sebuah aplikasi sederhana dengan menggunakan database MySQL. Saya akan memberikan rincian tutorial yang singkat dan mudah dipahami bagi orang yang baru belajar tentang VB.NET.</p>
<hr>
<center>https://steemitimages.com/DQmZTfFWEDp5t9hhQERF6cApyMjAUnRrxyXzxCXNcVor6xG/willy.png</center>
</hr>
<hr>
[ENG]
The first thing you should do is:
* Make a label as many as 4 labels containing (ID GOODS, NAME OF GOODS, STOCK GOODS, GOOD PRICE)
* Create Textbox as many as 4 Textbox for Name "Free as you wish"
* Make Button as many as 7 button and given the name (ADDED, CANCEL, SAVE, REPORT, EDIT, DELETE, EXIT)

[IND]
Hal yang pertama yang harus anda lakukan adalah :
* Buat lah label sebanyak 4 label yang berisikan ( ID BARANG, NAMA BARANG , STOK BARANG, HARGA BARANG )
* Buatlah Textbox sebanyak 4 Textbox untuk Name "Bebas sesuai keinginan"
* Buatlah Button sebanyak 7 button dan diberi nama ( TAMBAH, BATAL, SIMPAN, LAPORAN, EDIT, HAPUS, KELUAR )

QUERY APPLICATION > :
Imports MySql.Data.MySqlClient

Public Class Form1
    Dim con As New MySqlConnection(strkon)
    Dim perintah As New MySqlCommand
    Dim cek As MySqlDataReader
    Dim data As New MySqlDataAdapter
    Dim aktn As Integer
    Dim simpan As Boolean

'----------
'Tombol Simpan

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If simpan = True Then
            prosesdisplay("insert into barang (IDBarang, NamaBarang, StockBarang, HargaBarang) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')")
            clearinput()
            tidakaktiftextbox()
        Else
            prosesdisplay("update barang set NamaBarang='" & TextBox2.Text & "',StockBarang='" & TextBox3.Text & "',HargaBarang='" & TextBox4.Text & "' where IDBarang='" & TextBox1.Text & "'")
        End If
        tampil()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False

    End Sub
'-----------
'Button edit

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        con.Open()
        perintah.Connection = con
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "update barang set NamaBarang='" & TextBox2.Text & "',StockBarang='" & TextBox3.Text & "',HargaBarang='" & TextBox4.Text & "' where IDBarang='" & TextBox1.Text & "'"
        perintah.ExecuteNonQuery()
        con.Close()
        tampil()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
    End Sub
'----------
'Button Batal

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        tidakaktiftextbox()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
        Button1.Focus()
    End Sub
'----------
'Button hapus

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MsgBox("Yakin mau dihapus", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            prosesdisplay("delete ignorer from  barang where IDBarang='" & TextBox1.Text & "'")
        End If
        clearinput()
        MsgBox("Data Sukses Dihapus", MsgBoxStyle.Information)
        tidakaktiftextbox()
        tampil()
        Button2.Enabled = False
        Button3.Enabled = False
        Button4.Enabled = False
        Button5.Enabled = False
    End Sub
'----------
'Menampilkan Datagridview

    Sub tampil()
        con.Open()
        perintah.Connection = con
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "select * from barang"
        Dim mda As New MySqlDataAdapter
        mda.SelectCommand = perintah
        Dim dspem As New DataSet
        mda.Fill(dspem, "IDBarang")
        DataGridView1.DataSource = dspem.Tables("IDBarang")
        con.Close()
    End Sub
'----------
'Database

   " Sub prosesdisplay(ByVal sql As String)
        con.Open()
        perintah.Connection = con
        perintah.CommandType = CommandType.Text
        perintah.CommandText = sql
        perintah.ExecuteNonQuery()
        con.Close()
    End Sub
'----------
'Clear kan textboxt

    Sub clearinput()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
'----------
'Searching Data di DataGridview
 
Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        displaymhs("select * from barang where IDbarang like '%" & TextBox7.Text & "%' or NamaBarang like '%" & TextBox7.Text & "%'order by IDBarang")
    End Sub
'----------
'Penggunaan tombol enter pada keyboard

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                TextBox2.Focus()
        End Select
    End Sub

    Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                TextBox3.Focus()
        End Select
    End Sub

    Private Sub TextBox3_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox3.KeyDown
        Select Case e.KeyCode
            Case Keys.Enter
                TextBox4.Focus()
        End Select
    End Sub
End Class

[ENG]
Hopefully you can do carefully and be careful not to have any code that you can run correctly remember not to debug ..

[IND]
Semoga Kalian bisa mengerjakan dengan seksama dan hati - hati jangan sampai ada kode yang bisa kalian jalankan dengan benar ingat jangan sampai debug. Terima Kasih Kepada Curator @levycore dan @aiqabrago Serta Para Steemian Indonesia Semoga Artikel ini bisa Bermanfaat....


<center>https://steemitimages.com/DQmSNTE6dosqsNVNhGJpL7rfbmsyGwfp1ibKH5U5FU7HHAA/Willy%20Steemit%20Indonesia.png </center>
</center>

<center>https://steemitimages.com/50x60/http://steemitboard.com/@willyfavindy/commented.png
<td>https://steemitimages.com/60x70/http://steemitboard.com/@willyfavindy/votes.png
<td>https://steemitimages.com/100x80/http://steemitboard.com/@willyfavindy/level.png
<td>https://steemitimages.com/70x80/http://steemitboard.com/@willyfavindy/comments.png
<td>https://steemitimages.com/60x70/http://steemitboard.com/@willyfavindy/voted.png
</center></td>
 
https://steemitimages.com/DQmR3hFVBGSV1SRpUywVFcQaxLVuKoEWwZTfoT8kVKUd8JV/steemit%20indo.png
<center><h1>Keep Steem on Me @willyfavindy</h1></center>

<center><b><h1>dont forget Upvote Me https://steemitimages.com/DQmQdyiUoU8QFHoW3HHr64cTxzCfPJiXMcNNrvAfvAAtkH6/U5dr71A5M33HEviSuz253XjkHciUKd7.gif and follow me</b></h1></center>