Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2239
  • Last Modified:

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

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
joshua_123_99
Asked:
joshua_123_99
1 Solution
 
DhaestCommented:
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

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now