老婆和三个老男人小说:用VB动态创建Access数据库简例

来源：百度文库编辑：中财网时间：2024/04/30 04:02:59

在写这篇文章之前心里不免有点自卑，因为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

VB 里如何实现动态创建、删除ACCESS数据库 VB 里如何实现动态创建、删除ACCESS数据库(不用sql实现) 使用vb如何创建access数据库我想用access创建一个自己部门的数据库,用vb如何连接,制作表单?? 用VB在Access数据库检索数据 VB编程ADO，数据库用access VB连接Access数据库 flash怎么动态读写数据库?用access做数据库在Dreamweaver8里用ASP VBScript动态连接Access数据库 VB怎样联接ACCESS数据库 VB查找ACCESS数据库问题 VB怎么连Access数据库在线等 VB+ACCESS数据库当数据库已经建立以后，如何在vb中动态的创建新的数据表 vb用代码连接数据库(access)和添加删除? 请问如何备份用VB编写的ACCESS数据库系统用vb打包时怎样连同access数据库一起打包我用VB连接ACCESS数据库求和问题 VB中创建数据库问题？如何用DELPHI动态生成ACCESS数据库？ VB-Access数据库格式的一个问题 VB中如何使用ACCESS数据库 vb+access数据库备份代码写法 vb修改数据库access的记录