|
阅读：4008回复：6
强人进来错误类型： Microsoft JET Database Engine (0x80040E14) FROM 子句语法错误。是什么意思？ <%dim objconn
set objconn = server.CreateObject("ADODB.connection")
objconn.connectionstring = "provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("bookshop.mdb")
dim objrs
set objrs=Server.CreateObject("ADODB.Recordset")
objrs.Open "user",objconn,adopenkeyset,AdLockOptimistic,adcmdtable
if not objrs.eof then
response.Write "yes"
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%> |
|
|
|
1楼#
发布于：2006-11-04 20:38
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<!--#include file="adovbs.inc"-->
<%
dim objconn
set objconn=server.CreateObject("adodb.connection")
objconn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.MapPath("bookshop.mdb")
objconn.open
dim objrs
set objrs=server.CreateObject("adodb.recordset")
objrs.open objrs,objconn,adopenkeyset,adlockoptimistic,adcmdtable
if not objrs.eof then
response.Write(objrs("username"))
else
response.Write("")
end if
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
</body>
</html>这又错在哪了？ |
|
|
|
2楼#
发布于：2006-11-04 20:38
|
|
|
