Pertama-tama kita design dulu formnya sebagai berikut :
Kemudian double klik pada tombol Simpan. dan masukkan coding berikut ini :
Imports System.Data.SqlClient
Public Class Form1
Dim Conn As New SqlConnection("Integrated Security=SSPI; Persist Security Info=True;" & _
"Initial Catalog=dbData; Data Source=(LOCAL)")
Dim Perintah As New SqlCommand
Dim Bacadata As SqlDataReader
Dim Cari As String
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
Dim JK As String
If rboLaki.Checked = True Then
JK = "Laki-Laki"
Else
JK = "Perempuan"
End If
Conn.Open()
Perintah.Connection = Conn
Perintah.CommandType = CommandType.Text
Perintah.CommandText = "INSERT INTO tbMhs VALUES ('" & txtNPM.Text & "','" & txtNama.Text & "','" & Format(DateTimePicker1.Value, "yyyy-MM-dd") & "','" & JK & "')"
Perintah.ExecuteNonQuery()
MessageBox.Show("Data Telah diSimpan")
Conn.Close()
End Sub
Query : INSERT INTO nama_tabel VALUES ('"& txt.text &"')
setelah itu mari kita coba debug / jalankan program kita. kemudian kita isi data-data yang kita perlukan :
Kemudian kita tekan tombol simpan. apabila muncul kotak pesan Data Telah Disimpan. maka anda telah berhasil menginput data ke dalam database. :)
