我用自己的电脑,该怎么做可以使程序连上SERVER?
请教各位了:)
Sub login()
Dim prompt As String
On Error GoTo errhandle
With adoconnection
.ConnectionString = "provider =SQLOLEDB.1;user id=sa;pwd=197966;" & _
             "database=新生注册;Network Address=202.120.215.252"
             '为什么现在没有IP也可以登录了 是否就在本地工作在上
   '.ConnectionString = "provider=sqloledb.1;user id=sa;pwd=197966;" & _
             '"database=新生注册(远程);server=czy"
             '" & Data3 & "格式
   .CommandTimeout = 30
   .Open         '打开连接
prompt = "connection to SqlServer failed" & Chr(10) & "请重新登录"
If .State = adStateOpen Then '检验连接
ok = 1
            Else
            ok = 0
            MsgBox prompt, vbOKOnly, "连接信息"
            End If
            End With
errhandle:
If Err.Description <> "" Then
MsgBox "服务器未打开", vbCritical, "请打开SQL_SERVER数据库"
End
End If
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()