Membuat Aplikasi Sederhana Menggunakan Database Acces

Untuk mengisi waktu luang, saya mengajak Anda untuk menuangkan tulisan di dalam Aplikasi Visaul Basic.Net 2008, kali ini saya mengajak anda belajar VB.Net 2008 Lanjutan dimana pada VB.Net 2008 lanjutan ini kita akan membahasnya menggunakan database Acces. Pembelajaran ini saya dapatkan dari seorang guru besar dikampus saya yaitu : Bapak Mesran,S.KOM,M.KOM

Bagaimana caranya inilah program sederhana yang saya buat,dengan rincian : 

1. Database Name : DBMahasiswa.mdb

2. Inilah gambarnya

Inilah Source Codenya :

Imports System.Data.OleDb

Public Class Form1

    Dim db As OleDbConnection

    Dim cmd As OleDbCommand

    Dim adp As OleDbDataAdapter

    Dim rs As OleDbDataReader

    Dim ds As New DataSet

    Dim sql As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        OpenDB()

        TampilMHS()

        Baru_Click(sender, e)

    End Sub

    Sub OpenDB()

        Dim lokasi = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DBMahasiswa.mdb"

        db = New OleDbConnection(lokasi)

        If db.State = ConnectionState.Closed Then

            db.Open()

        End If

    End Sub

    Sub TampilMHS()

        adp = New OleDbDataAdapter("Select * From Mahasiswa", db)

        ds = New DataSet

        adp.Fill(ds, "Mahasiswa")

        DataGridView1.DataSource = ds.Tables("Mahasiswa")

    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        sql = "Insert Into Mahasiswa (NPM,Nama,Jenjang,Jurusan,Semester)" & _

                      " Values('" & NPM.Text & "','" & _

                                    Nama.Text & "','" & _

                                    Jenjang.Text & "','" & _

                                    Jenjang.Text & "','" & _

                                    Semester.Text & "')"

        cmd = New OleDbCommand(sql, db)

        cmd.ExecuteNonQuery()

        Baru_Click(sender, e)

        Call TampilMHS()

    End Sub

    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click

        sql = "Update Mahasiswa Set Nama='" & Nama.Text & "'," & _

                               " Jenjang='" & Jenjang.Text & "'," & _

                               " Jurusan='" & Jurusan.Text & "'," & _

                               " Semester='" & Semester.Text & "'," & _

                               " Where NPM='" & NPM.Text & "'"

        Try

            cmd = New OleDbCommand(sql, db)

            cmd.ExecuteNonQuery()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        Call Baru_Click(sender, e)

        Call TampilMHS()

    End Sub

LOOPING (PIRAMIDA)

Hello Semua, Sudah lama nih ngak buat artikel lagi, saya berharap semua dalam kedaan sehat dan sejahtera dalam kedamaian.

Nih saya mau Share nih mengenai VB. Net 2008 atau Visual Basic.Net 2008. Saya mau mencoba membuat suatu aplikasi sederhana, karna saya masih belajar maka saya berharap semua maklum dengan program yang sederhana saya kerjakan.... 

Pastinya sebelum membuat programnya tentulah harus menginstalkan dulu software yang mendukung pembuatannya.

Maka marilah kita belajar LOOPING/Perulangan dimana kita akan membuat perulangan 1 sampai 10 menggunkana bahasa VB.Net 2008.

Nih contoh gambarnya........

Source Codenya :


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i, x As Byte
        For i = 1 To Val(TextBox1.Text)
            For x = 1 To i
                lv.Items.Add(x)
            Next x
        Next i
    End Sub

 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        lv.Clear()
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub

 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim y, q, z As Byte
        y = 1
        q = Val(TextBox1.Text)
        TextBox2.Clear()
        Do While y <= q
            z = 1
            'TextBox2.Text = TextBox2.Text & Space(q - y)
            Do While z <= y
                TextBox2.Text = TextBox2.Text & " " & z
                z += 1
            Loop
            TextBox2.Text = TextBox2.Text & vbCrLf
            y += 1
        Loop
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        TextBox2.TextAlign = HorizontalAlignment.Center
    End Sub
End Class

Semoga berhasi ya, semoga bermanfaat ya.....????
Create By : ICHE GUSTIYANI