VB Net - Cara Input Ke Database

8:29:00 AM
Cara Input Ke Database Dengan VB Net

Pada Pembelajaran VB Net kali ini akan dibahas mengenai : Cara Input Ke Database Dengan VB Net

Berikut langkahnya :
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang dengan Design Tabel seperti gambar dibawah ini :


2. Membuat Project VB Net dan Design Form
Buka Aplikasi VB Net anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder Project VB Net Anda yaitu bin\debug
Kemudian buatlah Design Form seperti gambar dibawah ini :
Kemudian Masukan Koding dibawah ini pada Form1 diatas :

Imports System.Data.OleDb
Public Class Form1
    Dim CONN As OleDbConnection
    Dim CMD As OleDbCommand
    Dim DS As New DataSet
    Dim DA As OleDbDataAdapter
    Dim RD As OleDbDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "provider=microsoft.jet.oledb.4.0;data source=DBBelajarvb.mdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    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"))
    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 = "" Then
            MsgBox("Data belum lengkap, Pastikan Kode Barang 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim simpan As String = "insert into Barang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
            CMD = New OleDbCommand(simpan, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Input", 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
End Class

Kemudian jalankan Project VB Net anda diatas
Silahkan anda coba sampai berhasil, jika belum berhasil dicoba terus dan jika ada problem bisa berkomentar dibawah.

Semoga bermanfaat untuk anda, dan ikuti terus pemberlajaran selanjutnya yaitu Cara edit data menggunakan Visual Basic .NET

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

10 komentar

Write komentar
June 9, 2015 at 3:46 PM delete

Mau tanya, Script dibawah ini maksdunya apa ya?

provider=microsoft.jet.oledb.4.0

Terima Kasih :)

Reply
avatar
Tutarni Aliya
AUTHOR
June 9, 2015 at 9:40 PM delete

Hi Debitur,
Untuk koding itu sudah rumus mutlak dari VB ke Database access..
Jadi jika VB Net akan berinteraksi dengan database access 2003 (mdb) maka wajib menggunakan koding tersebut

Reply
avatar
Rofi Uddin
AUTHOR
August 17, 2015 at 2:18 PM delete

aku coba di vb 2013 bs konek tapi gk bisa nyimpan ke database gimana yaa solusinya...

Reply
avatar
Tutarni Aliya
AUTHOR
August 18, 2015 at 3:47 PM delete

Hi Rofi,
Terima kasih telah berkomentar. Ga bisanya kenapa ya?
apakah ada pesan errornya? jika ada mohon disebutkan pesan errornya ya..
dan pastikan tabel yang kamu buat sesuai dengan field yang akan kamu masukan atau Input ya... mohon feedbacknya

Reply
avatar
Unknown
AUTHOR
November 10, 2015 at 3:17 PM delete

selamat siang bu Tutarni untuk skrip aplikasi edit masih ada Bug.

Reply
avatar
November 23, 2015 at 8:31 AM delete

bu cara input gambar atau foto ke database gi mana ya? tolong dong bu.

Reply
avatar
Tutarni Aliya
AUTHOR
January 7, 2016 at 10:31 PM delete

Hi Unknown,
Bug nya dimana ya? bisa dinformasikan lebih detail?

Reply
avatar
Tutarni Aliya
AUTHOR
January 7, 2016 at 10:32 PM delete

Hi Misjan,
Terima kasih telah berkunjung dan berkomentar.
Untuk foto, silahkan buka disini :
http://blog.belajarvb.com/2015/07/cara-menyimpan-foto-kedalam-database-vb.html

Reply
avatar
bella melinda
AUTHOR
August 18, 2016 at 3:12 PM delete

bu cara membuat coding pemberitahuan Primary Ganda bagaimana bu??

Reply
avatar
Tutarni Aliya
AUTHOR
August 23, 2016 at 9:14 PM delete

Hi Bella,
Sudah dibuat tutorialnya ya.. silahkan cek di :
http://blog.belajarvb.com/2016/08/validasi-primary-key-ganda-pada-vb-net.html

Reply
avatar