VB.net | 我怎样才能把一个访问数据库记录变成一个tabcontrol添加tab页？

Question

I have a question, I want to add a TabPage to my TabControl from an access record? I think it's something along these lines but it didn't work:

    Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath.ToString() & "\data\testing.Accdb;Persist Security Info=False;")
    con.Open()
    Dim constr As String = "SELECT ProductType, Discription FROM TblProductType"
    Dim cmd As OleDbCommand = New OleDbCommand(constr, con)
    Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd)
    Dim ds As DataSet = New DataSet()
    da.Fill(ds, "TblProductType")


    Me.TabControl1.TabPages.Add("Discription")

    con.Close()

Answer 1

You have to iterate over the row collection of the table:

Using cmd As New OleDbCommand("SELECT ProductType, Discription FROM TblProductType", con)
  Using rdr As OleDbDataReader = cmd.ExecuteReader
    While rdr.Read
      TabControl1.TabPages.Add(rdr("Discription").ToString)
    End While
  End Using
End Using

Of course, this only gives you an empty TabPage for every record and in it's current implementation, you don't have any reference to the record anymore. That ProductType, if it's unique, should be used somewhere, too.