Belajar Visual Basic di http://www.mesran.blogspot.com

Assalamu'alaikum.
Disini saya akan mempostingkan tentang belajar Visual Basic. Banyak yang bilang belajar Visual Basic itu susah, tapi jika kita mau mempelajarinya pasti akan terasa mudah. Di mesran.blogspot.com anda dapat belajar tentang cara belajar Visual Basic dengan mudah.

Jawaban Quiz Online VB II

Soal :

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

Jawaban Program :

 

 

 Imports System.Data.OleDb
Public Class form3
    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:\fitri\QUIZ\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 = ""
        tgl_lahir.Text = ""
        agama.Text = ""
        jeniskelamin.Text = ""
        Call ButtonBaru()
    End Sub

    Private Sub form3_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,namasiswa,alamat,namawali,tgl_lahir,agama,jeniskelamin)" & _
        "values ('" & nis.Text & "','" & _
        namasiswa.Text & "','" & _
        alamat.Text & "','" & _
        namawali.Text & "','" & _
        tgl_lahir.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 namasiswa='" & namasiswa.Text & "', " & _
                     " alamat='" & alamat.Text & "', " & _
                     " namawali='" & namawali.Text & "', " & _
                     " tgl_lahir='" & tgl_lahir.Text & "', " & _
                     " jeniskelamin='" & 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("namasiswa")
                alamat.Text = DR("alamat")
                namawali.Text = DR("namawali")
                tgl_lahir.Text = DR("tgl_lahir")
                agama.Text = DR("agama")
                jeniskelamin.Text = DR("jeniskelamin")
                Call BunttonEdit()
                MsgBox("Dataditemukan ! ")

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

    Private Sub nis_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nis.TextChanged

    End Sub
End Class

Demikianlah postingan saya, ( NAMA : Fitri Indriyani, NPM : 1202202, Kelas : MI-P1201 )