回 帖 发 新 帖 刷新版面

主题:新问题

错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足,期待是 1。
/jpkecheng/guojiajpkechengup.asp, 第 43 行

strsql="update guojiaji set kchmingcheng='" & request.form("kchmingcheng") & "',yuanxi='" & request.form("yuanxi") & "',fuzeren='" & request.form("fuzeren") & "',kchleixing='" & request.form("kchleixing") & "',yijimenlei='" & request.form("yijimenlei") & "',erjimenlei='" & request.form("erjimenlei") & "',submi_time='" & date() & "' [color=FF0000]where ID=" &ID[/color]
        db.Execute(strsql)  
        db.close
        set db = nothing
红色的部分就是四十三行

回复列表 (共9个回复)

沙发

submi_time='" & date() & "' 
submi_time为时间类型的字段吧?
改成submi_time=#" & date() & "# 这样试试

板凳

还是不行,不好意思刚才说错了,四十三行是[color=FF0000]db.Execute(strsql) [/color]

3 楼

你注意一下字段的类型,数字的不需要加单引号,字符的要加单引号,时间字段用#号,检查一下strsql语句,是不是字段类型都正确。

4 楼

字段类型都对了,除了submit_time外全是字符型
下面是全文::
<% Option Explicit %>
<% Response.Buffer=True %>
<html>
<head>
    <title> 修改课程</title>
</head>
<body>
    <h2 align="center">修改课程</h2>
    <% 
    Dim ID
    ID=Request.QueryString("ID")
    '以下连上数据库,建立一个Connection对象实例db
    dim db
    set db=Server.Createobject("ADODB.Connection") 
    db.Open "DBQ="&Server.Mappath("jingpin.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};" 
     '以下建立Recordset对象实例rs
    Dim strSql,rs
    strSql="select * from guojiaji where ID="&ID   
    set rs=db.Execute(strSql)
    %>
    <form action="" name="jingpinrew" method="post">
    
        
课程名称&nbsp&nbsp
<input type="text" name="kchmingcheng" value="<%=rs("kchmingcheng")%>"><br><br>
院、系&nbsp&nbsp&nbsp&nbsp
<input type="text" name="yuanxi" value="<%=rs("yuanxi")%>"><br><br>
负责人&nbsp&nbsp
<input type="text" name="fuzeren" value="<%=rs("fuzeren")%>"><br><br>
课程类型
<input type="text" name="kchleixing" value="本科" value="<%=rs("kchleixing")%>"><br><br>
所属一级学科门类
<input type="text" name="yijimenlei" value="<%=rs("yijimenlei")%>"><br><br>
所属二级学科门类
<input type="text" name="erjimenlei" value="<%=rs("erjimenlei")%>"><br><br>

<input type="submit" value="确定">
</form>
    <% 
    '如果上面的信息填全了,就添加记录,否则给出错误信息
    if request.form("kchmingcheng")<>"" and request.form("yuanxi")<>"" and request.form("fuzeren")<>"" and request.form("kchleixing")<>"" and request.form("yijimenlei")<>"" and request.form("erjimenlei")<>"" then
        strsql="update guojiaji set kchmingcheng='" & request.form("kchmingcheng") & "',yuanxi='" & request.form("yuanxi") & "',fuzeren='" & request.form("fuzeren") & "',kchleixing='" & request.form("kchleixing") & "',yijimenlei='" & request.form("yijimenlei") & "',erjimenlei='" & request.form("erjimenlei") & "',submi_time='#" & date() & "#'  where ID=" &ID
        db.Execute(strsql)  
        db.close
        set db = nothing        
        Response.Redirect "guojiajpkecheng.asp"
        Else
        Response.Write "请将所有信息填写完整"
    End If
    %>
</body> 
</html> 

5 楼

MicrosoftOLEDBProviderforODBCDrivers(0x80040E10)-->sql语句出错(update字段名或要更新的数据类型错误)

6 楼


兄弟再帮我看看这个吧
这句格式怎么写才对

strsql="select * from request.form("jibie") where request.form("xuanxiang") like 'request.form("neirong")%'"

7 楼

strsql="select * from "&request.form("jibie")&" where "&request.form("xuanxiang")&" like 'request.form("neirong")%'"

8 楼


在问个问题,连接文件名和扩展名怎么连,在SQL语句里面

9 楼

str="11111"
str2=".txt"
s=str&str2 '得到的结果是11111.txt
不知道你要的是不是这个

我来回复

您尚未登录,请登录后再回复。点此登录或注册