Form 1 CODING :
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
Dim koneksi As String = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\USER\Documents\ALIFDBBISMILLAH.accdb”
Dim objekKoneksi As New OleDb.OleDbConnection(koneksi)
Dim xReader As OleDbDataReader
Private Sub button1add_Click(sender As Object, e As EventArgs) Handles button1add.Click
If button1add.Text = “Add” Then
TextBox5npm.Clear()
TextBox4nama.Clear()
TextBox3angkatan.Clear()
TextBox2jurusan.Clear()
TextBox1fakultas.Clear()
ComboBox1jeniskelamin.Text = “”
button1add.Text = “Save”
TextBox5npm.Focus()
Else
button1add.Text = “Add”
objekKoneksi.Open()
Dim tambah As String = “Insert Into DataMahasiswa values(‘” & TextBox5npm.Text & “‘, ‘” & TextBox4nama.Text & “‘, ‘” & TextBox3angkatan.Text & “‘, ‘” & TextBox2jurusan.Text & “‘, ‘” & TextBox1fakultas.Text & “‘, ‘” & ComboBox1jeniskelamin.Text & “‘)”
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox(“Success”)
End If
End Sub
Private Sub button2find_Click(sender As Object, e As EventArgs) Handles button2find.Click
Dim nama As String = InputBox(“Masukkan Nama Mahasiswanya”)
If Not Len(nama) = 0 Then
‘Tutup dan buka koneksi ke database
objekKoneksi.Close()
objekKoneksi.Open()
‘Perintah SQL untuk menampilkan berdasarkan kriteria
Dim cari As String = “Select* from DataMahasiswa where Nama='” + nama + “‘”
Dim ocmd = New OleDbCommand(cari, objekKoneksi)
xReader = ocmd.ExecuteReader
‘JIKA PERINTAH SELECT DITEMUKAN TAMPILKAN KE TEXTBOX MASING2NYA
If xReader.HasRows Then
xReader.Read()
TextBox4nama.Text = xReader(“Nama”)
TextBox5npm.Text = xReader(“NPM”)
TextBox3angkatan.Text = xReader(“Angkatan”)
TextBox2jurusan.Text = xReader(“Jurusan”)
TextBox1fakultas.Text = xReader(“Fakultas”)
ComboBox1jeniskelamin.Text = xReader(“JenisKelamin”)
‘jika tidak ditemukan tampilan pesan
Else
MsgBox(“Data Mahasiswa Tidak Tersedia”)
Exit Sub
End If
‘tutup perintah pembacaan
xReader.Close()
End If
End Sub
Private Sub Button4edit_Click(sender As Object, e As EventArgs) Handles Button4edit.Click
objekKoneksi.Close()
objekKoneksi.Open()
Dim ubah As String = “update DataMahasiswa set Jurusan='” & TextBox2jurusan.Text & “‘ where Nama= ‘” & TextBox4nama.Text & ” ‘ ”
Dim oCmd = New OleDbCommand(ubah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox(“Berhasil”)
End Sub
Private Sub Button1delete_Click(sender As Object, e As EventArgs) Handles Button1delete.Click
Dim hapus As String = “Delete From [DataMahasiswa] where [Nama]='” & TextBox4nama.Text & “‘”
Dim oCMD = New OleDbCommand(hapus, objekKoneksi)
oCMD.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox(“Berhasil”)
End Sub
Private Sub Button2view_Click(sender As Object, e As EventArgs) Handles Button2view.Click
form_database.Show()
End Sub
Private Sub Button1exit_Click(sender As Object, e As EventArgs) Handles Button1exit.Click
Me.Close()
End Sub
Private Sub Button3print_Click(sender As Object, e As EventArgs) Handles Button3print.Click
form_report.Show()
End Sub
End Class
FORM DATABASE CODING :
Public Class form_database
Private Sub DataMahasiswaBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles DataMahasiswaBindingNavigatorSaveItem.Click
Me.Validate()
Me.DataMahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.ALIFDBBISMILLAHDataSet)
End Sub
Private Sub form_database_Load(sender As Object, e As EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘ALIFDBBISMILLAHDataSet.DataMahasiswa’ table. You can move, or remove it, as needed.
Me.DataMahasiswaTableAdapter.Fill(Me.ALIFDBBISMILLAHDataSet.DataMahasiswa)
End Sub
End Class
FORM REPORT
Public Class form_report
Private Sub form_report_Load(sender As Object, e As EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘ALIFDBBISMILLAHDataSet1.DataMahasiswa’ table. You can move, or remove it, as needed.
Me.DataMahasiswaTableAdapter.Fill(Me.ALIFDBBISMILLAHDataSet1.DataMahasiswa)
Me.ReportViewer1.RefreshReport()
End Sub
End Class