[VisualStudio] 用VB动态创建Access数据库简例

在写这篇文章之前心里不免有点自卑，因为VB已经快被微软淘汰了，可是由于工作的关系还在一直使用它。毕竟它真的很容易上手，可是如果再靠它去找工作估计很难了。呵呵，废话少说，只要还有人用它就表示它还没过时。
下面介绍的内容标题已经概括了，直接介绍如何操作。

打开VB6.0，因为我安装了sp包，所以我用到的控件版本号高一些，在网上找资料时看到有用版本号比较低的控件。应该都可以的。
    1. 新建一个工程，找到VB编辑器主窗体的【工程】菜单－>【引用】，在弹出的窗体中选择【Microsoft     ADO     Ext. 2.X for DDL and Security】，“2.X”表示版本。
    2. 在窗体中选择Form_Load( )，在其中输入如下代码：

            Dim cat As New ADOX.Catalog
            Dim tbl As New ADOX.Table
            Dim pstr As String
            Dim db As String
   
            db = App.Path & "/" & "tmp.mdb"
   
            pstr = "Provider=Microsoft.Jet.OLEDB.4.0;"         '数据库驱动 4.0 For Office 2k/2003, 3.5.1 For Office 97
   
            pstr = pstr & "Data Source=" & db