Pertemuan 13, 18 Mei 2015 : Koneksi ke database menggunakan Acces dengan vb.net

Pada kesesmpatan kali ini saya akan menjelaskan tutorial tentang koneksi ke database dalam VB.net 2008. 
- Langkah pertama buatlah form lalu design seperti dibawah ini : 

Lalu deklarasikan code dibawah ini:

Dim cnn As New OleDb.OleDbConnection
    Dim provider As String
    Dim dataFile As String
    Dim connString As String
    Public myConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection
    Public dr As OleDb.OleDbDataReader

masukan kode pada button close.

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

masukan kode pada button add .

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim cmd As New OleDb.OleDbCommand
        If Not cnn.State = ConnectionState.Open Then
            'open connection if it is not yet open
            cnn.Open()
        End If

        cmd.Connection = cnn
        'check whether add new or update
        If Me.txtstdID.Tag & "" = "" Then
            'add new 
            'add data to table
            cmd.CommandText = "INSERT INTO student(stdid, stdname, gender, phone, address) " & _
                            " VALUES(" & Me.txtstdID.Text & ",'" & Me.txtStdName.Text & "','" & _
                            Me.cboGender.Text & "','" & Me.txtPhone.Text & "','" & _
                            Me.txtAddress.Text & "')"
            cmd.ExecuteNonQuery()
        Else
            'update data in table
            cmd.CommandText = "UPDATE student " & _
                        " SET stdid=" & Me.txtstdID.Text & _
                        ", stdname='" & Me.txtStdName.Text & "'" & _
                        ", gender='" & Me.cboGender.Text & "'" & _
                        ", phone='" & Me.txtPhone.Text & "'" & _
                        ", address='" & Me.txtAddress.Text & "'" & _
                        " WHERE stdid=" & Me.txtstdID.Tag
            cmd.ExecuteNonQuery()
        End If
        'refresh data in list
        RefreshData()
        'clear form
        Me.btnClear.PerformClick()

        'close connection
        cnn.Close()
    End Sub

masukan kode pada button clear .

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        Me.txtstdID.Text = ""
        Me.txtStdName.Text = ""
        Me.txtPhone.Text = ""
        Me.txtAddress.Text = ""
        Me.txtstdID.Tag = ""
        'enable button edit
        Me.btnEdit.Enabled = True
        'set button add to add label
        Me.btnAdd.Text = "Add"
        '
        Me.txtstdID.Focus()
    End Sub

masukan kode pada button edit .

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        'check for the selected item in list
        If Me.dgvData.Rows.Count > 0 Then
            If Me.dgvData.SelectedRows.Count > 0 Then
                Dim intStdID As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value
                'get data from database followed by student id
                'open connection
                If Not cnn.State = ConnectionState.Open Then
                    cnn.Open()
                End If
                'get data into datatable
                Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM student " & _
                                                     " WHERE stdid=" & intStdID, cnn)
                Dim dt As New DataTable
                da.Fill(dt)

                Me.txtstdID.Text = intStdID
                Me.txtStdName.Text = dt.Rows(0).Item("stdname")
                Me.cboGender.Text = dt.Rows(0).Item("gender")
                Me.txtPhone.Text = dt.Rows(0).Item("phone")
                Me.txtAddress.Text = dt.Rows(0).Item("address")
                '
                'hide the id to be edited in TAG of txtstdid in case id is changed
                Me.txtstdID.Tag = intStdID
                'change button add to update
                Me.btnAdd.Text = "Update"
                'disable button edit
                Me.btnEdit.Enabled = False
                'close connection
                cnn.Close()
            End If
        End If
    End Sub

masukan kode pada button delete .

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        'check for the selected item in list
        If Me.dgvData.Rows.Count > 0 Then
            If Me.dgvData.SelectedRows.Count > 0 Then
                Dim intStdID As Integer = Me.dgvData.SelectedRows(0).Cells("id").Value
                'open connection
                If Not cnn.State = ConnectionState.Open Then
                    cnn.Open()
                End If

                'delete data
                Dim cmd As New OleDb.OleDbCommand
                cmd.Connection = cnn
                cmd.CommandText = "DELETE FROM student WHERE stdid=" & intStdID
                cmd.ExecuteNonQuery()
                'refresh data
                Me.RefreshData()

                'close connection
                cnn.Close()
            End If
        End If
    End Sub

