Cara mengekspor data dalam Datagridview pada excel sheet di Net visual basic

 

Tutorial Membuat Aplikasi

  2. Ini adalah tutorial tentang cara mengekspor data dalam Datagridview pada excel sheet di Net visual basic 2013. Dalam tutorial ini, pertama saya mengisi tabel Akses ke datagridview, maka saya ekspor ke excel sheet saya (saya menggunakan Excel 2007). Untuk tutorial ini, Anda perlu menempatkan kontrol datagridview dan tombol untuk formulir Anda, seperti gambar berikut :


    Ikuti langkah – langkah berikut untuk membuatnya :
    1.  Pertama menambahkan referensi ke Perpustakaan Objek Microsoft Excel 12.0
    2.  Dalam menu proyek Anda klik Project - Add Referensi - pilih tab COM

    3.  Tambahkan Microsoft Excel 12.0 Object Library, lalu klik OK
    4. Buka halaman kode dan menambahkan referensi berikut di atas Public Class             Form1 
                         Imports System.Data.OleDb
                        Imports Excel = Microsoft.Office.Interop.Excel
    5. Kemudian tambahkan deklarasi berikut di bawah garis Public Class Form1 Anda
              Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data                           Source=C:\Users\Jimmy\Desktop\test.accdb"
              Dim excelLocation As String = "C:\Users\Jimmy\Desktop\test.xlsx"
              Dim MyConn As OleDbConnection
              Dim da As OleDbDataAdapter
              Dim ds As DataSet
              Dim tables As DataTableCollection
              Dim source1 As New BindingSource
              Dim APP As New Excel.Application
              Dim worksheet As Excel.Worksheet
              Dim workbook As Excel.Workbook
    6. Tambahkan kode event berikut:
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            workbook = APP.Workbooks.Open(excelLocation)
            worksheet = workbook.Worksheets("sheet1")
            MyConn = New OleDbConnection
            MyConn.ConnectionString = connString
            ds = New DataSet
            tables = ds.Tables
            da = New OleDbDataAdapter("Select * from [Items]", MyConn) 
            da.Fill(ds, "Items") 'Change items to your database name
            Dim view As New DataView(tables(0))
            source1.DataSource = view
            DataGridView1.DataSource = view
            DataGridView1.AllowUserToAddRows = False
        End Sub

    7. Kemudian tambahkan kode berikut pada tombol Ekspor:
    Private Sub Export_Click(sender As System.Object, e As System.EventArgs) Handles Export.Click
                Dim columnsCount As Integer = DataGridView1.Columns.Count
            For Each column In DataGridView1.Columns
                worksheet.Cells(1, column.Index + 1).Value = column.Name
            Next
                   For i As Integer = 0 To DataGridView1.Rows.Count - 1
                Dim columnIndex As Integer = 0
                Do Until columnIndex = columnsCount
                    worksheet.Cells(i + 2, columnIndex + 1).Value = DataGridView1.Item(columnIndex, i).Value.ToString
                    columnIndex += 1
                Loop
            Next
        End Sub
    8. Kemudian tambahkan kode berikut untuk menyimpan file excel Anda ketika Form ditutup
    Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
           buku kerja.Simpan()
           buku kerja.Tutup()
           APLIKASI.Berhenti()
       Akhir Sub

    Jalankan Aplikasi lalu klik tombol Ekspor maka data dalam Datagridview akan ditampilkan pada halaman excel baru seperti gambar berikut:


    Pelajari Juga Tutorial Visual Basic Net 2013 berikut ini ;
    Membuat Project baru pad Visual Basic Net 2013
    Membuat Animasi dengan Visual Basic Net 2013
    Menggunakan ChekBox pada Visula Basic Net 2013
    Data dalam Tabel Database Access pada Data GridView dengan Visual Basic .NET 2013
    Mencari atau menyaring data Database pada data Gridview berdasarkan nilai Code di TextBox1 denganVisual Basic .NET 2013

    salam...,



    Diposting  oleh 
