Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "sp", "sa", ""
set rs=cnn.exceute("selcet *from mytable order by 成绩 desc") rs.update
rs.addnew
rs.fields(1)=text1.text
rs.update
我要达到的目的:
1。把表中各记录重新排序
2。为记录某字段赋值错误提示:
当前记录集不支持更新,这可能是提供程序的限制,也可能是选定锁定类型的限制
怎么来修改程序?????????????等待答案
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "sp", "sa", ""
set rs=cnn.exceute("selcet *from mytable order by 成绩 desc") rs.update
rs.addnew
rs.fields(1)=text1.text
rs.update
我要达到的目的:
1。把表中各记录重新排序
2。为记录某字段赋值错误提示:
当前记录集不支持更新,这可能是提供程序的限制,也可能是选定锁定类型的限制
怎么来修改程序?????????????等待答案
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货