masukan kode pada button formload .

Private Sub frmStudent_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cnn = New OleDb.OleDbConnection
        cnn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Application.StartupPath & "\data.mdb"
        '
        'get data into list
        Me.RefreshData()
    End Sub

- Setelah di running maka akan menghasilkan outputan seperti dibawah ini

Selamat Mencoba!!! Semoga bermanfaat !!

Pertemuan 12, 11 Mei 2015 : Membuat file.txt dan menyimpan data pada notepad di VB.net

saya akan membuat tutorial cara membuat aplikasi untuk menyimpan data di notepad Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut : 
1. Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, ganti nama projectnya menjadi Empolyee Data. Kemudian klik ok. 

Ganti nama formnya dengan RecordEmployeeData. Buat tampilan formnya seperti ini. 

Terdiri dari 8 label, 7 textbox, 1 combobox, 1 groupbox, dan 3 button. 
Kemudian di formnya sisipkan SaveFileDialog yang ada di toolbox dialog. 
Kemudian masukan kodingnya untuk masing-masing button . Untuk button Save Recordkodingnya adalah sebebagai berikut : 

Private Sub btnSaveRecord_Click(sender As System.Object, e As System.EventArgs) Handles btnSaveRecord.Click
        ' Save the document
        SaveDocument()
        MessageBox.Show("Data Saved")
    End Sub

Untuk button Clear kodingnya adalah sebebagai berikut : 

Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
        ClearDocument()
    End Sub

Untuk button Exit kodingnya adalah sebebagai berikut : 

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        ' Close the form.
        Me.Close()
    End Sub

Lalu buat procedure dengan nama SaveDocument. 

Sub SaveDocument()
        Dim outputFile As StreamWriter          ' Object variable

        Try
            ' Create the file.
' tempat penyimpanan file yang di save

            outputFile = File.AppendText("D:\piki\Emlpoyee data.txt") 


            ' Write the TextBox to the file.
            outputFile.WriteLine(txtFirst.Text)
            outputFile.WriteLine(txtMiddle.Text)
            outputFile.WriteLine(txtLast.Text)
            outputFile.WriteLine(txtEmployeeNumber.Text)
            outputFile.WriteLine(cboDepartment.Text)
            outputFile.WriteLine(txtTelephone.Text)
            outputFile.WriteLine(txtExtension.Text)
            outputFile.WriteLine(txtEmail.Text)

            ' Close the file.
            outputFile.Close()

        Catch
            ' Error message for file creation error.
            MessageBox.Show("Error creating the file.")
        End Try
    End Sub

Buat lagi procedure dengan nama ClearDocument. 

Sub ClearDocument()
        ' Clear the contents of the text box.
        txtFirst.Clear()
        txtMiddle.Clear()
        txtLast.Clear()
        txtEmployeeNumber.Clear()
        cboDepartment.ResetText()
        txtTelephone.Clear()
        txtExtension.Clear()
        txtEmail.Clear()

2. Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya ReadEmployeeData. 

Lalu buat tampilan formnya seperti ini. 

Terdiri dari 9 label, 9 textbox, 1 groupbox, dan 3 button. 
semua textbox yang ada di form ReadEmployeeData bersifat ReadOnly. 
Kemudian masukan kodingnya untuk masing-masing button . 
Untuk button Next Record kodingnya adalah sebebagai berikut : 

