ADODB.Recordset 记录删除问题
我用ADO控件绑定一个数据库,删除其中一个记录后,数据库中这条记录确实删除了,但在ADODB.Recordset 记录集中并没有删除,用Refresh方法也没用,这是为什么?
基本代码如下:
Private Sub Form_Load()
adoMain.ConnectionString = cnHhsoft
adoMain.RecordSource = "select * from Notify_Main order by cNCode"
adoMain.Refresh
End Sub
'删除按钮
Private Sub cmdDel_Click()
Dim IntR As Integer
Dim strTemp As String
Dim cmSearch As ADODB.Command
IntR = MsgBox("确实要删除【" & strNCode & "】这张单据吗?", 36, "提醒!")
If IntR = vbYes Then
strTemp = "delete from Notify_Main where cNCode ='" & strNCode & "'"
cmSearch.CommandText = strTemp
cmSearch.Execute
adoMain.Refresh
End If
End Sub
我看了数据库中的Notify_Main 表,这条记录确实删除了,但我在程序中用向前、向后的按钮浏览记录时,这条记录还在。但是在增加记录的情况下却不存在这种情况,这是什么原因?望高手指点
基本代码如下:
Private Sub Form_Load()
adoMain.ConnectionString = cnHhsoft
adoMain.RecordSource = "select * from Notify_Main order by cNCode"
adoMain.Refresh
End Sub
'删除按钮
Private Sub cmdDel_Click()
Dim IntR As Integer
Dim strTemp As String
Dim cmSearch As ADODB.Command
IntR = MsgBox("确实要删除【" & strNCode & "】这张单据吗?", 36, "提醒!")
If IntR = vbYes Then
strTemp = "delete from Notify_Main where cNCode ='" & strNCode & "'"
cmSearch.CommandText = strTemp
cmSearch.Execute
adoMain.Refresh
End If
End Sub
我看了数据库中的Notify_Main 表,这条记录确实删除了,但我在程序中用向前、向后的按钮浏览记录时,这条记录还在。但是在增加记录的情况下却不存在这种情况,这是什么原因?望高手指点
...全文
相关推荐
git客户端工具Git-2.16.2-64-bit+TortoiseGit-2.6.0.0-64bit
包含:Git-2.16.2-64-bit+TortoiseGit-2.6.0.0-64bit+TortoiseGit-LanguagePack-2.6.0.0-64bit-zh_CN,全套三个客户端安装包,亲测可用!
git客户端 TortoiseGit2.6.0
Git小乌龟客户端,更方便的操作git,不用去记git命令,在官网下载很慢,所以收藏一下 有语言包的哟
git版本库客户端 Tortoise2.6.0
git版本库的客户端,windows系统64位,内含语言包,操作简单,方便!在官网下载很慢,所以收藏一下
git第三方插件tortoisegit
TortoiseGit 客户端 :git第三方插件tortoisegit version is: 2.6.0
TortoiseGit-2.6.0.0-64bit
TortoiseGit-2.6.0.0-64bit 下载安装使用参考:https://blog.csdn.net/ladymorgana/article/details/81508390


VB基础类
