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