刪除記錄的幾種方法示例
Private Sub cmdDelete_Click() '刪除當前記錄 If Not Me.NewRecord Then RunCommand acCmdDeleteRecord MsgBox "當前記錄已刪除成功!", vbInformation, "提示" Else Me.Undo End If End Sub Private Sub Command45_Click() '刪除選中記錄 On Error Resume Next Dim strsql As String Dim intCount As Long intCount = DCount("id", "tbl前區統計指標", "刪除 = -1") If intCount = 0 Then MsgBox "你還沒選中記錄,不能刪除!", vbInformation, "提示" Exit Sub Else If (MsgBox("你真的要刪除 " & intCount & " 條選中的記錄嗎?", vbQuestion + vbYesNo, "提示") = vbYes) Then strsql = "delete * from tbl前區統計指標 where 刪除=-1" DoCmd.RunSQL strsql Me.Requery MsgBox "已刪除 " & intCount & " 條選中記錄!", vbInformation, "提示" Else Exit Sub End If End If End Sub Private Sub Command46_Click() '清除所有記錄 Dim intCount As Long intCount = DCount("id", "tbl前區統計指標") If (MsgBox("你真的要刪除所有( " & intCount & " 條)的記錄嗎?", vbQuestion + vbYesNo, "提示") = vbYes) Then strsql = "delete * from tbl前區統計指標" DoCmd.RunSQL strsql Me.Requery MsgBox "已刪除所有( " & intCount & " 條)記錄!", vbInformation, "提示" Else Exit Sub End If End Sub
程序名稱:FST_BACKDOOR(暫定)版本:1.0(未完成)開發環境:WinXP Sp2 + VC6.0運行環境:2000/XP/2003(不適用98)使用說明: 該後門運行後註冊爲服務,在進程管理器中有相應進程,用telne
Centos7安裝jdk1.8(rpm/tar.gz)圖文教程 1、下載Linux版的jdk安裝包 下載地址: https://www.oracle.com/technetwork/java/javase/downloads/jdk8-d
windows10安裝node12.18.0 下載node https://nodejs.org/zh-cn/ 雙擊執行下載的安裝包 運行安裝 單擊下一步 5、接收協議並執行下一步 6、選擇安裝地址,執行下一步 執行下一步
騰訊雲centos7.7(64)服務器安裝mysql8.0.20數據庫 1、重裝雲服務器操作系統(爲了模擬新服務器首次安裝mysql數據庫,這一步可以忽略) 2、下載mysql安裝包 下載地址:https://dev.mysql.c