语法错误或违反访问规则

Question

连接数据库代码：
Set DB = New ADODB.Connection
    DB.Provider = "MSDataShape"
    DB.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=kqxtFWQ;Data Source=XUJI"

Answer 1

<% 
Const SqlDatabaseName = "gustbook" ' 数据库名字' 
Const SqlPassword = "" '数据库密码' 
Const SqlUsername = "sa" '数据库帐户' 
Const SqlLocalName = "127.0.0.1" '数据库地址' 
'数据库连接函数' 
Sub ConnectionDatabase 
Dim ConnStr 
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 
End Sub 
'默认打开数据库连接 
call ConnectionDatabase() 
%> 

Answer 2

我要用到分组，group不好用，用MSDataShape，所以DB.Provider = "MSDataShape" 
是必须加的，错误在于Provider=SQLOLEDB.1，前面加上data
分给你