Bismillah
Sahabat baiq yang berbahagia, kali ini aku akan membuatkan perihal cara menyimpan data yang ada dalam tampilan data grid view pada VB.NET ke dalam Ms. Excel.
Gimana sih caranya?
Sabar....sabar....
Sebelum aku ulas lebih jauh, pastikan anda sudah memahami perihal cara menciptakan database dan tabel. Selain itu anda juga sudah memahami bagaimana cara koneksi VB.NET ke MYSQL. Jika belum dapat anda pelajari DISINI.
Pada pembahasan kali ini, aku tidak akan mencontohkan proses pembuatan database serta tabel yang akan di tampilkan dalam Data Grid View di VB.NET, alasannya aku memakai database dan tabel yang sudah ada di dalam database MYSQL saya.
Baiklah, kita mulai saja pembahasannya:
1. Jika di dalam MYSQL anda belum tersedia database dan tabel yang akan di tampilkan kedalam Data Grid View, silahkan buat database terlebih dahulu.
2. Kemudian, buka aplikasi VB.NET seperti biasa, hingga kepada tampilan Form1.
3. Selanjutnya, kita design Form 1 dengan menempelkan objek Data Grid View dan Button, dapat di lihat pada pola gambar di bawah ini:
4. Selanjutnya, untuk setting properties silahkan disesuaikan. Pada pola kali ini, Data Grid View aku rubah namanya menjadi DGV, dan Button namanya tidak aku rubah.
5. Jika disign form dan setting properties sudah selesai, maka selanjutnya kita tinggal mengetikkan codingnya. Berikut ini codingnya:
6. Jika sudah, maka tinggal coba di jalankan aplikasinya, lalu klik Tombol Simpan Ke Ms. Excel. Maka isi dari data grid view akan tampil pada lembar kerja Ms. Excel
Baca juga : Cara menciptakan Aplikasi e-voting pada VB.NET
Baca juga : Cara Menghubungkan Client Server pada VB.NET dengan database MYSQL
Demikian pembahasan kali ini, yakni perihal cara menyimpan data dari data grid view pada VB.NET ke dalam Microsoft Office Excel (Ms. Excel). Semoga bermanfaaat, dan terimakasih sudah berkunjung.
Sahabat baiq yang berbahagia, kali ini aku akan membuatkan perihal cara menyimpan data yang ada dalam tampilan data grid view pada VB.NET ke dalam Ms. Excel.
Gimana sih caranya?
Sebelum aku ulas lebih jauh, pastikan anda sudah memahami perihal cara menciptakan database dan tabel. Selain itu anda juga sudah memahami bagaimana cara koneksi VB.NET ke MYSQL. Jika belum dapat anda pelajari DISINI.
Pada pembahasan kali ini, aku tidak akan mencontohkan proses pembuatan database serta tabel yang akan di tampilkan dalam Data Grid View di VB.NET, alasannya aku memakai database dan tabel yang sudah ada di dalam database MYSQL saya.
Baiklah, kita mulai saja pembahasannya:
1. Jika di dalam MYSQL anda belum tersedia database dan tabel yang akan di tampilkan kedalam Data Grid View, silahkan buat database terlebih dahulu.
2. Kemudian, buka aplikasi VB.NET seperti biasa, hingga kepada tampilan Form1.
3. Selanjutnya, kita design Form 1 dengan menempelkan objek Data Grid View dan Button, dapat di lihat pada pola gambar di bawah ini:
5. Jika disign form dan setting properties sudah selesai, maka selanjutnya kita tinggal mengetikkan codingnya. Berikut ini codingnya:
Imports System.Data.Odbc
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Coding untuk koneksi ke database
Dim da As Odbc.OdbcDataAdapter
Dim ds As DataSet
Dim koneksi As Odbc.OdbcConnection
Dim str As String
str = "driver={mysql odbc 3.51 driver};database=db_evoting;server=localhost;uid=root"
koneksi = New OdbcConnection(str)
If koneksi.State = ConnectionState.Closed Then
koneksi.Open()
End If
'Coding untuk menampilkan data pada data grid view
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Coding untuk koneksi ke database
Dim da As Odbc.OdbcDataAdapter
Dim ds As DataSet
Dim koneksi As Odbc.OdbcConnection
Dim str As String
str = "driver={mysql odbc 3.51 driver};database=db_evoting;server=localhost;uid=root"
koneksi = New OdbcConnection(str)
If koneksi.State = ConnectionState.Closed Then
koneksi.Open()
End If
'Coding untuk menampilkan data pada data grid view
da = New Odbc.OdbcDataAdapter("select no_urut,nama_caketu,nama_cawaketu,jumlah_suara from t_calon order by no_urut", koneksi) ds = New DataSet
ds.Clear()
da.Fill(ds, "t_calon")
DGV.DataSource = (ds.Tables("t_calon"))
End Sub
'Perintah untuk menyimpan ke Ms. Excel di ketik pada Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ExcelApp As Object, ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer
ExcelApp = CreateObject("Excel.Application")
ExcelBook = ExcelApp.WorkBooks.Add
ExcelSheet = ExcelBook.WorkSheets(1)
With ExcelSheet
For i = 1 To Me.DGV.RowCount
.cells(i, 1) = Me.DGV.Rows(i - 1).Cells(0).Value
For j = 1 To DGV.Columns.Count - 1
.cells(i, j + 1) = DGV.Rows(i - 1).Cells(j).Value
Next
Next
End With
ExcelApp.Visible = True
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing
End Sub
End Class
ds.Clear()
da.Fill(ds, "t_calon")
DGV.DataSource = (ds.Tables("t_calon"))
End Sub
'Perintah untuk menyimpan ke Ms. Excel di ketik pada Button
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ExcelApp As Object, ExcelBook As Object
Dim ExcelSheet As Object
Dim i As Integer
Dim j As Integer
ExcelApp = CreateObject("Excel.Application")
ExcelBook = ExcelApp.WorkBooks.Add
ExcelSheet = ExcelBook.WorkSheets(1)
With ExcelSheet
For i = 1 To Me.DGV.RowCount
.cells(i, 1) = Me.DGV.Rows(i - 1).Cells(0).Value
For j = 1 To DGV.Columns.Count - 1
.cells(i, j + 1) = DGV.Rows(i - 1).Cells(j).Value
Next
Next
End With
ExcelApp.Visible = True
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing
End Sub
End Class
6. Jika sudah, maka tinggal coba di jalankan aplikasinya, lalu klik Tombol Simpan Ke Ms. Excel. Maka isi dari data grid view akan tampil pada lembar kerja Ms. Excel
Baca juga : Cara menciptakan Aplikasi e-voting pada VB.NET
Baca juga : Cara Menghubungkan Client Server pada VB.NET dengan database MYSQL
Demikian pembahasan kali ini, yakni perihal cara menyimpan data dari data grid view pada VB.NET ke dalam Microsoft Office Excel (Ms. Excel). Semoga bermanfaaat, dan terimakasih sudah berkunjung.
0 Komentar untuk "Cara Menyimpan Data Dari Vb.Net Ke Ms. Excel"