[求助]在ACESS中可以执行,用SQL数据库就不行???
conn.execute("UPDATE bxdlr SET click=click + 1 WHERE userid=" &userid)
出现以下错误:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'execute'
/ghs/mb1.asp，行11
问题点数：20、回复次数：7Top
1 楼xiaobird1（Vincent）回复于 2003-09-03 13:56:56 得分 0
set conn = Server.CreateObject("ADODB.Connection")
有这句吗？
贴出更多的代码。Top
2 楼gxl598（SAM）回复于 2003-09-03 13:59:51 得分 0
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/bbsbak.asp" -->
<%
userid=Request.QueryString("userid")
username=Request.QueryString("username")
Set conn = Server.CreateObject("ADODB.Recordset")
conn.ActiveConnection = MM_bbsbak_STRING
'conn.execute("UPDATE bxdlr SET click=click + 1 WHERE userid=" &userid)
conn.Source = "SELECT * FROM dbo.bxdlr where userid=" & userid
conn.open()
userid=conn("userid")
username=conn("username")
Top
3 楼xiaobird1（Vincent）回复于 2003-09-03 14:06:47 得分 10
Set conn = Server.CreateObject("ADODB.Recordset")
-->
set conn = Server.CreateObject("ADODB.Connection")
recordset是记录集访问对象
connection才是ado连接对象
不光sql，access应该也不可以呀！Top
4 楼gxl598（SAM）回复于 2003-09-03 14:18:44 得分 0
<!--#include file="Connections/bbsbak.asp" -->
<%
userid=Request.QueryString("userid")
username=Request.QueryString("username")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_bbsbak_STRING
set conn = Server.CreateObject("ADODB.Connection")
conn.execute("UPDATE bxdlr SET click=click + 1 WHERE userid=" &userid)
rs.Source = "SELECT * FROM dbo.bxdlr where userid=" & userid
rs.open()
ADODB.Connection 错误 '800a0e78'
对象关闭时，操作不被允许。
/ghs/mb1.asp，行17
------------------------Top
5 楼xiaobird1（Vincent）回复于 2003-09-03 14:24:53 得分 10
<!--#include file="Connections/bbsbak.asp" -->
<%
userid=Request.QueryString("userid")
username=Request.QueryString("username")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_bbsbak_STRING
set conn = Server.CreateObject("ADODB.Connection")
conn.execute("UPDATE bxdlr SET click=click + 1 WHERE userid=" &userid)
set rs = conn.Execute( "SELECT * FROM dbo.bxdlr where userid=" & userid )
Top
6 楼xiaobird1（Vincent）回复于 2003-09-03 14:26:46 得分 0
<!--#include file="Connections/bbsbak.asp" -->
<%
userid=Request.QueryString("userid")
username=Request.QueryString("username")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_bbsbak_STRING
set conn = Server.CreateObject("ADODB.Connection")
conn.execute("UPDATE bxdlr SET click=click + 1 WHERE userid=" &userid)
set rs = conn.Execute( "SELECT * FROM dbo.bxdlr where userid=" & userid )
Top
7 楼gxl598（SAM）回复于 2003-09-03 14:27:41 得分 0
已经成功解决,谢谢!!
代码如下.
<!--#include file="Connections/bbsbak.asp" -->
<%
userid=Request.QueryString("userid")
username=Request.QueryString("username")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_bbsbak_STRING
set conn=server.createobject("ADODB.CONNECTION")
conn.open MM_bbsbak_STRING
conn.execute("UPDATE bxdlr SET click=click + 1 WHERE userid=" &userid)
rs.Source = "SELECT * FROM dbo.bxdlr where userid=" & userid
rs.open()
Top
8 楼ryuginka（一米八五的猪）回复于 2003-09-03 14:31:09 得分 0
conn.execute("UPDATE bxdlr SET click=click + 1 WHERE userid='" &userid & "'")
Top
