vb数据库查询为空的代码

Dim connectionString As String = "Provider=SQLOLEDB;Data Source=你的数据库服务器;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
Dim connection As New ADODB.Connection()
Dim recordset As New ADODB.Recordset()

Try
    ' 打开数据库连接
    connection.Open(connectionString)

    ' 执行SQL查询
    recordset.Open("SELECT * FROM 你的表名 WHERE 你的条件", connection)

    ' 检查记录集是否为空
    If recordset.EOF Then
        Console.WriteLine("查询结果为空，没有找到匹配的记录。")
    Else
        ' 处理查询结果
        Do While Not recordset.EOF
            ' 读取记录集中的数据
            Console.WriteLine(recordset.Fields("字段名").Value)
            recordset.MoveNext()
        Loop
    End If

    ' 关闭记录集和连接
    recordset.Close()
    connection.Close()
Catch ex As Exception
    Console.WriteLine("发生错误：" & ex.Message)
Finally
    ' 确保资源被释放
    recordset = Nothing
    connection = Nothing
End Try