您当前的位置:
在线急等，大家帮帮忙
Access连接的小问题
sales.asp
<%@ Transaction =Required%>
<%
Quantity =Request("productNum")
productCode=trim(Request("productCode"))
sqlstr="select * from product where pid='"& productCode &"'and inventory >="& cint(Quantity)
dim conn,rs,dbq
set conn= Server.CreateObject("ADODB.connection")
set rs= Server.CreateObject("ADODB.recordset")
dbq=Server.MapPath("\test.mdb")
Response.write dbq
conn.Connectionstring="driver={Micorosoft Access Driver(*.mdb)}; dbq="&dbq
conn.open
rs.open sqlstr,conn
if rs.bof then
ObjectContext.SetAbort
else
ObjectContext.SetComplete
newq= rs("inventory")-Cint("Quantity")
rs.close
sqlstr="update product set inventory="& newq&",sales="&Cint(Quantity)&"where pid ='"&productCode& "'"
response.write sqlstr
rs.open sqlstr,conn
resopnse.write"订单处理"
end if
%>
Index.asp
<html>
<head><title>Sales orders</title></head>
<body bgcolor="#ffffff">
<font face="arial,helvetica">
<h2>订单</h2>
<form action="Sales.asp" method=post>
<p>输入产品代码<input type="text" name=productCode></p>
<p>输入购买数量<input type="text" name=productNum> </p>
<p><input type="submit" value="确定">
</form>
</body>
</html>
错误提示：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/Hymin/code/Sales.asp, 第 16 行
最后添加一句：我只想用ADO方式连接，用不用配置数据源啊？怎样配置才对啊？
------解决方案--------------------
你这样的用数据源方式连接access很麻烦，这个主要是路径错了。。
用ADO方式很简单
//ADO连接ACCESS数据库
dim conn,connstr
set conn=server.CreateObject("adodb.connection")
connstr="DBQ="&server.MapPath("../DataBase/guest.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
conn.open connstr
//数据库处理
dim rs,strsql
set rs=server.CreateObject("adodb.command")
strsql="Insert Into guest(name,body,email,phone) values ('"&TBname&"','"&TBbody&"','"&TBemail&"','"&TBphone&"')"
set rs=conn.execute(strsql)
conn.close