行集不支持反向提取

来源:互联网 发布:iscroll.js官网 编辑:程序博客网 时间:2024/06/03 23:00

  初学ACCESS,在运行过程中出现错误类型:

Microsoft JET Database Engine (0x80040E24)

行集不支持反向提取。

 /456/include/head.asp, 第 71 行  

 特来请教各位大虾程序如下:

OpenData

If Application(SystemKey&"Loaded")=""  Or configChg="YES" Then

'dim board_configSql="select * from Board where BoardID>0 order by BoardId"  '调入栏目名称

Openrs(Sql)

Application.Lock

application(systemkey&"boardcount")=Rs.recordcount

For i=1 to Rs.Recordcount-1

Application(systemkey&i)=Rs("boardname")

'If Rs("anonymous") = True Then board_config="1" Else board_config="0"

'If Rs("ubb") = True Thenboard_config=board_config&"1"Else board_config=board_config&"0"

'If Rs("vip") = True Then board_config=board_config&"1" Else board_config=board_config&"0"'If Rs("upload") = True Then board_config=board_config&"1" Else board_config=board_config&"0"'Application(systemkey&i&"_config")=board_configapplication(systemkey&"anonymous"&i)=Rs("anonymous")application(systemkey&"ubb"&i)=Rs("ubb")application(systemkey&"vip"&i)=Rs("vip")application(systemkey&"upload"&i)=Rs("upload")Rs.MovenextNextRs.MoveLastApplication(systemkey&999)="保密区域"application(systemkey&"anonymous"&999)=Rs("anonymous")application(systemkey&"ubb"&999)=Rs("ubb")application(systemkey&"vip"&999)=Rs("vip")application(systemkey&"upload"&999)=Rs("upload")Application.UnlockApplication.LockApplication(SystemKey&"Loaded")="YES"Application.UnlockRs.CloseEnd IfboardCount=Cnum(application(systemkey&"boardcount"))-1

原创粉丝点击