UTS Visual Basic Web dengan MS. Word & Ms. Excel

1. Tujuan Dibuat Web Rabbani Cell ialah untuk mempermudah pelanggan dalam membeli sebuah item di toko rabbani cell. Web rabbani cell juga untuk membantu memper,udah rekan2 rabbani cell untuk menginput data supaya data stok toko terlihat jelas.

2.

3. Imports System.Data

Imports System.Data.OleDb

Imports System.Web

Imports Word = Microsoft.Office.Interop.Word

Imports Excel = Microsoft.Office.Interop.Excel

Public Class About

    Inherits Page

    Dim koneksi As String = “PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =D:/data/penjualan.mdb”

    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click

        Dim Appnya As New Word.Application

        Dim Dokumennya As Word.Document

        Dokumennya = Appnya.Documents.Open(“D:\Data\penjualan.docx”)

        Dokumennya.Bookmarks(“namacustomer”).Select()

        Appnya.Selection.TypeText("Nama pembeli : " + txtNama.Text)

        Dokumennya.Bookmarks(“produk”).Select()

        Appnya.Selection.TypeText("Nama Barang : " + lsBarang.SelectedItem.Text)

        Dokumennya.Bookmarks(“harga”).Select()

        Appnya.Selection.TypeText("Harga Barang : " + txtHarga.Text)

        Dokumennya.Bookmarks(“jumlah”).Select()

        Appnya.Selection.TypeText("Jumlah Barang : " + txtJumlah.Text)

        Dokumennya.Bookmarks(“total”).Select()

        Appnya.Selection.TypeText("Total : " + txtTotal.Text)

        Dokumennya.SaveAs(“D:\Data\penjualan.docx”)

        MsgBox(“Data Berhasil Disimpan”)

        Appnya.Visible = True

    End Sub

    Protected Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click

        Dim AppExcelnya As New Excel.Application

        Dim ExcelWB As Excel.Workbook

        ExcelWB = AppExcelnya.Workbooks.Open(“D:\Data\penjualan.xlsx”)

        AppExcelnya.Range(“A2”).Value = txtNama.Text

        AppExcelnya.Range(“B2”).Value = lsBarang.Text

        AppExcelnya.Range(“C2”).Value = txtHarga.Text

        AppExcelnya.Range(“D2”).Value = txtJumlah.Text

        AppExcelnya.Range(“E2”).Value = txtTotal.Text

        ExcelWB.SaveAs(“D:\Data\penjualan.xlsx”)

        MsgBox(“Data Berhasil Disimpan”)

        AppExcelnya.Visible = True

    End Sub

    Protected Sub btnAccess_Click(sender As Object, e As EventArgs) Handles btnAccess.Click

        objekkoneksi.Close()

        Try

            objekkoneksi.Open()

            Dim tambah As String = ” INSERT INTO penjualan values ('" & txtNama.Text & "','" & lsBarang.SelectedItem.ToString() _

                & "','" & txtHarga.Text & "','" & txtJumlah.Text & "','" & txtTotal.Text & "') ”

            Dim oCmd = New OleDbCommand(tambah, objekkoneksi)

            oCmd.ExecuteNonQuery()

            objekkoneksi.Close()

            MsgBox(“Sukses”)

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

End Class

5.

Export

Home Page

\