UC知道ASP无法连接ACCESS数据库（高手请教）
来源：百度知道 编辑：UC知道 时间：2024/06/08 09:07:49
连接数据库代码：
<%
Option Explicit '要求变量声明，这样所有包含此文件的都需要声明变量
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "Database/shopbook.mdb" '演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'连接 SQL Server时使用下面的连接字符串
'connstr = "Provider=SQLOLEDB; User ID=sa; Password=; Initial Catalog=trfhandset; Data Source=localhost"
Set conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
'替换单引号，向数据库中写入数据时用
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "'", "’")
end function
'替换单引号并进行HTML编码，向网页输出数据
<%
Option Explicit '要求变量声明，这样所有包含此文件的都需要声明变量
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "Database/shopbook.mdb" '演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'连接 SQL Server时使用下面的连接字符串
'connstr = "Provider=SQLOLEDB; User ID=sa; Password=; Initial Catalog=trfhandset; Data Source=localhost"
Set conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
'替换单引号，向数据库中写入数据时用
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "'", "’")
end function
'替换单引号并进行HTML编码，向网页输出数据
你那个连接方法比较麻烦，我给你一个到吗。
你参考一下：
<%
dim conn
Dim connstr
dim dbpath
dbpath="date/tibetan.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "Sorry! 数据库连接出错，请检查连接字串。"
Response.End
End If
%>
只有两种可能：
一：数据库所在目录没有写权限；
二：申请的记录集为只读类型，请换活动类型的。。。
这个和你链接数据库的代码没关系．
你看看是不是你写的哪个修改，或是删除的程序里边的记录集属性不对啊．
就是那个rs.open sql,conn,1,1改成rs.open sql,conn,1,3
还有的一种可能就是你用的NTFS系统，这样的话，默认的数据库可能没有修改的权限，你改一下数据库的权限就行了．
你在数据库上右击．选属性 安全 USERS 完全控制
楼主没提供发生错误的代码，从这段看不出来错误源的原因的