Question

VB一直连接不上数据库 一直说对象关闭时不允许操作.. 纯新手 求大神们 指导

'/*connect*/
Public Function CreateConnectSqlForAll(ByRef pcnnAdo As ADODB.Connection, _
ByVal pstrSqlServerName As String, _
Optional ByVal pstrSqlData As String, _
Optional ByRef pstrUserID As String, _
Optional ByRef pstrPassWord As String, _
Optional ByRef pstrConnectstring As String, Optional ByVal pstrdefault As String) As String
Dim cnnSqlServer As String
Const cntUserID = "sa" 'LYSXM
Const cntPwd = "123" 'lys2008SQLbest

On Error GoTo Errlbl

If pstrdefault = "lysxm2010" Or pstrdefault = "returnstring" Then
pstrUserID = cntUserID
pstrPassWord = cntPwd

End If
cnnSqlServer = "Driver={SQL Server}" & _
";Server=" & pstrSqlServerName & _
";Uid=" & pstrUserID & _
";Pwd=" & pstrPassWord & _
";Database=" & pstrSqlData
If pstrdefault = "returnstring" Then
pstrConnectstring = cnnSqlServer
Exit Function
End If

Set pcnnAdo = New ADODB.Connection

With pcnnAdo
.ConnectionTimeout = 1000 '60
.CommandTimeout = 0
.ConnectionString = cnnSqlServer
.CursorLocation = adUseClient adUseServer
.Mode = adModeReadWrite
.IsolationLevel = adXactCursorStability
.Open
End With

Exit Function

Errlbl:
Set pcnnAdo = Nothing
End Function

Answer 1

ConnSQL.Open "driver={SQL Server};server=(local);database=data;uid=sa;pwd=123;"

直接用这个 简单明了

你用的这个条件太多了 看的头痛

追问

怎么改啊= =~ 哪几句撤了~

追答

全部都不用 就用我给你的这一句 就搞定上面 所有的