遍历数据表追加到汇总表（ACCESS 自写代码备忘)

最新推荐文章于 2022-08-10 12:41:30 发布

原创

最新推荐文章于 2022-08-10 12:41:30 发布 · 2.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#access #table #insert #delete #string #vb

这是一个使用VBA在Access中实现的宏，它连接到'c:/TotalData.mdb'数据库，删除现有'汇总表'的内容，然后遍历所有非系统和非临时表，将数据插入到'汇总表'中，并更新表格名称字段。这个过程有助于整合多个数据表信息。

Attribute VB_Name = "模块2" Sub Total() Dim Conn As New ADODB.Connection Dim Rec As New ADODB.Recordset Dim rsTemp As New ADODB.Recordset Dim strSQL As String With Conn .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/TotalData.mdb; " .Open End With strSQL = "select * from 汇总表" Rec.Open strSQL, Conn, adOpenKeyset, adLockPessimistic If Rec.RecordCount > 0 Then Conn.Execute "Delete * from 汇总表" End If Set Rec = Nothing '判断有几张数据表 Set rsTemp = Conn.OpenSchema(adSchemaTables) Do While Not rsTemp.EOF Debug.Print rsTemp!TABLE_NAME If Left(rsTemp!TABLE_NAME, 1) <> "~" And Left(rsTemp!TABLE_NAME, 4) <> "MSys" And rsTemp!TABLE_NAME <> "汇总表" Then strSQL = "Insert into 汇总表 select * from " & rsTemp!TA

最低0.47元/天解锁文章