sql = "DELETE * FROM [tblFinances] WHERE [FinancesID] = " & !FinancesID & " ;" dbs.Execute (sql) End If .MoveNext <=== ERROR ===> Loop End With MsgBox "All done...", vbYes rst.Close dbs.Close End Sub 我收到错误3167。因为它找不到ID,因为我已经删除了。 我怎样才能修正这个错...
strSQL = "DELETE FROM " & strTable & strWhere cnADO.Execute strSQL MsgBox rsADO.RecordCount & "条记录被删除。", vbInformation, "提示" Else MsgBox "没有发现需要删除的记录。", vbInformation, "提示" End If rsADO.Close strSQL = "SELECT * FROM " & strTable rsADO.Open strSQL, cnADO, ...
我们需要先打开Access数据库，并连接到需要操作的表。可以使用VBA中的OpenDatabase函数来打开数据库文件，并使用OpenRecordset函数来打开表。接下来，我们可以使用Delete语句来删除原有的记录。Delete语句的基本语法是：DELETE FROM table_name WHERE condition;其中，table_name是要删除记录的表名，condition是一个逻辑表达式...
无法从指定的数据表中删除。 (错误 3086) 项目 2023/04/07 适用于:Access 2013 | Access 2016 您尝试从一个或多个表中删除数据,但是删除无法完成。 可能的原因: 您没有修改表的权限。 若要更改分配给您的权限,请联系系统管理员或该表的创建者。
Public m_View As Integer '0C create 1R retrieve 2 U update D delete Public m_mcbo As Integer ' Public m_scbo As Integer ' Public m_Conn As CSealConnection Private sRs As New CSealRecordset Private m_Count As Integer Private m_iShow As Integer ...
del_sql = "Delete From 成绩表 Where 成绩ID = " & 成绩ID DoCmd.RunSQL del_sql MsgBox "删除完成" 成绩ID.Value = "" 学号2.Value = "" 记录时间2.Value = "" 课程编号2.Value = "" 分数2.Value = "" 评价2.Value = "" 备注2.Value = "" ...
del_sql = "Delete From 拆分数据表" DoCmd.RunSQL del_sql Dim add_rs As DAO.Recordset Set add_rs = CurrentDb.OpenRecordset("拆分数据表", dbOpenTable) Dim i With add_rs For i = 0 To UBound(data_array) .AddNew !数据名称.Value = data_array(i) ...
删除/插入 (delete/insert) 利用的是CurrentDb.Execute(stSql)。代码如下：[plain] view plaincopy '拼写删除指定PR Number的SQL文 stSql = "DELETE FROM [000_BASTS] WHERE [PR NR] = '" & pr_nr & "'"'执行SQL文 CurrentDb.Execute (stSql)你...
sql = "DELETE FROM TableName WHERE Condition" conn.Execute sql 在上述代码中,TableName代表要删除记录的表名,Condition代表删除条件。你可以根据具体需求修改这两个参数。 3. 替换更新数据 如果需要替换原有数据,则可以使用SQL的UPDATE语句。以下是一个示例代码: Dim sql As String sql = "UPDATE TableName SE...
Sub 遍历文件名() CurrentDb.Execute "delete * from 表2" '清空表2 Dim 记录集1 As New ADODB.Recordset Dim 附件记录集 As New ADODB.Recordset Dim 记录集2 As New ADODB.Recordset 记录集1.Open "表1", CurrentProject.Connection, , 3 记录集2.Open "表2", CurrentProject.Connection, , 3 Do Whi...