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 anda malas membuatnya silahkan download sourcecode lengkapnya di sini
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.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :