Private Sub btnTambah_Click(sender As Object, e As EventArgs) Handles btnTambah.Click
If txtKodeGuru.Text = "" Then
MessageBox.Show("Data Belum Diisi", "Eror!!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Try
Call Koneksi()
DML.Connection = Database
DML.CommandType = CommandType.Text
DML.CommandText = "insert into TblGuru values ('" & txtKodeGuru.Text & "','" & txtNIP.Text & "','" & txtNama.Text & "','" & txtAlamat.Text & "','" & txtTelp.Text & "')"
DML.ExecuteNonQuery()
MessageBox.Show("Data Baru Telah Disimpan", "Penyimpanan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call Atur()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub