VB Net - Cara Input Ke Database

Tutarni Aliya

Add Comment

Belajar Visual Basic 2005

Sunday, June 15, 2014

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 Admin 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


Salam,
BelajarVB.com