初学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