本文主要介绍了一个用于连接到数据库的简单的 Visual Basic 例程。
示例代码
通过将名为 Command1 的命令按钮放在窗体上，并将该例程粘贴到它的 Click 事件中，可以尝试执行该例程。运行程序并单击该按钮，即可建立连接然后断开连接。
Private Sub cmdTestConnection_Click()
' Declare variables
Dim myConn As New ADODB.Connection
Dim myCommand As New ADODB.Command
Dim cAffected As Long
On Error GoTo HandleError
' Establish the connection
myConn.Provider = "ASAProv"
myConn.ConnectionString = _
"Data Source=ASA 9.0 Sample"
myConn.Open
MsgBox "Connection succeeded"
myConn.Close
Exit Sub
HandleError:
MsgBox "Connection failed"
Exit Sub
End Sub
|
注意：
该示例执行下列任务：
•声明例程中使用的变量。
•使用 Adaptive Server Anywhere OLE DB 提供程序建立到示例数据库的连接。
•使用 Command 对象执行一条简单语句，该语句可在数据库服务器窗口上显示消息。
•关闭连接。
ASAProv 提供程序在安装过程中自行注册。注册过程包括在注册表的COM 部分创建注册表项，以便 ADO 可以在 ASAProv 提供程序被调用时找到该 DLL。如果您更改了 DLL 的位置，则必须进行注册。
(责任编辑：卢兆林）
