续上一节,将获得的数据库架构信息全部显示出来,这次不用循环,直接使用DataGridView来显示:
Private Sub Button6_Click(sender As Object,e As EventArgs) Handles Button6.Click Dim odc As New OleDbConnection() odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=D:\save\博客教程\08 数据库\Northwind.mdb" odc.Open() Dim dt As DataTable dt = odc.GetOleDbSchemaTable(OleDbSchemaGuid.Tables_Info,Nothing) DataGridView1.DataSource = dt odc.Close() End Sub
运行结果如下,可以左右拉动滚动条看看更多的信息:
这一次用了OleDbSchemaGuid的另外一个静态成员:
Private Sub Button7_Click(sender As Object,e As EventArgs) Handles Button7.Click Dim odc As New OleDbConnection() odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=D:\save\博客教程\08 数据库\Northwind.mdb" odc.Open() Dim dt As DataTable dt = odc.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,Nothing) DataGridView1.DataSource = dt odc.Close() End Sub
看看运行结果:
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录