用vb的ado连接到Ms sql server2000,提示用户sa登录失败,望高人指教
PrivateSubForm_Load()'创建Connection对象cnn,关键New用于创建新对象DimcnnAsNewADODB.Connection'设置连接字...
Private Sub Form_Load()
'创建Connection对象cnn,关键New用于创建新对象
Dim cnn As New ADODB.Connection
'设置连接字符串
cnn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;" _
+ "Password=sa;Initial Catalog=Hr;Data Source=127.0.0.1"
'打开到数据库的连接
cnn.Open
'判断连接的状态
If cnn.State = adStateOpen Then
'如果连接成功,则显示OK
MsgBox "打开数据库"
End If
'关闭连接
cnn.Close
'判断连接的状态
If cnn.State = adStateClosed Then
'如果连接成功,则显示OK
MsgBox "关闭数据库"
End If
End Sub
提示用户sa登录失败,选择调试,指到 cnn.Open 这一行
我的sa没有密码,在Password=sa;后面加上PWD=,也是一样的问题,sql服务管理器是运行的,使用sql server和windows混合登录,不知道哪里错了。
是不是还需要配置ODBC数据源,怎么配置?
望高人指教,我是菜鸟,请说详细点。 展开
'创建Connection对象cnn,关键New用于创建新对象
Dim cnn As New ADODB.Connection
'设置连接字符串
cnn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;" _
+ "Password=sa;Initial Catalog=Hr;Data Source=127.0.0.1"
'打开到数据库的连接
cnn.Open
'判断连接的状态
If cnn.State = adStateOpen Then
'如果连接成功,则显示OK
MsgBox "打开数据库"
End If
'关闭连接
cnn.Close
'判断连接的状态
If cnn.State = adStateClosed Then
'如果连接成功,则显示OK
MsgBox "关闭数据库"
End If
End Sub
提示用户sa登录失败,选择调试,指到 cnn.Open 这一行
我的sa没有密码,在Password=sa;后面加上PWD=,也是一样的问题,sql服务管理器是运行的,使用sql server和windows混合登录,不知道哪里错了。
是不是还需要配置ODBC数据源,怎么配置?
望高人指教,我是菜鸟,请说详细点。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询