Imports System.Data
Imports Microsoft.SqlServer.Server
Imports MySql.Data.MySqlClient
Imports System.Data.OleDb
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
'MYSQL数据导出至EXCEL
Private Sub 导出ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 导出ToolStripMenuItem1.Click
Try
'创建连接
' Dim cnn As dataaccess = New dataaccess(connection_string)
Dim cnn As String = "Server=localhost;User ID=root;Password=;Database=emp;"
Dim i, j As Integer
'创建Excel对象
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
xlApp = New Microsoft.Office.Interop.Excel.Application
xlWorkBook
【VB.net】MYSQL导出至Excel
最新推荐文章于 2022-03-01 09:32:29 发布