Labels

Minggu, 24 April 2011

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




Related Posts Plugin for WordPress, Blogger...