动网论坛本地连接SQL时出错

发布时间:2024-05-19 19:41 发布:上海旅游网

问题描述:

在本地弄的SQL2000,数据库在D:\Program Files\Microsoft SQL Serve,名字叫BBS.
提示:
错误类型:
Microsoft OLE DB Provider for SQL Server (0x80040E37)
对象名 'Dv_Online' 无效。
/inc/Dv_ClsMain.asp, 第 1439 行

这是conn.asp文件
可修改设置一:========================定义数据库类别,1为SQL数据库,0为Access数据库=============================
Const IsSqlDataBase = 1
MyDbPath = ""
'================================================================================================================
If IsSqlDataBase = 1 Then
'必修改设置二:========================SQL数据库设置=============================================================
'sql数据库连接参数:数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)(本地用local,外地用IP)
Const SqlDatabaseName = "bbs"
Const SqlPassword = "198603"
Const SqlUsername = "sa"
Const SqlLocalName = "(local)"
'独立道具库连接设置
Sub Plus_ConnectionDatabase
Dim ConnStr
If IsSqlDataBase = 1 Then
'sql数据库连接参数:数据库名、用户密码、用户名、连接名(本地用local,外地用IP)
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = "dvbbs"
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
Dim Db
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如将dvbbs6.mdb修改为dvbbs6.asp
Db = MyDbPath & "data/Dv_Plus_Tools.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set Plus_Conn = Server.CreateObject("ADODB.Connection")
Plus_Conn.open ConnStr
If Err Then
err.Clear
Set Plus_Conn = Nothing
Response.Write "插件数据库连接出错,请检查连接字串。"'注释,需要把这几个字翻译成英文。
请问各位大虾那出错了,谢谢.

问题解答:

看看动网支持的sql版本,好像不是2000

热点新闻