Script Simpan Edit Hapus Vb.Net 2005

Pada dasarnya setiap bahasa pemprogram baik visual basic, delphi, c++ , pascal dan yang lainnya memiliki logika yang sama tinggal bagaimana setiap programer menuangkan logikanya  kedalam script pada setiap masing-masing bahasa pemprograman.Pada posting kali ini kita akan menuangkan logika simpan data,edit data dan hapus data pada bahasa pemprograman Microsoft Visual Basic 2005. Logika ini sangat sering kita jumpai pada aplikasi-aplikasi yang sudah ada, dikarekan proses manipulasi data sangat erat kaitannya dengan kegiatan user sehari-hari, baik itu di perkantoran, rumah sakit dan lain-lain.

tidak usah panjang lebar lagi kita mulai project yang akan kita buat

1. Buat lah Database mhs.mdb dengan nama tabel "TBLMAHASISWA" ( tanpa tanda petik )
    fieldsnya =>    NAMA, ALAMAT, TGL_LAHIR, AGAMA, TELPON
2. Buat project aplikasi baru pada Vb.net anda
2. Designlah project Fom1 seperti gambar dibawah ini

 

Jika sudah Copas deh script dibawah ini  ke project anda:

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Dim objCommand As New OleDbCommand

   

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        conect = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VB.NET_project\database\coba\db\mhs.mdb")

        objCommand.Connection = conect

        conect.Open()

        objDataset = New DataSet

        objDataAdapter = New OleDbDataAdapter("select * from TBLMAHASISWA", conect)

        objDataAdapter.Fill(objDataset, "TBLMAHASISWA")

        objDataView = New DataView(objDataset.Tables("TBLMAHASISWA"))

        DataGridView1.DataSource = objDataView

        conect.Close()

        With comboagama

            .Items.Add("Islam")

            .Items.Add("Kristen")

            .Items.Add("Katolik")

            .Items.Add("Hindu")

            .Items.Add("Budha")

        End With

    End Sub

    Private Sub bersih()

        Dim x As Control

        For Each x In Me.Controls

            If TypeOf x Is TextBox Then x.Text = ""

        Next

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        objCommand.Connection = conect

        conect.Open()

        strSQL = "insert into TBLMAHASISWA values('" & txtnama.Text & "','" & txtalamat.Text & "','" & _

        DateTimePicker1.Value & "','" & comboagama.Text & "','" & TextBox5.Text & "')"

        objCommand.CommandText = strSQL

        objCommand.ExecuteNonQuery()

        conect.Close()

    End Sub      

Silahkan running project ( Tekan F5 )

Kemudian isi data pada textbox lalu simpan,,lihat perubahan yang terjadi.

Jika anda malas membuatnya silahkan download sourcecode lengkapnya  di sini