Command的问题

sunzhikai1978 2003-11-07 03:15:38

下面这段代码运行时出错：
Microsoft VBScript 编译器错误错误 '800a0408'
无效字符
Cmd.CommandText = "select * from USR"　　　
----------------------------------^
数据源，用户名，密码都没错，USR表也没错
把Cmd.CommandType = adCmdText改成Cmd.CommandType = adCmdTable，还是这个错
我实在是想不通了，请各位帮帮忙
源程序：
<% @LANGUAGE = VBScript %>

<%
Response.Expires = 0
Dim Conn, RS,Cmd

' 建立连接
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "kut", "kut", "kut"

' 创建Command对象
Set Cmd = Server.CreateObject("ADODB.Command")
Set Cmd.ActiveConnection = Conn
Cmd.CommandText = "select * from USR"
Cmd.CommandType = adCmdText
Set RS = Cmd.Execute
%>
<HTML>
<BODY>
下面输出结果, 输入参数为:
 au_id 
<%
While Not RS.EOF
Response.Write (RS("usr_name")) & " "
RS.MoveNext
Wend
Conn.close
Set RS = Nothing
Set Conn = Nothing
Set Cmd = Nothing
%>
</BODY>
</HTML>

...全文

38 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

ywcannon 2004-02-16

打赏
举报

可能是缺少msado15.dll文件吧，你吧msado15.dll包含在页面的开头处试试。

sunzhikai1978 2003-11-07

打赏
举报

对，没错
我就是用来执行存储过程的
但我用存储过程也碰到一样的错，也错在同一个地方，所以我用上面的代码试试

其代码如下：
<% @LANGUAGE = VBScript %>

<%
Response.Expires = 0
Dim Cnn, objRS,strConn,objCmd, objParam,strIn

' 建立连接
Set Cnn = Server.CreateObject("ADODB.Connection")
Cnn.Open "kut", "kut", "kut"

' 创建Command对象
Set objCmd = Server.CreateObject("ADODB.Command")
Set objCmd.ActiveConnection = Cnn
objCmd.CommandText = "myproc"
objCmd.CommandType = adCmdStoredProc

'创建并定义参数
Set objParam = objCmd.CreateParameter("pass", adInteger, adParamInput, 4, 10)
objCmd.Parameters.Append objParam
objCmd.Parameters("pass") = "111"
Set objRS = objCmd.Execute
%>
<HTML>
<BODY>
下面输出结果, 输入参数为:
<%= objCmd.Parameters("pass") %> .
 au_id 
<%
While Not objRS.EOF
Response.Write Server.HTMLEncode(objRS("usr_name")) & " "
objRS.MoveNext
Wend
objRS.close
Cnn.close
Set objRS = Nothing
Set Cnn = Nothing
Set objParam = Nothing
Set objCmd = Nothing
%>
</BODY>
</HTML>

xiejunhua 2003-11-07