用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                        
   
            cat.Create pstr
   
            cat.ActiveConnection = pstr    ‘相当于打开数据库
   
            tbl.Name = "Table_One"                                         
   
            tbl.Columns.Append "No", adInteger
   
            tbl.Columns.Append "Name", adVarWChar, 20
            tbl.Columns.Append "Age", adInteger
   
            cat.Tables.Append tbl                                             'Create table 1                      
   
            Set tbl = Nothing                                                       'Reset Adox table
   
            Set tbl = New ADOX.Table
   
            tbl.Name = "Table_Two"                                         'Create table 2, Next 3,4,....

            tbl.Columns.Append "No", adInteger
            tbl.Columns.Append "Count", adVarBinary
            tbl.Columns.Append "Time", adDate
   
            cat.Tables.Append tbl

调试，通过。

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/doublecells/archive/2007/02/27/1515877.aspx