Protected Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged
Dim myconn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|数据表.accdb;")
myconn.Open()
Dim str As String
str = "select ProductID,ProductName,ProductPrice from 表2""'"
Dim ma As New OleDb.OleDbDataAdapter(str, myconn)
Dim ms As New DataSet
ma.Fill(ms, "表2")
GridView1.DataSource = ms.Tables("表2")
GridView1.DataBind()
myconn.Close()
End Sub
数据表