Memuat

Comments

Post a Comment

Popular posts from this blog

Font Notasi Angka Untuk membuat Partitur Lagu Not Angka

Image
Tutorial Cara Mendownload dan Menggunakan Font Notasi Angka Untuk membuat Partitur Lagu  Bagi anda pencinta lagu dan kreatif dalam beraransemen namun tidak menguasai Notasi dengan Not Balok, atau anda sebagai tenaga pendidik bagi anak les pianika atau sejenisnya ingin membuatkan Contekan not-not nada kepada anak didik anda, Anda bisa mencoba menerapkan pembuatan partitur lagu Not Angka tersebut cukup dengan MS Word. dengan hasil yang bisa dikatakan memuaskan. Langkah Teknis yang dapat dilakukan yaitu 1. Download Font Notasi Angka dan Meletakkannya di Folder FONTS Untuk memulai membuat Not Angka di MS Word, untuk pertama kali anda harus menambahkan terlebih dahulu Jenis Font Notasi Angka dalam kumpulan FONTS di MS Word tersebut. Caranya: 1. Silahkan Download dahulu Font Notasi Angka tersebut  IBRITE-NOTANGKA.TTF Selanjutnya, cari hasil file yang di download tadi, Lalu letakkan File  Font ibrite-notangka.ttf  tersebut pada folder Font dengan cara meng  copy (Ctrl ...
Read more

Download Berbagai Font Notasi Angka Terbaik dan Cara Penulisan di MS Word

Image
  Anda berminat menulis sebuah partitur not angka? mencari kesana kemari sebuah aplikasi yang dapat memudahkan pembuatan tersebut? tapi alhasil belum menemukannya... Avitalia Anda berminat menulis sebuah partitur not angka? mencari kesana kemari sebuah aplikasi yang dapat memudahkan pembuatan tersebut? tapi alhasil belum menemukannya... Anda berminat menulis sebuah partitur not angka? mencari kesana kemari sebuah aplikasi yang dapat memudahkan pembuatan tersebut? tapi alhasil belum menemukannya... Yah itulah yang saya alami... belum menemukannya sampai saat ini, belum ada satupun pengembang sebuah aplikasi yang membuatnya. Saat ini yang tersedia hanyalah aplikasi-aplikasi untuk membuat partitur lagu Not balok, seperti  MuseScore ,  Finale, Sibelius, Encore,  dan masih banyak yang lainnya. Tapi jangan khawatir, walaupun tidak ada aplikasi khusus, pembuatan partitur sudah dapat dilakukan dalam aplikasi bawaan MS Office dengan sebuah modifikasi atau tambahan font terten...
Read more

16+ Font dan Kode untuk Membuat Simbol Musik di Word

Image
  16+ Font dan Kode untuk Membuat Simbol Musik di Word Ada beberapa cara untuk membuat simbol  musik  seperti  tanda mula  dan  not balok  di dokumen Microsoft Word. Cara pertama adalah menggunakan fitur  Insert Symbols  , yaitu memasukkan kode tertentu untuk menampilkan simbol musik. Jadi bila dokumen dibuka di komputer lain, yang pada umumnya juga memiliki Microsoft Office, maka simbol-simbol musik tersebut tetap muncul karena font bawaan aplikasi Microsoft Office, yaitu Arial Unicode MS dan Lucida Sans Unicode, memiliki kode simbol tersebut. Cuma, simbol musik yang dimiliki hanya sedikit. Cara kedua adalah dengan menggunakan  font  khusus untuk membuat berbagai simbol musik, seperti not balok, tanda birama, tanda diam dan tanda kunci dalam berbagai posisi  garis  paranada. Cara ini sesuai untuk membuat partitur musik yang akan  dicetak  dan jika dokumen ingin dibuka di komputer lain, maka font musik ini juga h...
Read more