VB学习1

最新推荐文章于 2025-08-10 13:24:43 发布

原创最新推荐文章于 2025-08-10 13:24:43 发布 · 720 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vb #数据库 #security

本文介绍了一个使用VBA连接Access数据库的具体示例。通过示例代码展示了如何配置连接字符串，选择不同的数据库文件，并执行基本的数据检索操作。此外，还提供了错误处理的方法。

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

Dim ConnX As ADODB.Connection

Private Sub cmdConn_Click()
    '生成连接字符串
    'If txtPassword.Text = "" Then
        '数据库没有密码

        Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                            "Data Source=" & _
                            App.Path & _
                            "/data.mdb;" & _
                           " Persist Security Info=False"
      'text1.Text = App.Path + "/data.mdb;"

   'Else

    'End If
On Error GoTo ConnErr
    '连接数据库
    Adodc1.CommandType = adCmdText                             '   " & text1.Text & "%
   Adodc1.RecordSource = "select * from kehu where tel like '" & text1.Text & "%' "
Adodc1.Refresh
    'MsgBox "连接数据库成功！", vbInformation, "连接"
    Exit Sub
ConnErr:
    MsgBox "连接数据库错误！", vbInformation, "连接"

End Sub