vb.net将数据集导入数据网格

时间:2014-04-12 15:20:13

标签: vb.net

使用下面的代码,无论如何我可以将数据集中的数据导入数据网格,而不是设置所有这些文本框。任何帮助表示赞赏。

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim con As New OleDb.OleDbConnection
    Dim dbProvider As String
    Dim dbSource As String
    Dim ds As New DataSet

    Dim da As New OleDb.OleDbDataAdapter
    Dim sql As String



    dbProvider = "PROVIDER=Microsoft.ACE.OLEDB.12.0;"
    dbSource = "Data Source = C:\databases\AddressBook.mdb"
    con.ConnectionString = dbProvider & dbSource
    con.Open()
    MsgBox("OPEN FOR THE DAY")
    sql = "SELECT * FROM tblContacts"

    da = New OleDb.OleDbDataAdapter(sql, con)
    da.Fill(ds, "owltime")

    txtFirstName.Text = ds.Tables("owltime").Rows(0).Item(1)
    txtSurname.Text = ds.Tables("owltime").Rows(0).Item(2)
    address1.Text = ds.Tables("owltime").Rows(0).Item(3)
    address2.Text = ds.Tables("owltime").Rows(0).Item(4)
    address3.Text = ds.Tables("owltime").Rows(0).Item(5)
    postcode.Text = ds.Tables("owltime").Rows(0).Item(6)
    phone.Text = ds.Tables("owltime").Rows(0).Item(7)


    MsgBox(" CLOSED FOR THE DAY")


    con.Close()

End Sub

结束班

1 个答案:

答案 0 :(得分:0)

ASP.NET回答

你可以在aspx页面上有一个datagrid,然后将你的数据表绑定到它,就像这样

在您的aspx页面

<asp:DataGrid runat="server" ID="dgrid"></asp:DataGrid>

在您的代码中,用以下代码替换文本框分配:

dgrid.DataSource = ds.Tables("owltime")

Windows窗体答案

DataGridView控件放在Form上,并将Name属性设置为dgrid。您可以将此值更改为更有意义的值,但我们必须在将数据表绑定到它时引用它。

在Button1_Click子项中,将文本框分配替换为:

dgrid.DataSource = ds.Tables("owltime")

要阅读有关DataGridView的DataSource属性的更多信息,请参阅here