Module_DataMahasiswa

' Import OleDb untuk komunikasi dengan Ms. Access
Imports System.Data.OleDb

Module DataMahasiswa
    ' Module untuk menyimpapan variable global
    ' Supaya bisa diakses disemua form

    ' dbPath >> Akses ke tempan databse .accdb disimpan
    ' connectionString >> Untuk menghubungkan VB dengan database
    Public dbPath As String = Application.StartupPath & "\akhir.accdb"
    Public ReadOnly connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source=" & dbPath

    ' Semua varibale yang akan disimpan dalam database.
    Public nama As String = ""
    Public tempatLahir As String = ""
    Public tanggalLahir As String = ""
    Public gender As String = ""
    Public agama As String = ""
    Public asalSekolah As String = ""
    Public noHP As String = ""
    Public alamat As String = ""
    Public email As String = ""
    Public namaAyah As String = ""
    Public namaIbu As String = ""
    Public noHPO As String = ""
    Public UktTerpilih As Decimal = 0.0

    ' Reset variable jika diperlukan
    ' Contoh: Saat selesai menyimpan dalam databas
    ' dan form tidak keluar akan tetapi kembali ke form pendaftaran
    ' Variable diatas harus dilakukan reset kembali tidak memiliki nilai
    Public Function ResetDataMahasiswa()
        nama = "" ' txtNama.Text
        tempatLahir = "" ' txtTempat.Text
        tanggalLahir = "" ' dtpTanggal.Value.ToString("dd MMMM yyyy")
        gender = "" ' If(rbtnLaki.Checked, "Laki-laki", If(rbtnPerempuan.Checked, "Perempuan", String.Empty))
        agama = "" ' cbAgama.SelectedItem?.ToString()
        asalSekolah = "" ' txtAsal.Text
        noHP = "" ' txtNo.Text
        alamat = "" ' txtAlamat.Text
        email = "" ' txtEmail.Text
        namaAyah = "" ' txtAyah.Text
        namaIbu = "" ' txtIbu.Text
        noHPO = "" ' txtNoHPO.Text
        UktTerpilih = 0.0

        Return True
    End Function

    ' Mengambil data dari databasi untuk ditampilkan kedalam gridView
    ' query >> query untuk mengambil data dari suatu table dalam database
    ' dataGridView >> DataGridView untuk menampilkan isi table
    ' Memanggi di form:
    ' 1 - Buat query table mana yang akan diambil data
    ' 2 - Panggil fungsi ini
    ' 3 - Argumen pertama query
    ' 4 - Argumen kedua nama dataGridView
    Public Sub LoadDataToDataGridView(query As String, dataGridView As DataGridView)
        ' Membuat koneksi dan adapter untuk mengambil data
        Using connection As New OleDbConnection(connectionString)
            Try
                ' Membuka koneksi ke database
                connection.Open()

                ' Menggunakan DataAdapter untuk mengisi DataTable
                Dim adapter As New OleDbDataAdapter(query, connection)
                Dim dataTable As New DataTable()
                adapter.Fill(dataTable)

                ' Menampilkan data di DataGridView
                dataGridView.DataSource = dataTable
            Catch ex As Exception
                MessageBox.Show("Error: " & ex.Message)
            Finally
                ' Menutup koneksi
                connection.Close()
            End Try
        End Using
    End Sub
End Module