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

最新推荐文章于 2021-02-04 23:24:48 发布

doublecells

最新推荐文章于 2021-02-04 23:24:48 发布

阅读量1.8w

点赞数

分类专栏： MS 文章标签： vb 数据库 access table microsoft office

本文链接：https://blog.youkuaiyun.com/doublecells/article/details/1515877

版权

本文介绍了在VB6.0环境下，如何动态创建Access数据库的步骤。首先，添加ADOX库引用，然后通过代码创建数据库连接字符串，利用Catalog对象创建数据库，并创建名为Table_One和Table_Two的两个表格，分别定义了表格的字段类型和数量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

最低0.47元/天解锁文章