时间戳

首页 > 解决方案 > VB.NET 如何使用 vb.net 将 MYSQL 中的所有列列为 Excel 中的 1 列

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

问题描述

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

这是来自 MySQL 的返回查询

学习者类型 数数
1级 3
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

我应该使用数据集吗？

标签： mysqlexcelvb.netbasic

解决方案

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

推荐阅读