检查SQLServer的访问权限设置,是SQL Server验证,还是Window NT验证!
若是SQL Server验证,你提供的用户名和密码是否正确
建议用ADO控件连接后将其连接字符串拷贝过来。
解决方案 »
- 怎样才能实现在一个MDI的FORM中做一个菜单,点击时关闭此MDI FORM,然后打开另一个FORM?
- 怎样将这两条SQL语句,以字符串变量的形式连起来直接调用?
- vb中,如何通过变量的方法,添加sql server数据库表格中的字段?
- 在treeview控件中单击某一个节点时,怎样知道,该接点是第几级,如果根节点是第一级,根节点的孩子均是第二级
- VB高手请入!!文件写入的问题!!
- vb如何通过PID结束新进程
- 太奇怪了!一个数据库的问题
- 如何修改注册表中REG_MULTI_SZ类型的值?
- 我想打印一个事先排好的版面,那应该是怎么样的?
- 图片可以做变量么,刚学求指教
- 请各位进来看看!
- 巴顿专贴:(特刊号1)请各位专家来协助门诊,让分淹死混分坑人者!!!
Public adoCN As New ADODB.Connection '定义数据库的连接存放数据和代码
Public SqlCommand As New ADODB.Command '定义 SQL 命令
Dim adoDateTime As New ADODB.Recordset '获取 NT-SERVER 时间
Public Function OpenConnection() As String '打开数据库
On Error GoTo SQLConErr
With adoCN
.CursorLocation = adUseClient
.Provider = "sqloledb"
.Properties("Data Source").Value = cNtServerName
.Properties("Initial Catalog").Value = cDatabaseName
.Properties("User ID") = cSQLUserName
.Properties("Password") = cSQLPassword
.Properties("prompt") = adPromptNever
.ConnectionTimeout = 15
.Open
If .State = adStateOpen Then
adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
cServertime = Mid(adoDateTime(0), 10)
Else
MsgBox "数据库连接失败,请找系统管理员进行检查 !", 16, cProgramName
End
End If
End With
SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
Exit Function
SQLConErr:
Select Case Err.Number
Case -2147467259
MsgBox "找不到指定的SQL Server服务器或者数据库不存在,请重新设置!", vbExclamation
F_SetSystem.Show 1
Case -2147217843
MsgBox "指定的SQL Server数据库用户不存在或口令错误,请重新设置!", vbExclamation
F_SetSystem.Show 1
Case Else
MsgBox "数据环境连接失败,请找系统管理员进行检查 !", 16, cProgramName
End Select
OpenConnection
End Function