杭州交通信息网rvs u823无线手持话筒:在VB中想创建一个连接,应该怎样做????代码是什么?
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 10:22:13
在模块中输入Public sysDBS As New ADODB.Connection ----定义
Sub main() ----主程序
On Error GoTo chkERR ------错误处理
sysDBS.Open "DRIVER={Sql Server};Persist Security Info=False;server=jinding;UID=sa;PWD=123" ------ jinding是服务器名称 sa是服务器用户名 123是口令
MsgBox "已经成功联接！" -------反馈成功信息
sysDBS.Execute "use shanghua", , adExecuteNoRecords --------use shanghua 使用的数据库的名称
frmSplash.Show vbModal 连接成功显示的界面
Exit Sub
chkERR:
MsgBox "无法联接！" --------连接错误处理
End Sub ------退出