单击按钮时数据未显示在 DataGridView 中
Data not showing in DataGridView when button is clicked
我正在使用 VB 制作一个小型 Windows 表格申请,我正在尝试查看我的供应商 table 的记录。当我按下“查看供应商”按钮时,它不起作用。我还有另一个 table 称为 PARTS,我可以通过按“查看零件”按钮在其中查看零件。这很奇怪,因为它适用于不同表格的 PARTS table 但不适用于当前表格的 SUPPLIERS table。这是我的按钮代码。有什么我忘了。
// 显示当前 table 条记录的代码
Private Sub viewSupplier_Click(sender As Object, e As EventArgs) Handles
viewSupplier.Click
Dim ds As New DataSet
ds = Form1.populateDS1()
DataGridView1.DataSource = ds.Tables("DT_SUPPLIERS")
End Sub
// 其他 table 的代码工作正常
Private Sub viewButton_Click(sender As Object, e As EventArgs) Handles
viewButton.Click
Dim ds As New DataSet
ds = Form1.populateDS()
DataGridView1.DataSource = ds.Tables("DT_PART")
End Sub
// DS AND DS1 Code
Public Function populateDS() As DataSet
ds = New DataSet
Dim sql As String
Dim da As OracleDataAdapter
sql = "SELECT * from PART"
da = New OracleDataAdapter(sql, Connect())
da.Fill(ds, "DT_PART")
con.Close()
Return ds
End Function
Public Function populateDS1() As DataSet
ds = New DataSet
Dim sql As String
Dim da As OracleDataAdapter
sql = "SELECT * from SUPPLIER"
da = New OracleDataAdapter(sql, Connect())
da.Fill(ds, "DT_SUPPLIER")
con.Close()
Return ds
End Function
您的 table 名称错误...更改此...
DataGridView1.DataSource = ds.Tables("DT_SUPPLIERS")
为此...(删除"s")
DataGridView1.DataSource = ds.Tables("DT_SUPPLIER")
我正在使用 VB 制作一个小型 Windows 表格申请,我正在尝试查看我的供应商 table 的记录。当我按下“查看供应商”按钮时,它不起作用。我还有另一个 table 称为 PARTS,我可以通过按“查看零件”按钮在其中查看零件。这很奇怪,因为它适用于不同表格的 PARTS table 但不适用于当前表格的 SUPPLIERS table。这是我的按钮代码。有什么我忘了。
// 显示当前 table 条记录的代码
Private Sub viewSupplier_Click(sender As Object, e As EventArgs) Handles
viewSupplier.Click
Dim ds As New DataSet
ds = Form1.populateDS1()
DataGridView1.DataSource = ds.Tables("DT_SUPPLIERS")
End Sub
// 其他 table 的代码工作正常
Private Sub viewButton_Click(sender As Object, e As EventArgs) Handles
viewButton.Click
Dim ds As New DataSet
ds = Form1.populateDS()
DataGridView1.DataSource = ds.Tables("DT_PART")
End Sub
// DS AND DS1 Code
Public Function populateDS() As DataSet
ds = New DataSet
Dim sql As String
Dim da As OracleDataAdapter
sql = "SELECT * from PART"
da = New OracleDataAdapter(sql, Connect())
da.Fill(ds, "DT_PART")
con.Close()
Return ds
End Function
Public Function populateDS1() As DataSet
ds = New DataSet
Dim sql As String
Dim da As OracleDataAdapter
sql = "SELECT * from SUPPLIER"
da = New OracleDataAdapter(sql, Connect())
da.Fill(ds, "DT_SUPPLIER")
con.Close()
Return ds
End Function
您的 table 名称错误...更改此...
DataGridView1.DataSource = ds.Tables("DT_SUPPLIERS")
为此...(删除"s")
DataGridView1.DataSource = ds.Tables("DT_SUPPLIER")