如何在VB中显示访问数据库？答案

【问题标题】：How do I display access database in VB?如何在VB中显示访问数据库？
【发布时间】：2021-11-07 20:20:33
【问题描述】：

所以我已经能够将我的数据库连接到 VB 表单，并且我还能够看到表和其中的字段。但我不知道如何让数据出现在表格中，因为它只是空白。

我在实际访问数据库中确实有一些数据存储，但它不会显示在我的程序中。我需要编写特定的代码吗？这就是我到目前为止所拥有的。该数据库称为“POS 系统”。

Private Sub OrdersBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles OrdersBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.OrdersBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.POS_systemDataSet)

    End Sub

【问题讨论】：

什么是“VB 表格”？您的意思是“Windows 窗体”吗？
您发布的代码是将更改保存回数据库。很难相信您实际上在寻找有关如何检索数据的信息却找不到它。这样的信息将无处不在。事实上，如果您将表格从“数据源”窗口拖到表单上，它甚至会为您生成。简而言之，您需要在适当的表适配器上调用 Fill 来检索数据。
关于如何在本网站和其他地方查询访问数据库有很多不同的示例。这里的期望是你在问这里之前做你自己的阅读
@HamzaAsim 好的，我接受我的回复对您的问题没有特别帮助。但是，您应该接受的反馈仍然是有效的，该站点确实需要一定程度的质量和问题的努力。你的问题真的不清楚你的问题到底是什么，加上看似不相关的代码。你需要学会提出正确的问题才能得到正确的答案。这将避免您的问题被否决

标签： database vb.net ms-access

【解决方案1】：

将数据库代码与用户界面代码分开通常是个好主意。在Using 块中创建一个连接和一个命令，以便将它们关闭并在End Using 处处置。将连接字符串传递给连接的构造函数。将CommandText 和连接传递给命令的构造函数。打开连接并执行返回 DataReader 的命令以加载 DataTable。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim dt = GetData()
    DataGridView1.DataSource = dt
End Sub

Private Function GetData() As DataTable
    Dim dt As New DataTable
    Using cn As New OleDbConnection("Your connection string"),
            cmd As New OleDbCommand("Select * From SomeTable;", cn)
        cn.Open()
        Using reader = cmd.ExecuteReader
            dt.Load(reader)
        End Using
    End Using
    Return dt
End Function

【讨论】：

我认为这不是一个好的答案，因为根据问题中的代码，OP 已经有一个类型化的 DataSet。建议从表单中取出数据访问代码很好，但该代码仍应使用该类型的 DataSet。