VB使用DAO控制ACCESS链接表!

最新推荐文章于 2021-12-30 23:59:04 发布

wumylove1234

最新推荐文章于 2021-12-30 23:59:04 发布

阅读量2.7k

点赞数

文章标签： dao access vb string textbox integer

本文链接：https://blog.csdn.net/wumylove1234/article/details/765254

版权

本文介绍了一个VB程序，该程序使用DAO库自动化管理Access链接表，方便在开发过程中切换本地和远程数据库。通过对话框选择数据库路径，程序会遍历所有链接表并更新连接字符串，同时处理可能出现的错误，简化了手动修改链接表的过程。

摘要由CSDN通过智能技术生成

在一家使用Access开始程序的公司做项目,改进原系统成为支持Barcode的物流系统.

他们使用程序和数据分离的方法,Access的程序使用链接表指向原始表,就可以在程序中直接操作链接表就像操作本地表一样.由于将数据部署在服务器上做为生产数据库,则调试时将使用本地数据进行调试,在程序中就要频繁更改链接表的指向.以前他们都是手动进行修改很是忙烦,我看了下DAO的资料就写个小程序控制链接表.程序如下:

新增项目,引用DAO3.51,窗体上放三个TextBox,两个CommandButton,一个CommonDialog,和一个ProgressBar.编写代码如下:

Option Explicit

Private Sub cmdBrowse_Click(Index As Integer)
    Me.CommonDialog1.ShowOpen
    If Me.CommonDialog1.FileName <> "" Then
        Me.txtPath(0).Text = Me.CommonDialog1.FileName
    End If
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdProcess_Click()
    Dim i As Long, ok As Long, linkcount As Long
    For i = 0 To 2
        If Me.txtPath(i).Text = "" Then
            MsgBox "请填写所有路径!", vbOKOnly + vbInformation, "提示"
            Exit Sub
        End If
    Next

    Dim db As Datab