关于数据库连接问题,谢谢

[freewing]

用以下代码
Set ConObj=Server.createobject("ADODB.Connection")
'StrProvider="Driver={Micorsoft Access Driver(*.mdb)};DBQ="&server.mappath("\")&"\database\db1.mdb;UID=Zy;PWD=;"

ConObj.Provider="Microsoft.Jet.OLEDE.4.0"
ConObj.ConnectionString=Server.Mappath("\")&"\Database\db1.mdb"
ConObj.Mode=adModeReadWrite
ConObj.Open
...
上面的ConObj.OPen总是提示出错，

　　　　ADODB.Connection 错误 '800a0e7a'
　　　　未找到提供者。可能未被正确安装。
　　　　/asp/post_new.asp，行33

谢谢

[lsrzm]

3.access

<%
option explicit
'response.buffer=true
dim conn
dim connstr
dim db
db="../news/article.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
if err.number <>0 then
err.Clear
Response.Write "数据库链接错误！"
end if
%>

[zqqych]

<% set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.MapPath("yourdatabase.mdb")
set rs=server.CreateObject("adodb.recordset")%>