数据库移值后怎么出现这种问题.

2004-04-10 10:54:08 101 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

跨平台开发新选择：Kuikly框架实战解析跨平台开发技术通过共享代码库实现多端应用的高效构建，其核心原理是利用中间层抽象各平台差异。Kotlin Multiplatform（KMP）作为现代跨平台方案，通过expect/actual机制实现平台特定代码的优雅隔离。Kuikly框架基于KMP深度优化，提供原生渲染能力和90%+代码共享率，显著降低Android、iOS和鸿蒙三端开发成本。在电商、金融等需要快速迭代的场景中，这类技术能确保功能同步上线和UI一致性。相比Flutter的Dart语言和React Native的JS Bridge，Kuikl 阅读详情

原先用的是access数据库,后来移植到了sql server上,原先在access数据库上运行是正常的.可移值后,报这样的错误:
Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0cb3'

当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。

/km/Admin_ClassOrderN.asp，行86
请问这是怎么回事呢.

...全文

Kuikly框架：跨平台开发新选择，高效覆盖Android/iOS/鸿蒙跨平台开发技术通过共享代码库实现多端应用开发，显著提升开发效率并降低维护成本。其核心原理在于抽象通用业务逻辑，通过平台适配层处理系统差异，最终调用原生渲染引擎保证性能。这种架构在移动应用、物联网设备等场景具有重要价值，能快速响应多终端适配需求。以Kotlin Multiplatform为基础的Kuikly框架创新性地整合了Android、iOS和鸿蒙平台支持，通过Compose兼容的DSL实现90%代码复用率，实测鸿蒙端帧率可达60FPS。相比传统方案，该框架在保持原生性能优势的同时，解决了Flutter引阅读详情

wkl_allen

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

wkl_allen 2004-04-10

打赏
举报

sub UpOrder()
dim sqlOrder,rsOrder,MoveNum,ClassID,i
dim ParentID,OrderID,ParentPath,Child,PrevID,NextID
ClassID=Trim(request("ClassID"))
MoveNum=trim(request("MoveNum"))
if ClassID="" then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>错误参数！</li>"
else
ClassID=CLng(ClassID)
end if
if MoveNum="" then
FoundErr=true
ErrMsg=ErrMsg & "<br><li>错误参数！</li>"
else
MoveNum=Cint(MoveNum)
if MoveNum=0 then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请选择要提升的数字！</li>"
end if
end if
if FoundErr=True then
exit sub
end if

dim sql,rs,oldorders,ii,trs,tOrderID
'要移动的栏目信息
set rs=conn.execute("select ParentID,OrderID,ParentPath,child,PrevID,NextID

From ArticleClass where ClassID="&ClassID)
ParentID=rs(0)
OrderID=rs(1)
ParentPath=rs(2) & "," & ClassID
child=rs(3)
PrevID=rs(4)
NextID=rs(5)
rs.close
set rs=nothing
if child>0 then
set rs=conn.execute("select count(*) From ArticleClass where ParentPath

like '%"&ParentPath&"%'")
oldorders=rs(0)
rs.close
set rs=nothing
else
oldorders=0
end if
'先修改上一栏目的NextID和下一栏目的PrevID
if PrevID>0 then
conn.execute "update ArticleClass set NextID=" & NextID & " where

ClassID=" & PrevID
end if
if NextID>0 then
conn.execute "update ArticleClass set PrevID=" & PrevID & " where

ClassID=" & NextID
end if

'和该栏目同级且排序在其之上的栏目------更新其排序，范围为要提升的数字
sql="select ClassID,OrderID,child,ParentPath,PrevID,NextID From ArticleClass

where ParentID="&ParentID&" and OrderID<"&OrderID&" order by OrderID desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
i=1
do while not rs.eof
tOrderID=rs(1)
conn.execute("update ArticleClass set OrderID="&tOrderID+oldorders+i&"

where ClassID="&rs(0))
if rs(2)>0 then
ii=i+1
set trs=conn.execute("select ClassID,OrderID From ArticleClass

where ParentPath like '%"&rs(3)&","&rs(0)&"%' order by OrderID")
if not (trs.eof and trs.bof) then
do while not trs.eof
conn.execute("update ArticleClass set

OrderID="&tOrderID+oldorders+ii&" where ClassID="&trs(0))
ii=ii+1
trs.movenext
loop
end if
trs.close
set trs=nothing
end if
i=i+1
if i>MoveNum then
rs(4)=ClassID
rs.update
conn.execute("update ArticleClass set NextID=" & rs(0) & "

where ClassID=" & ClassID)
exit do
end if
rs.movenext
loop
rs.movenext
if rs.eof then
conn.execute("update ArticleClass set PrevID=0 where ClassID="

& ClassID)
else
rs(5)=ClassID
rs.update
conn.execute("update ArticleClass set PrevID=" & rs(0) & "

where ClassID=" & ClassID)
end if
rs.close
set rs=nothing

'更新所要排序的栏目的序号
conn.execute("update ArticleClass set OrderID="&tOrderID&" where

ClassID="&ClassID)
'如果有下属栏目，则更新其下属栏目排序
if child>0 then
i=1
set rs=conn.execute("select ClassID From ArticleClass where

ParentPath like '%"&ParentPath&"%' order by OrderID")
do while not rs.eof
conn.execute("update ArticleClass set

OrderID="&tOrderID+i&" where ClassID="&rs(0))
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
end if
end sub

上面这一段是程序的一部分.执行本函数时出现了问题

diveas 2004-04-10

打赏
举报

贴主要代码看看

heezi 2004-04-10

打赏
举报

把代码贴出来，从access转到sql是会出问题的！

breakshow 2004-04-10

打赏
举报

好象报的是语法错误.看看你数据库的连接写对没有.

数据库移值后怎么出现这种问题.

相关推荐