Microsoft Jet 数据库引擎找不到输入表或查询 'certificate'。 确定它是否存在,以及它的名
数据库确实没有问题我是给spl数据库改成mdb数据库现在mdb数据库都做好了就是这个代码没有改好MicrosoftJETDatabaseEngine错误'80040e37...
数据库确实没有问题 我是给spl数据库改成mdb数据库现在mdb数据库都做好了 就是这个代码没有改好
Microsoft JET Database Engine错误 '80040e37'Microsoft Jet 数据库引擎找不到输入表或查询 'certificate'。 确定它是否存在,以及它的名称的拼写是否正确。/hunan/certificate.asp,行 66
inputsub = trim(FilterCheck_str(server.htmlencode(Request.Form("inputsub"))))
certiName = trim(FilterCheck_str(server.htmlencode(Request.Form("certiName"))))
certiType = trim(FilterCheck_str(server.htmlencode(Request.Form("certiType"))))
certiNumber = trim(FilterCheck_str(server.htmlencode(Request.Form("certiNumber"))))
certiPNumber = trim(FilterCheck_str(server.htmlencode(Request.Form("certiPNumber"))))
rightnow=""
if inputsub = "Y" then
if certiName ="" or certiNumber="" then
response.write "输入信息不全"
else
certiName=formlen(certiName,200)
certiType=formlen(certiType,200)
certiNumber=formlen(certiNumber,200)
certiPNumber=formlen(certiPNumber,200)
myright=1
if myright=1 then
sql = "select * from certificate where certiName='" & Encrypt(certiName) & "' and certiNumber ='"& Encrypt(certiNumber) & "'"
if certiType<>"" then
sql = sql & "and certiType='" & Encrypt(certiType) & "'"
end if
if certiPNumber<>"" then
sql = sql & "and certiPNumber ='" & Encrypt(certiPNumber) & "'"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
rightnow="no"
else
rightnow="yes"
certiType=decrypt(rs("certiType"))
certiPNumber=decrypt(rs("certiPNumber"))
end if
rs.close
以上代码是写sql数据库连接用的 现在数据库改成mdb了 mdb数据库绝对没有问题 就是这里面代码这么改下 展开
Microsoft JET Database Engine错误 '80040e37'Microsoft Jet 数据库引擎找不到输入表或查询 'certificate'。 确定它是否存在,以及它的名称的拼写是否正确。/hunan/certificate.asp,行 66
inputsub = trim(FilterCheck_str(server.htmlencode(Request.Form("inputsub"))))
certiName = trim(FilterCheck_str(server.htmlencode(Request.Form("certiName"))))
certiType = trim(FilterCheck_str(server.htmlencode(Request.Form("certiType"))))
certiNumber = trim(FilterCheck_str(server.htmlencode(Request.Form("certiNumber"))))
certiPNumber = trim(FilterCheck_str(server.htmlencode(Request.Form("certiPNumber"))))
rightnow=""
if inputsub = "Y" then
if certiName ="" or certiNumber="" then
response.write "输入信息不全"
else
certiName=formlen(certiName,200)
certiType=formlen(certiType,200)
certiNumber=formlen(certiNumber,200)
certiPNumber=formlen(certiPNumber,200)
myright=1
if myright=1 then
sql = "select * from certificate where certiName='" & Encrypt(certiName) & "' and certiNumber ='"& Encrypt(certiNumber) & "'"
if certiType<>"" then
sql = sql & "and certiType='" & Encrypt(certiType) & "'"
end if
if certiPNumber<>"" then
sql = sql & "and certiPNumber ='" & Encrypt(certiPNumber) & "'"
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
rightnow="no"
else
rightnow="yes"
certiType=decrypt(rs("certiType"))
certiPNumber=decrypt(rs("certiPNumber"))
end if
rs.close
以上代码是写sql数据库连接用的 现在数据库改成mdb了 mdb数据库绝对没有问题 就是这里面代码这么改下 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询