Access微課連載
網站公告
·Access快速平臺QQ群號:84825014    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > Access數據庫-模塊/函數/VBA

【Access基礎】清除數據庫中所有的表的數據

時 間:2020-04-22 21:46:10
作 者:name   ID:63090  城市:臨汾
摘 要:清除數據庫中所有的表的數據,并且設置自增長的列從1開始計數。
正 文:

問   題:

在Access論壇看到一位網友的問題:清除表中的所有數據,并且自增長的列,從1開始。

整理了一下答案,方便以后需要的朋友使用。


解決方法:

1、先遍歷所有表,對除了系統表外,都執行刪除操作;

2、對表中左右的字段進行遍歷,如果是自增長的字段,設置序號從1開始。

使用以下代碼可以解決:

Function delete_all()
    '遍歷所有表
    For i = 0 To CurrentDb.TableDefs.Count - 1
        '如果是系統表,不清除數據
        If CurrentDb.TableDefs(i).Name Like "*Sys*" = False Then
            '清除表中所有數據
            CurrentDb.Execute "delete * from [" + CurrentDb.TableDefs(i).Name + "]"
            '遍歷表中所有字段
            For j = 0 To CurrentDb.TableDefs(i).Fields.Count - 1
                '如果當前字段是自增長 設置當前字段從1開始
                If (CurrentDb.TableDefs(i).Fields(j).Type = 4) Then
                    CurrentDb.Execute "Alter TABLE [" + CurrentDb.TableDefs(i).Name + "] Alter COLUMN [" + CurrentDb.TableDefs(i).Fields(j).Name + "] COUNTER (1, 1)"
                    Exit For
                End If
            Next j
        End If
    Next i
End Function


Access軟件網QQ交流群 (群號:143677707)       access源碼網店

最新評論 查看更多評論(0)

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助