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 terjad
Tidak ada komentar:
Posting Komentar