Hi as the title suggest, how can i do it? Im new to vb.net. I googled and managed to find a working sample code but it is exporting the data from the table without headers. Can someone help me?
This is the Code:
This is the Code:
Code:
Public Sub ExportToExcel()
Dim con As MySqlConnection
Dim connectionString As String
Dim sql As String
Dim i, j As Integer
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim sPath As String = String.Empty
Dim dlgSave As New SaveFileDialog
dlgSave.DefaultExt = "xls"
dlgSave.Filter = "Excel 97 - 2003 Workbook (*.xls)|*.xls|Excel Workbook (*.xlsx)|*.xlsx"
dlgSave.InitialDirectory = Application.StartupPath
If dlgSave.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
xlApp = New Excel.Application
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
connectionString = "data source=localhost; user id=root; password=dctvmainadmin; database=tmsdctv"
con = New MySqlConnection(connectionString)
con.Open()
sql = "SELECT * FROM departmentlist"
Dim DataAdapter As New MySqlDataAdapter(sql, con)
Dim ds As New DataSet
DataAdapter.Fill(ds)
For i = 0 To ds.Tables(0).Rows.Count - 1
For j = 0 To ds.Tables(0).Columns.Count - 1
xlWorkSheet.Cells(i + 1, j + 1) = _
ds.Tables(0).Rows(i).Item(j)
Next
Next
Dim sFileName As String = Replace(dlgSave.FileName, ".xlsx", sPath)
xlWorkSheet.SaveAs(sFileName)
xlWorkBook.Close()
xlApp.Quit()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
con.Close()
MsgBox("Data has been successfully exported!")
Catch myerror As Exception
MessageBox.Show(myerror.Message)
End Try
End If
End Sub