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

Question

我正在尝试使用 vb.net 将 MySQL 中的 return 值列出到 excel 中，但我的问题是只有第一行被插入到 Excel

这是来自 MySQL

的 return 查询

Types of Learners	Count
Grade 1	3
Grade 2	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

我应该使用数据集吗？

Answer 1

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