我用自己的电脑,该怎么做可以使程序连上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
请教各位了:)
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
全站熱搜
留言列表