VB.NET查询SQL SERVER数据库后显示到datagridview，然后导出到EXCEL

您好！关于您的问题，可以通过以下步骤实现：

1. 使用VB.NET连接SQLSERVER数据库，并使用SELECT语句查询所需数据。
2. 将查询结果存储在DataTable中。
3. 将DataTable绑定到DataGridView上，以便在用户界面中显示查询结果。
4. 使用Microsoft.Office.Interop.Excel库将DataGridView中的数据导出到Excel文件中。

以下是示例代码，仅供参考：

'连接数据库
Dim connStr As String = "Data Source=myServerAddress;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;"
Dim conn As New SqlConnection(connStr)
conn.Open()

'查询数据
Dim sql As String = "SELECT * FROM myTable"
Dim cmd As New SqlCommand(sql, conn)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
da.Fill(dt)

'绑定数据到DataGridView
DataGridView1.DataSource = dt

'导出数据到Excel
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Add()
Dim xlWorkSheet As Excel.Worksheet = xlWorkBook.Sheets("Sheet1")
For i As Integer = 0 To DataGridView1.Rows.Count - 1
    For j As Integer = 0 To DataGridView1.Columns.Count - 1
        xlWorkSheet.Cells(i + 1, j + 1) = DataGridView1.Rows(i).Cells(j).Value.ToString()
    Next
Next
xlWorkBook.SaveAs("myExcelFile.xlsx")
xlWorkBook.Close()
xlApp.Quit()

希望对您有所帮助！