Jawaban Quiz Online Visual Basic II

Soal:

Buatlah program yang berorientasi pada database Access untuk menyimpan data SISWA :

 

 

jawaban :

Imports System.Data.OleDb
Public Class Form1
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String
    Public Sub openDB()
        Dim LOKASI = "provider=microsoft.jet.OLEDB.4.0;Data Source=C:\devy\siswa.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub Recordsiswa()
        ADP = New OleDbDataAdapter("SELECT * FROM siswa", DB)
        DS = New DataSet
        ADP.Fill(DS, "siswa")
        DataGridView1.DataSource = DS.Tables("siswa")
    End Sub
    Sub ButtonBaru()
        btnbaru.Enabled = True
        btnsimpan.Enabled = False
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = False
        btnkeluar.Enabled = True
    End Sub
    Sub BunttonEdit()
        btnbaru.Enabled = False
        btnsimpan.Enabled = False
        btnedit.Enabled = True
        btnhapus.Enabled = True
        btnbatal.Enabled = True
        btnkeluar.Enabled = False
    End Sub
    Sub ButtonSimpan()
        btnbaru.Enabled = False
        btnsimpan.Enabled = True
        btnedit.Enabled = False
        btnhapus.Enabled = False
        btnbatal.Enabled = True
        btnkeluar.Enabled = False
    End Sub
    Sub HapusText()
        nis.Text = ""
        namasiswa.Text = ""
        alamat.Text = ""
        namawali.Text = ""
        tanggallahir.Text = ""
        agama.Text = ""
        jeniskelamin.Text = ""
        Call ButtonBaru()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call openDB()
        Call HapusText()
        Call Recordsiswa()
        agama.Items.Add("Islam")
        agama.Items.Add("Kristen")
        agama.Items.Add("Hindu")
        agama.Items.Add("Budha")
        jeniskelamin.Items.Add("Laki-Laki")
        jeniskelamin.Items.Add("Perempuan")
    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call HapusText()
        nis.Focus()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        SQL = "insert into siswa (nis,nama_siswa,alamat,nama_wali,tgl_lahir,agama,jenis_kelamin)" & _
        "values ('" & nis.Text & "','" & _
        namasiswa.Text & "','" & _
        alamat.Text & "','" & _
        namawali.Text & "','" & _
        tanggallahir.Text & "','" & _
        agama.Text & "','" & _
        jeniskelamin.Text & "')"


        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Recordsiswa()
    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        SQL = "UPDATE siswa SET nama_siswa='" & namasiswa.Text & "', " & _
                     " alamat='" & alamat.Text & "', " & _
                     " nama_wali='" & namawali.Text & "', " & _
                     " tgl_lahir='" & tanggallahir.Text & "', " & _
                     " jenis_kelamin='" & jeniskelamin.Text & "' " & _
                     " Where nis='" & nis.Text & "'"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Recordsiswa()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        SQL = "DELETE FROM siswa Where nis='" & nis.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call Recordsiswa()
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call HapusText()
        nis.Focus()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub nis_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nis.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xkode As String
        If tombol = 13 Then
            SQL = "SELECT * FROM siswa Where nis='" & nis.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                namasiswa.Text = DR("nama_siswa")
                alamat.Text = DR("alamat")
                namawali.Text = DR("nama_wali")
                tanggallahir.Text = DR("tgl_lahir")
                agama.Text = DR("agama")
                jeniskelamin.Text = DR("jenis_kelamin")
                Call BunttonEdit()
                MsgBox("Data Ditemukan !!!!!! ")

            Else
                xkode = nis.Text
                Call HapusText()
                nis.Text = xkode
                Call ButtonSimpan()
            End If
            DR.Close()
            namasiswa.Focus()
        End If
    End Sub
End Class

 

Demikianlah hasil postingan saya Nama:Devi Yanti Simanjuntak, Npm:1202226, Kelas :MI-P1201