如何在VB.NET中将数据库表的一列数据赋值给Single类型数组变量

如果是直接初始化固定值的Single数组，直接按示例写法即可：

Dim km_range() As Single = {10, 50, 50, 100}

如果需要从pilotrun表中读取数据生成Single数组，可通过以下步骤实现：

• 建立数据库连接并执行查询，获取目标列的数据
• 将查询结果转换为Single类型并整理为数组

以下是基于SQL Server数据库的完整代码示例（其他数据库类型可替换对应连接组件）：

Imports System.Data.SqlClient
Imports System.Linq

Sub GenerateSingleArrayFromDB()
    ' 替换为你的数据库连接字符串
    Dim connStr As String = "Data Source=你的服务器地址;Initial Catalog=你的数据库名;Integrated Security=True;"
    Dim kmRange() As Single = Nothing

    Using conn As New SqlConnection(connStr)
        ' 替换为你的查询语句，确保目标列可转换为Single类型
        Dim sqlQuery As String = "SELECT 目标列名 FROM pilotrun"
        
        Using cmd As New SqlCommand(sqlQuery, conn)
            conn.Open()
            Using reader As SqlDataReader = cmd.ExecuteReader()
                Dim valueList As New List(Of Single)()
                While reader.Read()
                    ' 跳过空值，避免转换错误
                    If Not reader.IsDBNull(0) Then
                        valueList.Add(Convert.ToSingle(reader(0)))
                    End If
                End While
                ' 将List转换为Single数组
                kmRange = valueList.ToArray()
            End Using
        End Using
    End Using

    ' 测试输出数组内容（可选）
    For Each val As Single In kmRange
        Console.WriteLine(val)
    Next
End Sub

注意事项 #

• 根据实际数据库类型（如MySQL、Access）替换对应的连接类（MySqlConnection/OleDbConnection）及命名空间
• 确保查询的列数据可以安全转换为Single类型，若存在非数值数据，需添加额外的类型校验逻辑
• 替换代码中的连接字符串、查询语句中的列名，匹配你的pilotrun表结构

内容的提问来源于stack exchange，提问作者Malith Induranga