Solved

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

Posted on 2008-06-09
2
2,072 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

Problems using Powershell and Active Directory?

Managing Active Directory does not always have to be complicated.  If you are spending more time trying instead of doing, then it's time to look at something else. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that undeā€¦
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.

803 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