各位好!!VB远程更新SQL2000数据库(ADO方式)

chinamikeowen10 2005-05-25 11:55:23
sADOCall.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=JZ02;Data Source=tiger", , , adConnectUnspecified

Dim fRs As New ADODB.Recordset
Dim sCallNO As String
fRs.Open "Select * From Call Order By ID DESC", sADOCall, adOpenStatic, adLockOptimistic, adCmdText
If fRs.EOF Then
sCallNO = 0
ElseIf fRs.Fields("AnswerTime") = "0:00:00" Then
fRs.MoveFirst
fRs!AnswerTime = "00" 'Format(Now, "yyyy-mm-dd hh:mm:ss")
fRs.Update
sCallNO = fRs.Fields("ID").Value
End If
If fRs.State = adStateOpen Then fRs.Close
程序可以运行到frs.movefirst 但提示不能更新数据库!!!
...全文
164 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
DooDu 2005-05-25
  • 打赏
  • 举报
回复
不会,帮up
  • 打赏
  • 举报
回复
在sql里把登录的用户权限加上
zjcxc 2005-05-25
  • 打赏
  • 举报
回复
如果你要让select + order by 方式的数据可以更新,那么要求你的表中有主键或者唯一键,否则sql会因为找不到可以用于记录定位的东西而不允许你更新。


所以解决的办法中在你的表Call中增加一个主键或者唯一键(注意,可以添加标识(自增)字段,但还需要把标识字段设置为主键,否则一样无效)

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