vb.net 教程 8-3 数据库操作8

小鱼儿 2022-09-11 05:23 144阅读 0赞

本节再接再厉，看看数据库还有些什么样的架构。

上一节的学习，我们已经知道使用 OleDbConnection.GetOleDbSchemaTable来获得数据库的架构，

GetOleDbSchemaTable 的声明如下：

Public Function GetOleDbSchemaTable ( schemaAs Guid, restrictions AsObject() ) As DataTable

schema是System.Data.OleDb.OleDbSchemaGuid类，实际使用的时候是使用的OleDbSchemaGuid 的值之一，

它指定要返回的架构表。MSDN解释中指明了该类有很多静态成员（以下是部分）：

为了看看所有的表架构信息，可以将OleDbSchemaGuid成员一一列出来，再根据成员写代码，

但是

很麻烦。

所以

本例子中将使用一点高级的技术——反射：Reflection

通过反射获得所有的成员信息：

Private Sub Form2\_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
        Dim OleDbSchemaGuidType As Type = GetType(OleDbSchemaGuid)  
        For Each OleDbSchemaGuidType\_Member As Reflection.MemberInfo In OleDbSchemaGuidType.GetMembers  
            If OleDbSchemaGuidType\_Member.MemberType = Reflection.MemberTypes.Field Then  
                ComboBox1.Items.Add(OleDbSchemaGuidType\_Member.Name)  
            End If  
        Next  
    End Sub  
运行时可以看到，在ComboBox中列出了所有的OleDbSchemaGuid成员：

按下按钮后根据选择的表架构类型获得相应的信息填充到DataGridView中：

Private Sub Button14\_Click(sender As Object, e As EventArgs) Handles Button14.Click  
        Dim OleDbSchemaGuidType As Type = GetType(OleDbSchemaGuid)  
        For Each OleDbSchemaGuidType\_Member As Reflection.MemberInfo In OleDbSchemaGuidType.GetMembers  
            If OleDbSchemaGuidType\_Member.Name = ComboBox1.Text Then  
   
                Dim odc As New OleDbConnection()  
                odc.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;data source=D:\\save\\博客教程\\08 数据库\\Northwind.mdb"  
                Try  
                    odc.Open()  
                    Dim dt As DataTable  
                    dt = odc.GetOleDbSchemaTable(OleDbSchemaGuidType.InvokeMember(OleDbSchemaGuidType\_Member.Name, Reflection.BindingFlags.GetField, Nothing, Nothing, Nothing), Nothing)  ' (OleDbSchemaGuidType\_Member.DeclaringType, Guid), Nothing)  
   
                    DataGridView1.DataSource = dt  
   
                Catch ex As Exception  
                    MessageBox.Show("错误信息：" & ex.Message)  
                Finally  
                    odc.Close()  
                End Try  
   
            End If  
        Next  
    End Sub  
比如选择Columns的架构信息：

当然并不是所有的架构信息都支持mdb数据库，幸好我们在代码中设置了Try...Catch...防止错误发生导致程序崩溃，仅仅出现一个提示：

由于本章属于数据库操作，所以对于反射不会详细讲解，大家掌握数据架构相关知识就行了。

以后有机会再慢慢讲讲反射。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看[vb.net教程][vb.net]目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/