BElAjaR VISUAL BASIC DI http://www.mesran.blogspot.com

Yuk ,, belajar program sama-sama ...
Assalamu'alaikum . wr . wb !
salam kenal buat teman-teman semua :) disini saya akan mempostingkan mengenai tentang pembelajaran visual basic .
gak sulit dan gak payah kok buat belajar visual basic selagi kita benar-benar berusaha dan memahami nya ....
saya juga awalnya kesulitan untuk memahami nya , tapi rasa penasaran dan ingin tahu begitu besar  hingga saya bertanya pada teman-teman
yang memang paham tentang pemrograman visual basic ini , Di mesran.blogspot.com banyak sekali mengulas tentang pembelajaran
mengenai pemrograman visual basic . yuk mari kita belajar sama-sama buat lebih memahami nya :)

Wassalamu'alaikum .

JAWABAN DARI SOAL KUIS MATA KULIAH VISUAL BASIC 2

SOAL :

Buatlah program yang berorientasi pada Dabtabase Access untuk menyimpan data SISWA

JAWABAN :

Imports System.Data.OleDb
Public Class frmsiswa
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DS As New DataSet
    Dim sql As String
    Public DR As OleDbDataReader
    Public Sub openDB()
        Dim LOKASI = "provider=microsoft.jet.OLEDB.4.0;Data Source=C:\quis\DBsiswa.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub
    Sub TampilRecordSiswa()
        ADP = New OleDbDataAdapter("SELECT*From siswa order by nis", 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 buttonedit()
        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 = ""
        nama.Text = ""
        alamat.Text = ""
        namawali.Text = ""
        tgllhair.Text = ""
        agama.Text = ""
        jeniskelamin.Text = ""
        Call buttonbaru()
    End Sub
    Private Sub frmsiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call openDB()
        Call hapustext()
        Call TampilRecordSiswa()
        agama.Items.Add("Islam")
        agama.Items.Add("Kristen Protestan")
        agama.Items.Add("Kristen Katolik")
        agama.Items.Add("Hindu")
        agama.Items.Add("Budha")
        jeniskelamin.Items.Add("Perempuan")
        jeniskelamin.Items.Add("Laki-Laki")
    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 TampilRecordSiswa()
    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 btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call hapustext()
        nis.Focus()
    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 xnis 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
                nama.Text = DR.Item(1)
                alamat.Text = DR.Item(2)
                namawali.Text = DR.Item(3)
                tgllhair.Text = DR.Item(4)
                agama.Text = DR.Item(5)
                jeniskelamin.Text = DR.Item(6)
                Call buttonedit()
                MsgBox("Data Ditemukan !")

            Else
                xnis = nis.Text
                Call hapustext()
                nis.Text = xnis
                Call buttonsimpan()
            End If
            nama.Focus()
        End If
    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 btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click
        sql = "update siswa set Nama='" & nama.Text & "'," & _
                                    "alamat='" & alamat.Text & "'," & _
                                    "namawali='" & namawali.Text & "'," & _
                                     "tgllahir='" & tgllhair.Text & "'," & _
                                      "agama='" & agama.Text & "'," & _
                                       "jeniskelamin='" & jeniskelamin.Text & "'" & _
                                    "where nis='" & nis.Text & "'"
        CMD = New OleDbCommand(sql, DB)
        CMD.ExecuteNonQuery()
        Call TampilRecordSiswa()
    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,alamat,namawali,tgllahir,agama,jeniskelamin)" & _
                                 " values ('" & nis.Text & "','" & _
                                   nama.Text & "','" & _
                                   alamat.Text & "','" & _
                                   namawali.Text & "','" & _
                                   tgllhair.Text & "','" & _
                                   agama.Text & "','" & _
                                   jeniskelamin.Text & "')"
        CMD = New OleDbCommand(sql, DB)
        CMD.ExecuteNonQuery()
        Call btnbaru_Click(sender, e)
        Call TampilRecordSiswa()
    End Sub

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

    End Sub
End Class

 

 Demikianlah hasil postingan saya kali ini (NAMA : PANCARIA HERYANISA [1202047]  KELAS : MI-P1201)