Setelah membuat form yang sebelumnya, tambahkan Text Box dan button save pada form tersebut. Seperti berikut:
Ganti nama Textbox diatas sesuai label di sampingnya. Misal:
Textbox1 = nip
Textbox2 = nama
Textbox3 = alamat
Kemudian double klik pada button save. Maukan kode berikut:
Dim myCommand As New OleDbCommand
Dim SQL As String
Try
If Not con.State = ConnectionState.Open Then koneksi()
SQL = "INSERT INTO daftar (NIP, NAMA, ALAMAT) VALUES " & _
"('" & nip.Text & "', '" & nama.Text & "', '" & alamat.Text & "')"
myCommand.Connection = con
myCommand.CommandText = SQL
myCommand.ExecuteNonQuery()
nip.Text = String.Empty
nama.Text = String.Empty
alamat.Text = String.Empty
Data_Load()
con.Close()
Catch myerror As OleDbException
MessageBox.Show("Error: " & myerror.Message)
Finally
con.Dispose()
End Try
End Sub
Kode "insert into" dimaksudkan untuk menginput data. sedangkan "daftar" setelah "insert into" adalah nama tabel yang telah kalian buat. Sedangkan Data_Load() adalah kode yang telah kita buat pada artikel sebelumnya. Jadi saat mengklik button save, otomatis langsung akan memunculkan data.
Sekarang kalian sudah bisa langsung run programnya untuk memastikan bahwa kode kalian benar. Hasilnya akan seperti ini:
Bagaimana? Apakah kalian berhasil mencobanya? Semoga artikel kali ini bermanfaat ya. Sampai jumpa di tutorial selanjutnya.
Author: Bela Pertiwi Larashati
0 komentar: