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.
