Solved

How do I export a mysql query results to excel sheet?

Posted on 2008-06-09
2
2,031 Views
Last Modified: 2013-11-27
Hi,

How do I export a mysql query result to an Excel sheet in Vb.net.This is my code until now:
Imports MySql.Data.MySqlClient

Imports System.Data
 

Public Class FrmMain

    Dim conn As MySqlConnection

    Dim myCommand As New MySqlCommand()

    Dim myAdapter As New MySqlDataAdapter()

    Dim myData As New DataTable()

    Dim SQL As String
 

    Private myConnString As String
 

    Public WriteOnly Property connectionString() As String

        Set(ByVal value As String)

            myConnString = value

            conn = New MySqlConnection()

            conn.ConnectionString = myConnString
 

            Try

                conn.Open()

            Catch myerror As MySqlException

                MessageBox.Show("Error Connecting to Database: " & myerror.Message)

            End Try

        End Set

    End Property
 

    Private Sub cmdRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRefresh.Click

        Dim conn As New MySqlConnection()

        Dim myCommand As New MySqlCommand()

        Dim myAdapter As New MySqlDataAdapter()

        Dim myData As New DataTable()

        Dim SQL As String

        Dim Hash5 As XmlWriteMode
 
 

        SQL = "SELECT filereputationsummary.fileMD5 FROM filereputationsummary" _

                & " WHERE `numSubmissions`>100000" _

                & " Order by `numSubmissions`;"

        'conn = New MySqlConnection()

        conn.ConnectionString = myConnString
 

        Try

            conn.Open()
 

            Try

                myCommand.Connection = conn

                myCommand.CommandText = SQL
 

                myAdapter.SelectCommand = myCommand

                myAdapter.Fill(myData)
 
 

                DGVReport.DataSource = myData

                DGVReport.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells

                'myData.WriteXml(Hash5)
 

                Me.Show()
 

            Catch myerror As MySqlException

                MsgBox("There was an error reading from the database: " & myerror.Message)

            End Try

        Catch myerror As MySqlException

            MessageBox.Show("Error connecting to the database: " & myerror.Message)

        Finally

            If conn.State <> ConnectionState.Closed Then conn.Close()

        End Try

    End Sub
 

End Class

Open in new window

0
Comment
Question by:joshua_123_99
2 Comments
 
LVL 53

Accepted Solution

by:
Dhaest earned 125 total points
ID: 21748907
Exporting dataset to excel file.
http://www.dotnetspider.com/resources/693-Exporting-dataset-excel-file.aspx

Export to Excel using VB.Net
http://www.codeproject.com/KB/vb/Senthil_S__Software_Eng_.aspx

HOW TO: Transfer Data to Excel Workbook Using Visual Basic .NET
http://support.microsoft.com/?scid=kb;en-us;Q306022

Export data table to Excel
http://www.vbcode.com/Asp/showsn.asp?theID=12697
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
Entering time in Microsoft Access can be difficult. An input mask often bothers users more than helping them and won't catch all typing errors. This article shows how to create a textbox for 24-hour time input with full validation politely catching …
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now