用 Connection 对象连接到数据库

本节介绍一个用于连接到数据库的简单的 Visual Basic 例程。

示例代码

通过将名为 Command1 的命令按钮放置到窗体上，并将该例程粘贴到它的 Click 事件中，可以尝试执行该例程。运行程序并单击该按钮，即可建立连接然后断开连接。

Private Sub cmdTestConnection_Click( _
        ByVal eventSender As System.Object, _
        ByVal eventArgs As System.EventArgs) _
        Handles cmdTestConnection.Click
 
    ' Declare variables
    Dim myConn As New ADODB.Connection
    Dim myCommand As New ADODB.Command
    Dim cAffected As Integer

    On Error GoTo HandleError

    ' Establish the connection
    myConn.Provider = "SAOLEDB"
    myConn.ConnectionString = _
        "Data Source=SQL Anywhere 11 Demo"
    myConn.Open()
    MsgBox("Connection succeeded")
    myConn.Close()
    Exit Sub

HandleError:
    MsgBox(ErrorToString(Err.Number))
    Exit Sub
End Sub

注意

该示例执行下列任务：

声明例程中使用的变量。
使用 SQL Anywhere OLE DB 提供程序与示例数据库建立连接。
使用 Command 对象执行一条简单的语句，用以在数据库服务器消息窗口中显示消息。
关闭连接。

SAOLEDB 提供程序在安装过程中自行注册。注册过程包括在注册表的 COM 部分创建注册表条目，以便 ADO 可以在 SAOLEDB 提供程序被调用时找到 DLL。如果更改 DLL 的位置，则必须重新注册。

♦ 注册 OLE DB 提供程序

打开命令提示符。
转换到安装 OLE DB 提供程序的目录。

输入以下命令以注册该提供程序：

regsvr32 dboledb11.dll
regsvr32 dboledba11.dll

有关使用 OLE DB 连接数据库的详细信息，请参见使用 OLE DB 连接到数据库。