Private Sub btnNextRecord_Click(sender As System.Object, e As System.EventArgs) Handles btnNextRecord.Click
        ' Increment intCount.
        Dim intCount = 1
        lblRecord.Text = CStr(intCount)

        Dim FILE_NAME As String = "D:\piki\Emlpoyee data.txt"

        If System.IO.File.Exists(FILE_NAME) = True Then
            Dim inputFile As New System.IO.StreamReader(FILE_NAME)
        Else
            MsgBox("File Does Not Exist")
        End If

        ' Open the file.    
        inputFile = File.OpenText("D:\piki\Emlpoyee data.txt")

        recordCounter = recordCounter + 1

        Dim currentRecord As Integer = 0

        Do While (inputFile.Peek() >= 1 Or currentRecord < recordCounter)

            ' Read the file's contents into the TextBox.
            lblFirst.Text = inputFile.ReadLine()
            lblMiddle.Text = inputFile.ReadLine()
            lblLast.Text = inputFile.ReadLine()
            lblEmployee.Text = inputFile.ReadLine()
            lblDepartment.Text = inputFile.ReadLine()
            lblTelephone.Text = inputFile.ReadLine()
            lblExtension.Text = inputFile.ReadLine()
            lblEmail.Text = inputFile.ReadLine()
            currentRecord = currentRecord + 1
        Loop
        inputFile.Close()
    End Sub

Untuk button Clear kodingnya adalah sebebagai berikut : 

Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
        ' Clear form
        lblFirst.Text = String.Empty
        lblMiddle.Text = String.Empty
        lblLast.Text = String.Empty
        lblEmployee.Text = String.Empty
        lblDepartment.Text = String.Empty
        lblTelephone.Text = String.Empty
        lblExtension.Text = String.Empty
        lblEmail.Text = String.Empty
    End Sub

Untuk button Exit kodingnya adalah sebebagai berikut 

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        ' Close Form
        Me.Close()
    End Sub

kemudian deklarasikan variabel berikut di public class. 

Public Class ReadEmployeeData

    Dim recordCounter As Integer = 0
    Dim inputFile As StreamReader           ' Object variable

3. Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya MainMenu. 

lalu buat tampilan formnya seperti ini. 

Kemudian masukan kodingnya untuk masing-masing button. 
Untuk button Record Employee Data kodingnya adalah sebagai berikut : 

Private Sub btnRecordData_Click(sender As System.Object, e As System.EventArgs) Handles btnRecordData.Click
        ' Create an instance of the RecordData.
        Dim frmRecordData As New RecordEmployeeData

        ' Display the RecordData in modal style.
        frmRecordData.ShowDialog()
    End Sub

Untuk button Read Employee Data kodingnya adalah sebagai berikut : 

Private Sub btnReadData_Click(sender As System.Object, e As System.EventArgs) Handles btnReadData.Click
        ' Create an instance of the ReadData.
        Dim frmReadData As New ReadEmployeeData

        ' Display the ReadData in modal style.
        frmReadData.ShowDialog()
    End Sub

Untuk button Exit kodingnya adalah sebagai berikut : 

Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
        ' Close the form.
        Me.Close()
    End Sub

4. Lalu Run programnya. 

Pertemuan 12, 11 Mei 2015 : Tutorial Tutorial Min and Max dan Curah Hujan Menggunakan array pada Vb.net

saya akan membuat tutorial cara membuat aplikasi menampilkan Nilai MinMax dan Perkiraan Cuaca menggunakan Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut: 
1.Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application,ganti nama projectnya menjadi Array MultiDimensi. Kemudian klik ok. 

Ganti nama formnya dengan Array Max_Min Buat tampilan formnya seperti ini. 

•Terdiri dari 4 button , 1 listbox, dan 1 textbox. 
•Textboxnya read only. 
•Ubah name listbox menjadi lstInt. Kemudian masukan kodingnya untuk masing-masing button . Untuk button Input The Integer kodingnya adalah sebebagai berikut : 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intInput As Integer
        intInput = Val(InputBox("Masukan Angka :"))
        lstInt.Items.Add(intInput)

        indexArray = intInput
    End Sub

