将Access数据库表列名存入列表时遇ValueTuple未定义错误求助

首先，你碰到的ValueTuple(Of,,,)未定义或未导入错误，核心原因是VB.NET中使用ValueTuple需要满足两个前提：

• 项目目标框架得是**.NET Framework 4.7及以上**，或者是.NET Core/.NET 5+这类默认支持ValueTuple的版本
• 代码顶部要确保导入了System命名空间（一般项目默认会导入，但如果没加的话得手动补Imports System）

不过看你的代码场景，其实完全没必要用ValueTuple，直接用字符串格式化或者列表存储更合适，而且你的代码还有几个小bug，我一起帮你修正过来：

修正后的完整可运行代码 #

Imports System.Data.OleDb
Imports System.Data

' 用List(Of String)存储列信息，比数组更灵活，不用手动维护长度
Dim topic As New List(Of String)()
Dim filtervalues = {Nothing, Nothing, "Results", Nothing}

Using con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database.mdb")
    con.Open() ' 重点：调用GetSchema前必须打开连接，你之前的代码漏掉了这一步！
    Dim columns = con.GetSchema("columns", filtervalues)
    
    For Each row As DataRow In columns.Rows
        ' 格式化列名和数据类型为指定格式的字符串
        Dim columnDetail = String.Format("{0,-20}{1}", row("column_name"), row("data_type"))
        topic.Add(columnDetail) ' 直接添加到列表，不用手动管索引计数
    Next
End Using

关键问题拆解说明 #

1. ValueTuple错误的两种解决路径：

   • 如果你非要用ValueTuple来存储列名和数据类型（比如存成(列名, 数据类型)的结构），那除了满足框架版本和命名空间要求外，代码要改成这样：

     ' 先确保导入Imports System
     Dim topic As New List(Of (String, String))()
     ' ...中间连接代码不变...
     Dim columnTuple = (row("column_name").ToString(), row("data_type").ToString())
     topic.Add(columnTuple)
     

   • 但更推荐用前面的字符串格式化方案，避免版本兼容问题，也更贴合你的需求。

2. 你原来代码里的其他错误：

   • Dim topic = topic()：这行完全错误，相当于把变量自己赋值给自己，会直接触发空引用异常，必须改成初始化列表或数组的写法。
   • counter = +1：正确的自增写法是counter += 1，而且用List的话根本不需要手动维护这个计数器。
   • 缺失con.Open()：GetSchema方法要求数据库连接处于打开状态，没开的话会直接报错。

这样修改后，代码就能顺利把Results表的列名和对应数据类型存入列表里了。

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