sql不能訪問
1、檢查SQL服務是否正確安裝，若無，則需重新安裝SQL SERVER
2、檢查SQL伺服器的網路防火牆是否開放了1433埠（1433是默認埠，若已修改，則查看相應埠）
3、在CMD命令行下，使用【Telnet SQL伺服器主機IP地址 1433】命令，查看是否可以正常鏈接SQL伺服器
4、再檢查自己的程序代碼中鏈接資料庫的語句是否正確，多數是用戶密碼的錯誤，當然還有可能是鏈接字元串錯誤（此種錯誤多數是沒有安裝相應驅動）
B. SQL Server不存在或訪問被拒絕
SQL Server 不存在或拒絕訪問在網上找到的相關的解決方法：
（A）1:你如果是獨立上網的請把21埠打開.區域網把1433埠打開就可以了.
2;關閉防火牆!
（B）把資料庫連接的 SqlLocalName="(local)" 的(local) 改成 IP試試。可以把(local) 該成127.0.0.1，或者改成外網IP
（C）打開服務，暫停全文檢索及sql server服務 開啟sql server服務 再開啟全文檢索服務
（D）SQL Server 右鍵屬性==>安全選項中的「所有權鏈接：」「允許跨資料庫所有權鏈接」前面的勾要勾上(此操作需要重起SQL Server)。
我試用了上面的方法都沒有起到作用，最後在微軟的網站上面下載了SQL的sp3補丁裝上去了以後就可以正常安裝運行
嘗試使用下面的形式連接資料庫
'sql資料庫連接參數：資料庫名(SqlDatabaseName)、用戶密碼(SqlPassword)、用戶名(SqlUsername)、
'連接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "gym"
Const SqlPassword = "test"
Const SqlUsername = "sa"
Const SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "資料庫連接出錯，請檢查連接字串。"
Response.End
End If