语句:
content=Request.Form("content")
if(content<>"") then
rs("content")=content
endif
执行时:
数据库中的content字段类型如果是“文本”,字数在255以内就没有问题,如果是“备注”无论字数是多少就出现下面的问题:
错误类型:
Provider (0x80040E21)
多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
1.首先谢谢各位好心人!
2.这是前面表单中的文本区域代码:<textarea name="content" cols="70" rows="5"></textarea>
3.这是提交页面的代码(jy是数据库db.mdb中的一个表,content是表jy中的一个字段,当content设为“文本”类型时,提交没有问题,但是当设为“备注”类型时,就出现了问题):
<%
Dim connString
connString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("db.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = connString
rs.Source ="jy"
rs.CursorType = 1
rs.CursorLocation = 1
rs.LockType = 3
rs.Open()
rs.addnew
dim content
content=Request.Form("content")
if(content<>"") then
rs("content")=content
endif
rs.update
rs.Close()
set rs=nothing
%>