VB Net - Cara Input Ke Database

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

Subscribe to receive free email updates:

10 Responses to "VB Net - Cara Input Ke Database"

  1. Mau tanya, Script dibawah ini maksdunya apa ya?

    provider=microsoft.jet.oledb.4.0

    Terima Kasih :)

    ReplyDelete
    Replies
    1. 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

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

    ReplyDelete
    Replies
    1. 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

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

    ReplyDelete
    Replies
    1. Hi Unknown,
      Bug nya dimana ya? bisa dinformasikan lebih detail?

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

    ReplyDelete
    Replies
    1. 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

      Delete
  5. bu cara membuat coding pemberitahuan Primary Ganda bagaimana bu??

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

      Delete