Tugas Visual Basic 2

Tugas VB2 kali ini adalah tentang koneksi VB.net dengan Microsoft Access, kita dapat mengakses file akses dan menampilkannya pada program VB, berikut adalah langkah-langkahnya :

1. Siapkan database yang ingin dikoneksikan dengan VB :

2. Buat form baru :

3. Masukkan Data Source seperti gambar berikut :

4. Koneksikan Databse yang telah dimasukkan :

5. Contreng tabel yang ingin dimasukkan :

6. Drag and Drop Tabel Datagrid dan Details :

7.  Ketika dijalankan maka akan tampil seperti ini :

8. Buat form baru dan buat button print

9. Buat Report Wizard > Klik add

10. Setelah itu klik Next :

11. Klik Next lagi :

12. Klik Next :

13. Pindahkan Primary key : Kode dari kesebelah kanan :

14. Klik Next :

15. Klik Next :

16. Klik Finish :

17. Kemudian akan tampil seperti berikut :

18. Kemudian masukkan microsoftreportviewer pada form 2 dan masukkan databasenya :

19. Kemudian masukkan coding pada button "print untuk menampilkan report :

 

20. Ketika program dijalankan maka akan tampil sepeti berikut :

Connecting VB.net to microsoft word and excel

Kita akan membuat automation vb.net to microsoft office 2007, caranya seperti ini :

• Pertama-tama kita mengetik di microsoft seperti di bawah ini dan masukkan bookmark dengan sesuai format yang diketik tadi.

• Buat form di VB sesuai dengan yang di ketik pada microsoft word :

• Selanjutnya kita menginsert add reference pada form berikut ini :

• Langkah berikutnya kita akan membuat koding seperti ini :

Imports word = Microsoft.Office.Interop.Word

Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim myexcelApp As New excel.Application

        Dim myExcelbook As excel.Workbook

        TextBox5.Text = (Convert.ToInt32(TextBox2.Text) + Convert.ToInt32(TextBox3.Text) + Convert.ToInt32(TextBox4.Text))

        myExcelbook = myexcelApp.Workbooks.Open("C:\book1.xlsx")

        myexcelApp.Range("A2").Value = TextBox1.Text

        myexcelApp.Range("B2").Value = TextBox2.Text

        myexcelApp.Range("C2").Value = TextBox3.Text

        myexcelApp.Range("D2").Value = TextBox4.Text

        myexcelApp.Range("E2").Value = TextBox5.Text

        myexcelApp.Visible = True

        myexcelApp.Quit()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim myWordApp As New word.Application

        Dim myWordDoc As New word.Document

        TextBox5.Text = (Convert.ToInt32(TextBox2.Text) + Convert.ToInt32(TextBox3.Text) + Convert.ToInt32(TextBox4.Text))

        myWordDoc = myWordApp.Documents.Open("C:\kepada1.docx")

        myWordDoc.SaveAs("C:\kepada1.docx")

        myWordDoc.Bookmarks("cus").Select()

        myWordApp.Selection.TypeText(TextBox1.Text)

        myWordDoc.Bookmarks("gajipegawai").Select()

        myWordApp.Selection.TypeText(TextBox2.Text)

        myWordDoc.Bookmarks("tunjangananak").Select()

        myWordApp.Selection.TypeText(TextBox3.Text)

        myWordDoc.Bookmarks("tunjanganistri").Select()

        myWordApp.Selection.TypeText(TextBox4.Text)

        myWordDoc.Bookmarks("total").Select()

        myWordApp.Selection.TypeText(TextBox5.Text)

        myWordDoc.SaveAs("c:\kepada1.docx")

        myWordApp.Visible = True

        myWordApp.Quit()

    End Sub

End Class

• Lalu di Run dan isi lah form dengan nilai seperti yang anda tentukan :

• Lalu klik lah button ms word dan excel seperti gambar di atas, dan hasilnya pada microsoft word adalah sebagai berikut :

• Dan pada microsoft excel hasilnya adalah sebagai berikut :

Kita telah berhasil menyelesaikan tugas ini.