如何在ACCESS的模块(vba)中删除另外一个MDB文件中的数据表?
发布网友
发布时间：2024-09-29 21:13
我来回答
共1个回答
热心网友
时间：2024-09-30 16:07
可以写一个通用函数：
Function DeleteTables() As Boolean
On Error GoTo theerr
Dim wrkDefault As Workspace, dbs As Database, Paths As String, rst As Recordset, TableName As String
'定义工作区、数据库、数据库路径、记录源对象、表名字
Paths = "目标数据库位置" '自己替换一下
TableName = "目标表名字" '自己替换一下
Set wrkDefault = DBEngine.Workspaces(0) '定义工作区
Set dbs = wrkDefault.OpenDataBase(Paths, False) '打开目标数据库
Set rst = dbs.OpenRecordset(TableName) '打开目标数据表
Do Until rst.EOF '逐条删除记录 至结尾
rst.Delete
Loop
'释放对象
rst.Close
dbs.Close
wrkDefault.Close
End Function
前提，在VBA的“引用”中，要对DAO3.6库进行引用。
Execl_VBA操作Access数据库。查询,更新,删除
= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TM.mdb" .CursorLocation = 3 .CursorType = 1 .LockType = 3 '// 设置SQL语句 .Source = strSQL '// 准备打开记录集 .Open '删除TMB表中的所有记录 if adort.recordcount<>0 then adort.movefirst ...
access中通过命令按钮添加和删除一个表中的一条记录VBA代码怎么写?
在按钮的事件中如下写：'添加 DOCMD.RUNSQL "INSERT INTO 表1 ( 字段1, 字段2 ) value(111,'aaa')"或 DoCmd.GoToRecord , , acNewRec '删除 DOCMD.RUNSQL "delete * from 表1 WHERE ID=9"或 DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar...
用VBA实现两个MDB中表的互导
DoCmd.TransferDatabase acImport, "Microsoft Access", _ "C:\My Documents\NWSales.mdb", acReport, "NW Sales for April", _ "Corporate Sales for April"下一个示例将 ODBC 数据库 (ODBC Database) 的“Authors”表链接到当前数据库中：DoCmd.TransferDatabase acLink, "ODBC Database...
如何删除MDB数据库中的宏
打开数据库mdb文件的时候access程序中的autoexec宏会自动运行。要想跳过这个宏并打开数据库你可以首先按住shift键然后双击你要打开的mdb文件直到你彻底打开mdb文件为止。
如何将ACCESS数据库中的数据通过VBA程序提出 放入 EXCEL工作表中 求...
visual basic编辑器-工具-引用-microsoft activex data objects 2.8 添加一个模块，写以下代码：Public Rs As New ADODB.Recordset Public conn As New ADODB.Connection 在sheet1中写以下代码：Private Sub Worksheet_Activate()dfile = "数据库文件位置" 比如："c:\a.mdb"On Error Resume Next ...
VB如何打开MDB数据库中的一个表
Data Objects 2.8 Library" 2.代码写好后先保存，然把准备好的Access数据库放到代码保存的文件夹下。 3."select * from 表名"，是打开数据库中叫做“表名”的一个表中全部数据。 可以用Msgbox rs.Fields(1).Value来调出表中的第一个值 ...
access中如何使用VBA将已有的recordset生成一个新表
F.Name,F.Type,F.Size)Next T.Name = TabelName TS.Append T Set TS = Nothing Set T = Nothing Set F = Nothing End Sub 具体的调用方式就是 CreateTabel recorset对象,表名 就可以在当前数据库中生成一个新表了 结构和recorset相同但没有数据，如果你要复制数据，一行SQL就搞定了 ...
在access中用vba如何运行一个已经存在的动作查询?
ACCESS中用VBA代码运行一个已经定义的动作查询，可以用运行DoCmd对象的OpenQuery方法予以实现。下面例子示范单击ACCESS窗体命令按钮，执行一个预定义的动作查询将表T1中的数据清空。1）预先定义一个动作查询 将SQL语句：delete from T1;保存为查询名 “清空T1"2) 执行该动作查询 Private Sub Command0_Click...
如何在ACCESS中打开MDB文件?
打开MDB数据库文件：细致步骤 如果你手头有一个MDB文件，想要了解如何打开它，这里有一系列清晰的操作指导。首先，启动你的电脑，双击启动Microsoft Access，这是处理这类数据库文件的常用工具。在主界面左侧，点击“打开其他文件”选项，打开文件探索之旅。接下来，从下拉菜单中选择“计算机”，然后点击右侧...
Access中如何用VBA删除文本文件中的第一行的内容
下例是按你的要求把D:\Text.txt删除第一句后写入D:\Text2.txt文件中:Private Sub 例子()Dim 行数 As Long, InputData As String Open "D:\Text.txt" For Input As #1 Open "D:\Text2.txt" For Output As #2 Do While Not EOF(1) ' 检查文件尾。行数 = 行数 + 1 Line Input...