Untuk Button Display Min and Max kodingnya adalah sebagai berikut : 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim high As Decimal = Decimal.MinValue
        Dim min As Decimal = Decimal.MaxValue

        For Each item As Decimal In lstInt.Items
            high = Math.Max(high, item)
            min = Math.Min(min, item)

        Next
        txtview.Text = " Nilai Max " + high.ToString + " dan " + " Nilai Min " + min.ToString
    End Sub

 

Untuk button Clear kodingnya adalah sebagai berikut : 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        lstInt.Items.Clear()
        txtview.Clear()
    End Sub

Untuk button Exit kodingnya adalah sebagai berikut : 

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

2.Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Curah_hujan. 

lalu buat tampilannya formnya seperti ini. 

-Terdiri dari 4 Button, 4 Label, 1 GroupBox, 1 ListBox. 
-Ubah nama text groupbox menjadi Perkiraan Cuaca. 
-Ubah name listbox1 menjadi lstHujan. Kemudian masukan kodingnya untuk masing-masing button. Untuk button Masukan angka Perkiraan Cuaca kodingnya adalah sebagai berikut : 

Private Sub btnHujan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHujan.Click
        Dim intCount As Integer
        Dim intRain As Integer


        lstHujan.Items.Add("Curah Hujan Per Bulan")
        lstHujan.Items.Add("-----------------------------------")


        For intCount = 0 To 11
            intRain = Val(InputBox("Masukan Tingginya Curah Hujan Untuk Bulan " & strMonths(intCount)))
            lstHujan.Items.Add(strMonths(intCount) & " " & (intRain).ToString())
            intMonths(intCount) = intRain
        Next intCount

    End Sub

Untuk button Tampilkan Data kodingnya adalah sebagai berikut : 

Private Sub btnTampilkan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTampilkan.Click
        Dim intCount As Integer
        Dim intMaximum As Integer = intMonths(0)
        Dim intMinimum As Integer = intMonths(0)
        Dim dblAverage As Double
        Dim intTotal As Integer = 0

        'calculate maximum

        For intCount = 1 To (intMonths.Length - 1)
            If intMonths(intCount) > intMaximum Then
                intMaximum = intMonths(intCount)
            End If
        Next intCount

        'calculate(minimum)
        For intCount = 1 To (strMonths.Length - 1)
            If intMonths(intCount) < intMinimum Then
                intMinimum = intMonths(intCount)
            End If
        Next intCount

        'calculate average
        For intCount = 1 To (strMonths.Length - 1)
            intTotal += intMonths(intCount)
        Next intCount
        'use floating-point division to compute the average
        dblAverage = (intTotal / strMonths.Length)

        'calculate total rainfall
        For intCount = 1 To (strMonths.Length - 1)
            intTotal += intMonths(intCount)
        Next intCount

        lblRata.Visible = True
        lblTotal.Visible = True
        lblMin.Visible = True
        lblMax.Visible = True

        lblRata.Text = "Rata-Rata Curah Hujan Bulanan " & dblAverage
        lblTotal.Text = "Total Curah Hujan per Tahun " & intTotal
        lblMin.Text = "Curah Hujan Paling Rendah " & intMinimum
        lblMax.Text = "Curah Hujan Paling Tinggi " & intMaximum
    End Sub

Untuk button Clear kodingnya adalah sebagai berikut : 

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        lstHujan.Items.Clear()
    End Sub

Untuk button Exit kodingnya adalah sebagai berikut : 

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        If MessageBox.Show("Apakah Anda Ingin Keluar Dari Keluar ?", "Confirm", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        End If
    End Sub

3.Kemudian kita membuat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya MainMenu. 

Lalu buat tampilan formnya seperti ini. 

Kemudian masukan kodingnya untuk masing-masing button. Untuk button Min Max kodingnya adalah sebagai berikut : 

Private Sub btnMinMax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinMax.Click
        MaxMin.Show()
    End Sub

Untuk button Min Max kodingnya adalah sebagai berikut : 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCurah.Click
        Curah_hujan.Show()
    End Sub

Untuk button Exit kodingnya adalah sebagai berikut : 

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

4.Setelah itu Run Programnya.