小弟初学数据库,现在遇到点问题还请各位高手帮忙!!
以下是程序:caN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=11119;Data Source=" & App.Path & "\Powergy.mdb" Rrs.CursorLocation = adUseClient SQLstr = "SELECT 手牌号,状态 FROM Temp WHERE [手牌号]='" & JieZhangCC
Rrs.Open SQLstr, caN, 3, 3
If Rrs.RecordCount > 0 Then
Rrs.MoveFirst
Do Until Rrs.EOF
If Rrs![状态] = "未结" Then
Rrs![状态] = CStr(Date) + "|" + CStr(time)
End If
Rrs.MoveNext
Loop
End IfRrs.Close
caN.Close我发现,当返回值是一个的时候没有问题,当值大于3个的时候就出现提示“实时错误 -2147414259 键列信息不足或不正确。更新影响到多行。”
请问该如何解决呀!!!
以下是程序:caN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=11119;Data Source=" & App.Path & "\Powergy.mdb" Rrs.CursorLocation = adUseClient SQLstr = "SELECT 手牌号,状态 FROM Temp WHERE [手牌号]='" & JieZhangCC
Rrs.Open SQLstr, caN, 3, 3
If Rrs.RecordCount > 0 Then
Rrs.MoveFirst
Do Until Rrs.EOF
If Rrs![状态] = "未结" Then
Rrs![状态] = CStr(Date) + "|" + CStr(time)
End If
Rrs.MoveNext
Loop
End IfRrs.Close
caN.Close我发现,当返回值是一个的时候没有问题,当值大于3个的时候就出现提示“实时错误 -2147414259 键列信息不足或不正确。更新影响到多行。”
请问该如何解决呀!!!
解决方案 »
- 求助一段循环代码
- 不太懂vb,帮忙看下成语接龙的程序,或一起讨论以下成语接龙的算法(100分)
- 日期转换的问题
- 如何获得另一个程序的内存地址内容??
- 帮帮忙! 关于 activeX 。。和VB.....
- 如何在VB中实现系统热键功能?最好有例子下载.
- 李洪根 求教!让客户用鼠标调整控件大小
- 如何动态创建多个控件?
- 在VB中怎样调用指定的EXCEL文件中定义的宏啊!!!在线等待
- 我用dtpicker绑定到adodc上,但是一修改dtpicker,就会提示出错
- 我刚从VC改到VB来(工作需要),时间紧(一周),不太习惯。请有经验的兄弟谈谈。
- 有什么方法可以更改Image或Picture控件中显示图片的亮度、对比度.急,在线等!
SQLstr = "SELECT id,手牌号,状态 FROM Temp WHERE [手牌号]='" & JieZhangCC
后面应加“ & "'" ”
2、如果需要修改数据应如下:
..........................
If Rrs![状态] = "未结" Then
Rrs![状态] = CStr(Date) + "|" + CStr(time)
Rrs.Update
End If
Rrs.MoveNext
................................
问题解决!!