Source code simpan pada vb.net

11/10/2016 06:16:00 AM Unknown 0 Comments

Source code simpan pada vb.net - Coding simpan pada vb.net sangat mudah jika benar-benar dipelajari, nah bagi kamu yang belim mengerti atau masih pemula sebenarnya untuk perintah insert  pada vb.net sama saja dengan perintah pada bahasa pemograman yang menggunakan database lainnya. Pada prinsipnya sama saja, tapi ada perbedaan bahasa saja sedikit hehehe...., nah sebelum kita ke source code insert kamu harus sudah paham mengenai koneksinya, kenapa harus paham koneksi terlebih dahulu??? karena semua perintah insert, update, delete dan search berpusatkan pada koneksi terlebih dahulu, jika koneksinya tidak ada atau gagal, maka seluruh perintah diatas tidak akan terlaksana. Maka dari itu bagi yang belum paham koneksi vb.net ke ms.acces saya sediakan link ini cara koneksi Ms. Acces ke vb.net. Nah jika sudah maka langsung saja kita parktikan...
Langkah langkah:
Buka project yang telah dibuat yang ada modul koneksi sebelumnya seperti yang dijelaskan pada link di atas, setelah itu buatlah desain seperti ini :
Setelah itu klik double pada button simpan maka akan tampilan :
setelah itu maka ketikan source code dibawah ini :

Imports System.Data.OleDb
Public Class Form1
    Sub Baca()
        Call Koneksi()
        DA = New OleDbDataAdapter("Select * from siswa", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "siswa")
        DataGridView1.DataSource = (DS.Tables("siswa"))
    End Sub
    Sub kosong()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        simpan.Enabled = True
        edit.Enabled = True
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Data belum lengkap, pastikan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim simpan As String = "insert into siswa values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
            CMD = New OleDbCommand(simpan, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
            Call Baca()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        DA = New OleDbDataAdapter("Select * from siswa", CONN)
        DS = New DataSet
        DS.Clear()
        DA.Fill(DS, "siswa")
        DataGridView1.DataSource = (DS.Tables("siswa"))
    End Sub

   

*Nama table dapat disesuaikan sesuai yg dibuat pada ms. acces
jika sudah maka run, selesai :) selamat mencoba!!
Demikian source code dan langkah langkahnya semoga bermanfaat :)