VB.NET 如何使用 vb.net 将 MYSQL 中的所有列列出到 Excel 中的 1 列中

问题描述

我正在尝试使用 vb.net 将 MysqL 的返回值列出到 excel 中，但我的问题是只在 Excel 中插入了第一行

这里是 MysqL 的返回查询

学习者类型	计数
一年级	3
二年级	4

这是我在 VB.NET 中的代码

Dim Type_of_Learners As String
        Dim List_TypesOfLearners_for_Today As String = "SELECT survey_at_what_blh as 'Type of Learners',COUNT(survey_at_what_blh) as COUNT
                                                        FROM daily_report 
                                                        GROUP BY survey_at_what_blh 
                                                        ORDER BY count DESC"
        da = New MysqLDataAdapter(List_TypesOfLearners_for_Today,mycon)
        dt = New DataTable()
        da.Fill(dt)
        Type_of_Learners = dt.Rows(0)("Type of Learners")
        xlNewSheet.Cells(66,8) = Type_of_Learners

我应该使用数据集吗？

解决方法

Dim Type_of_Learners As String
        Dim List_TypesOfLearners_for_Today As String = "SELECT survey_at_what_blh as 'Type of Learners',COUNT(survey_at_what_blh) as COUNT
                                                        FROM daily_report 
                                                        GROUP BY survey_at_what_blh 
                                                        ORDER BY count DESC"
        da = New MySqlDataAdapter(List_TypesOfLearners_for_Today,mycon)
        dt = New DataTable()
        da.Fill(dt)
       

dim i_rowIndex as integer = 66 

for each dr as datarow in dt.rows 
  Type_of_Learners = dr("Type of Learners").tostring.trim
  xlNewSheet.Cells(i_rowIndex,8) = Type_of_Learners
  i_rowIndex += 1
next