VB连接SQL数据库,高手帮帮忙,在线等,谢谢

Question

为什么我连接数据库总是连接不了?
连接代码如下:
Public Const MSG_306 = "登录失败，请与系统管理员联系！"
Dim strConnectString As String
    Dim adoErr As ADODB.Error
    Dim gConn as ADODB.Connection
    
    Set gConn = New ADODB.Connection
   
    gConn.Errors.Clear
    On Error GoTo errHandlestrConnectString = "Provider=Microsoft OLE DB Provider for SQL Server;Data Source=chenpeide;Initial Catalog=aparttdb_DATA;User ID=sa;Password=1234"
 gConn.Open strConnectString    
errHandle:
    MsgBox MSG_306, vbOKOnly + vbCritical, "错误为什么会连接数据库时登录不了?
总是说:登录失败，请与系统管理员联系！
请高手帮帮忙啊!在线等

Answer 1

Const MSG_306 = "登录失败，请与系统管理员联系！"Private Sub Form_Load()
    Dim strConnectString As String
    Dim adoErr As ADODB.Error
    Dim gConn As ADODB.Connection
    Set gConn = New ADODB.Connection
    gConn.Errors.Clear
    On Error GoTo errHandle
    strConnectString = "Provider=SQLOLEDB.1;Password=你的密码;Persist Security Info=True;User ID=你的用户;Initial Catalog=你的数据库"
    gConn.Open strConnectString
    MsgBox gConn.State
Exit Sub              '这儿不加退出正确的也会报错的呀
errHandle:
    MsgBox MSG_306, vbOKOnly + vbCritical, "错误"
End Sub

Answer 2

MsgBox gConn.State 是报连接状态，1为连接成功

Answer 3

"Provider=SQLOLEDB.1;Password=1234;Persist Security Info=True;User ID=sa;Initial Catalog=aparttdb_DATA;Data Source=chenpeide"

Answer 4

Provider=SQLOLEDB.1
跟
Provider=Microsoft OLE DB Provider for SQL Server
有什么不同吗?

Answer 5

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Function cnindb() As Boolean
On Error GoTo on_error
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DEPTLACCP;Data Source=Z000"
    cn.ConnectionTimeout = 30
    cn.Open
    
    Exit Function
on_error:
MsgBox "错误描述：" & Err.Description & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "连接错误"
End Functionz000是副器名称
DEPTLACCP是数据名

Answer 6

你的sql server装的是不是WINDOWS 安全模式，应该在cn.ConnectionString 中加入Integrated Security=SSPI

Answer 7

http://school.bjxx.net/yanxianni.asp?id=732