ODBC 驱动程序不支持所需的属性。

godbirdhu 2002-05-21 05:14:14

我做一个查询方面的程序
数据库是别人给我的，foxpro的
我按照其他类型的字段查询的时候都很正常
就是做到按日期类型查询时有这样的错误
不知道该如何做？

...全文

105 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

godbirdhu 2002-05-21

打赏
举报

还是没人里我

godbirdhu 2002-05-21

打赏
举报

我只有狂灌了

godbirdhu 2002-05-21

打赏
举报

大家不感兴趣？

nosmoke 2002-05-21

打赏
举报

我一筹莫展

nosmoke 2002-05-21

打赏
举报

与数据库有没有关系？
与foxpro 有没有关系

nosmoke 2002-05-21

打赏
举报

我等了好久

godbirdhu 2002-05-21

打赏
举报

我们的网怎么了哦，这么慢

godbirdhu 2002-05-21

打赏
举报

help

godbirdhu 2002-05-21

打赏
举报

help

nosmoke 2002-05-21

打赏
举报

<html>

<head>
<title>按出版年月查询</title>
</head>

<body >
<%
dim chubannianyue
dim var '传给allinfo.asp的参数
dim pages '查询的记录共有多少条记录？
dim maxcounts '每页需要放多少条记录
dim currentpage '当前页数
dim recordcounts '总记录数
maxcounts=30

if isempty(Request.QueryString("chubannianyuenext")) then
chubannianyue=trim(Request.Form("chubannianyue"))
else
chubannianyue=Request.QueryString("chubannianyuenext")
end if
chubannianyue=datevalue(chubannianyue)

dim chubannianyuenext '给下一次调用该页的时候传递chubannianyue的值

'chubannianyue=Request.Form("chubannianyue")
if not isempty(Request.QueryString("currentpage")) then
currentpage=cint(Request.QueryString("currentpage"))
else
currentpage=1
end if

set rs1=Server.CreateObject("ADODB.RecordSet")
str1="select * from tsk where 出版年月= '%"&chubannianyue&"%'"
rs1.open str1 ,"DSN=library",3,3**********************************************************************************36行
if not rs1.EOF then
recordcounts=rs1.recordcount
pages=cint(recordcounts/maxcounts +1)
%>

<table width=760 border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#CCFFFF" height="24" width=760>
<div align="left"><font color="#000099">共有<%=recordcounts%>条记录,当前是第<%=currentpage%>页我要到第
<%
dim j
j=1
while j<=pages

Response.Write ("|")
%>
<a href=chubannianyuesearch.asp?currentpage=<%=server.urlencode(Response.Write(j))%>&chubannianyuenext=<%=server.urlencode(chubannianyue)%>>
<%=Response.Write(j)%>
</a>
<%

j=j+1
wend

%>

页去</font></div>
</td>
</tr>
</table>
<p>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160">分类号</td>
<td width="600">正题名</td>
</tr>

<%

dim i
i=0

if currentpage>1 then
if (currentpage-1)*maxcounts<recordcounts then

rs1.Move (currentpage-1)*maxcounts
Response.Write (rs1.eof)
end if
end if

while not rs1.EOF and i<maxcounts and not rs1.BOF
i=i+1

%>

<tr>
<td width="160"><%Response.Write (rs1(0))%></td>
<td width="600">

<% var=rs1(4)%>
<% server.urlencode(var)%>
<a href=allinfo.asp?var=<%=server.urlencode(rs1(4))%>><%=rs1(4)%></a>

</td>
</tr>

<%

rs1.MoveNext
Wend
else
Response.Write("没有找到满足条件的记录!")
end if

rs1.close

%>

</table>

</body>
</html>

nosmoke 2002-05-21

打赏
举报

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/wwwlibrary/chubannianyuesearch.asp, 行36

nosmoke 2002-05-21

打赏
举报

** ** *********** *** **********
** ** *********** ** *** **
** ** ** ** *** **
** ** ** ** *** **
********** ********** ** ********
********** ********** ** *****
** ** ** ** ***
** ** ************* ************* ***
** ** ************* ************* ***