使用带有记录集的Access VBA和SQL添加和删除记录
的步骤如下：
- 添加记录：
- 首先，创建一个连接到Access数据库的连接对象。
- 使用SQL INSERT语句创建一个插入记录的命令。
- 打开连接对象。
- 创建一个记录集对象。
- 使用记录集对象的AddNew方法添加一条新记录。
- 为每个字段设置相应的值。
- 使用记录集对象的Update方法保存更改。
- 关闭记录集对象和连接对象。
- 示例代码：
- 示例代码：
- 删除记录：
- 首先，创建一个连接到Access数据库的连接对象。
- 使用SQL DELETE语句创建一个删除记录的命令。
- 打开连接对象。
- 创建一个记录集对象。
- 使用记录集对象的Find方法查找要删除的记录。
- 使用记录集对象的Delete方法删除找到的记录。
- 使用记录集对象的Update方法保存更改。
- 关闭记录集对象和连接对象。
- 示例代码：
- 示例代码：
Access VBA和SQL的记录集操作可以用于在Access数据库中添加和删除记录。这种方法适用于小型应用程序和个人项目，但对于大型企业级应用程序，可能需要使用更强大和可扩展的数据库解决方案，如云数据库。
腾讯云提供了云数据库SQL Server和云数据库MySQL等产品，可以满足企业级应用程序的需求。您可以通过以下链接了解更多关于腾讯云数据库产品的信息：
相关·内容
1回答
我有一个带有几个绑定字段和几个“定制”复选框的表单，它们为每个vba设置值。现在，当我使用'DoCmd.GoToRecord，，acNewRec‘开始一个新记录时，Access会清除我的表单，但在绑定字段中输入值之前，不会创建新的ID。由于我的复选框字段未绑定，因此在编辑绑定字段之前所做的任何更改都不会被保存。我尝试通过SQL语句添加值，但在我更改了另一个字段后，access抛出错误，表明当前记录集已被更改，因此我怀疑这是否可行。
我的表单基于查询，我在vba中设置了像value_x = true这样的复选框(当我第一次在绑定字段中输入数据时，它可以很好地工作，从而创建一条新记录)。
浏览 2提问于2012-02-22得票数 1
回答已采纳
我知道我们可以通过DAO名称空间在Access中为SQL使用事务，但是我们能对acCmdSaveRecord做同样的事情吗?因为它没有显式地链接到DAO。或者，acCmdSaveRecord有隐式事务吗？如果您不能将acCmdSaveRecord放在一个事务中，那么还有什么选择呢？显式SQL？
忘了补充说，我是一个VBA新手，所以我目前不知道哪些是最佳实践。另外，由于我不能发表评论，我接管了现有的Access VBA应用程序，所以我不知道使用acCmdSaveRecord的理由。
浏览 13提问于2019-10-23得票数 1
回答已采纳
我有一个Access 2010数据库，带有一个VBA模块，可以对数据进行一些统计分析。统计分析的结果不能由SQL生成，但可以以表格的形式显示。现在，我可以在即时窗口中运行VBA函数，它将遍历结果并使用Debug.Print()将结果写入终端。
我希望此函数的结果可供Access的其余成员使用，这样我就可以从结果表创建查询和报告。因此，我要寻找的是如何将我的函数转换为“动态表”--一个不实际存储数据，但存储VBA函数的表，每当使用该表时，VBA函数都会动态地运行和填充表数据。
我花了相当多的时间来研究如何通过MAKE TABLE查询或在VBA中使用DDL动态创建表，但所有这些示例都使用SQL从现
浏览 3提问于2011-07-20得票数 4
1回答
可以这样做吗，比如我有行(1,2,3,4,5)，我想抓取三行，随机选择一行，然后得到它的邻居，所以随机选择可能是行(3)，我也可以抓取(2,4)如果我想要它的邻居，我只是随机地选择一个，然后在这样的前后寻找唯一的键，或者我可以在一个sql语句中这样做。
我打算使用excel中的ADO来提取记录(因此VBA连接到access，打开带有sql指令的记录集等等)。
希望我说清楚了！
我很乐意在SQL语句中完成这一切。
浏览 2提问于2013-12-27得票数 0
回答已采纳
我正在使用VBA查询我的access表，并用excel编写查询结果。
EOF总是正确的，但是BOF是假的--即使记录计数是1、14或100。有什么可能是错的？我能看到记录数超过零。获取字符串值，其中包含数据。因此，除了标头之外，目标表中没有写入任何数据。标题很好。
尝试过的事情列表，但结果仍然相同：
添加“最后移动”和“移动第一个命令”
尝试了光标位置、光标类型、锁类型的所有可能组合
尝试使用execute命令
尝试使用不同的MS访问表
尝试早、晚绑定技术
下面是我的查询，下面的链接是我的记录集如何处理SQL语句。
Const MyConn = "A
浏览 0提问于2018-03-17得票数 4
回答已采纳
1回答
我试图从一个查询(TrackList)中检索一条随机记录，并使用MS Access中的VBA用该记录更新表(setList)。我已经从我的记录集中分配了整数值，当我运行调试程序时，一切都会正常运行。当我从一个批处理文件中调用它时，它会继续按字母数字顺序检索记录。有没有更好的方法来实现这一点？ Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("_Sun00Q")
strName = rst.Fields("PLNames")
strSetName = rst.Fields("SetName")
浏览 9提问于2019-04-17得票数 0
我在Access中创建了一个传递查询，它执行一个存储过程，在我的SQL数据库中的所有表中搜索字符串。SQL服务器上的存储过程按预期运行，返回包含我的搜索字符串值的多个记录集。但是，当我双击Access中的传递查询时，在数据表视图中只会看到一个记录集的结果。既然Access似乎不是为处理多个结果集而设计的，那么我如何在Access中使用VBA来实现这一点呢？
exec sqlsp_searchalltables @Tablenames='', @SearchStr='%motion%'
浏览 2提问于2013-12-03得票数 2
回答已采纳
我希望查询返回诸如“未找到匹配条件的记录”之类的文本。等等，当不存在满足输入标准的记录时。
我使用的是Access 2010，可以使用VBA或SQL。我想查询(SQL)是最容易应用的地方。
浏览 1提问于2011-08-11得票数 3
回答已采纳
我正在用Access 2010开发一个数据检索应用程序，用户可以通过选择列表框条目来选择要查看的表、列和行。VBA代码根据这些选择生成一条SQL语句，然后从中创建一个ADBDB.Recordset对象。
如何在Access中显示记录集记录？所有的网格控件都不能在Access 2010中工作，子窗体也不是为此目的而设计的。有人能推荐另一种策略吗？
浏览 0提问于2011-06-01得票数 2
2回答
我有一张大桌子。我正在制作一个显示表的表单，允许用户在许多不同的字段上使用Access的标准过滤器来选择一些数据。然后，在用户使用筛选器只选择一些数据之后，我希望能够在各种查询中只包括结果记录集(而不是整个原始表)。
我不确定是否可以在查询中直接引用表单的底层记录集。
显而易见的是使用vba来迭代记录集，或者用它填充一个临时表，然后在查询中使用它，或者直接使用我想要的数据而不使用sql。但我认为，迭代记录集要比查询慢得多。是否有方法可以直接从查询中引用窗体的记录集，或者将记录集的全部内容转储到临时表中？
浏览 2提问于2016-05-11得票数 1
回答已采纳
我有一个带有子窗体的Access窗体。子窗体有一个数据表。主窗体有下拉框和按钮，可将记录添加到子窗体。这一切都很好(VBA代码)。现在，我想突出显示最近插入的记录，就像我单击行标题一样。
我该怎么做呢？主窗体的组合框仍然应该在tpoint设置为正确的记录，那么如何突出显示子窗体记录？
浏览 3提问于2012-10-13得票数 1
回答已采纳
我在SQL Server 2017数据库中创建了一个表。然后我在MS Access 2019中创建了一个表单，它使用ADO对象作为“记录源”。在窗体上，有一个包含控件源property=Field的文本框。然后，当我打开表单时，一切工作正常(字段的内容显示在文本框中，我可以前后移动光标，依此类推)，除了一件事:不能更改、添加或删除记录。 在SQL Server上创建表(使用SSMS)： CREATE TABLE Table1 (Field INT PRIMARY KEY)
INSERT INTO Table1 (Field) VALUES (15)
INSERT INTO Table1 (F
浏览 19提问于2019-10-04得票数 2
1回答
我正在使用Access 2003，它的表单允许用户从各种筛选器中选择，并且我使用VBA更新基于这些过滤器的子表单的记录集(我在VBA中生成一个SQL语句)。这个子表单可以有重复的客户机I，现在我试图获得一个唯一的客户I列表。
如果我有子表单的源SQL，那么是否有任何简单的方法可以使用VBA查询惟一的客户端I？我想过这些选择：
将所有ids写入临时表，然后查询该表(似乎需要更多的工作/资源)
以某种方式将查询应用于VBA中的记录集对象(这可能吗？)；我已经将记录集对象设置为与SQL查询相等的记录集对象，然后尝试运行一个SELECT DISTINCT client_id FROM <
浏览 1提问于2012-08-06得票数 1
回答已采纳
3回答
在我的MS Access DB中，我在VB中运行了一个查询，它应该返回两条记录。当我在SQL中运行它时，我得到了两条记录，但当我从VBA运行时，我得到了两条记录。下面是SQL视图中的代码，它获得两条记录：
SELECT *
FROM tblWebMeetingData
WHERE [Last Name] LIKE 'Marx';
当我在VBA中像这样调用它时：
SQL = "SELECT * FROM tblWebMeetingData WHERE [Last Name] LIKE 'Marx';"
Set rst = CurrentDb.Ope
浏览 0提问于2013-03-10得票数 8
回答已采纳
我有一个VBA应用程序，它在尝试运行时抛出一个"ActiveX组件无法创建对象“异常。
断点设置在抛出异常的行上：
我假设这与Me.Recordset有关(我是访问表单)。记录集可能与所引用的Microsoft库相关。以下是当前的参考资料：
该应用程序在Windows98计算机上运行，Access .mdb据称在此之前运行良好(没有人记得它最初在什么计算机上或它的配置。表单本身只是滚动数据记录(这很好)，但是当触发上面的Calc_Confidence_Level()子例程时，它会在记录集中抛出一个错误，我认为这个错误与它滚动的记录集相同。
有人知道这里出了
浏览 3提问于2011-04-28得票数 1
回答已采纳
我正在为我的公司开发一个应用程序。从一开始，我们就计划有一个带有访问前端的拆分数据库，并将后端数据存储在我们的共享服务器上。然而，在做了一些研究后，我们意识到将数据存储在共享驱动器上的后端access DB中并不是最好的主意，原因有很多(vpn对于远程办公室的共享驱动器来说太慢了，访问可能不是最好的，有数百万条记录，等等)。无论如何，我们决定仍然使用access前端，但将数据托管在我们的SQL服务器上。
关于在SQL服务器上存储数据，我有几个问题。现在，当我插入一条记录时，我会这样做：
Private Sub addButton_Click()
Dim rsToRun As DAO.Reco
浏览 2提问于2014-03-25得票数 3
在我的Access DB中，我设置了一个VBA代码，它在字段FieldB中查找具有特定值的记录。如果存在记录，变量Var将接受字段FieldA的值，否则为100的默认值。
我编写的代码如下。问题是，当记录不存在时，我在命令No current record处得到错误IsNull(VESRecordSet.Fields(0).Value)。我认为这段代码中有一些错误，可以用更好的方式编写。
sql = " SELECT * FROM TableA WHERE FieldB = 'current_value');"
Set VESRecordSet = Curren
浏览 0提问于2018-08-27得票数 0
回答已采纳
我希望自动将Access查询的结果导出到Excel。我的环境是：
Access 2007
Access 2003格式的数据库
导出应采用Excel 2003格式。
查询包括一个备注列，该列最多可包含512个字符。
到目前为止，我已经尝试了以下几点：
在Access中运行查询，然后将结果网格复制/粘贴到Excel中。这很好，但需要手动操作。
运行一些使用DoCmd.TransferSpreadsheet导出查询的VBA代码，如下所示：
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "M
浏览 2提问于2010-04-15得票数 0
目标是将Access表与来自Server表的匹配数据连接起来。我会在Access中使用链接表来实现这一点，但我遇到了Access‘BigInt问题(我会创建一个视图来将BigInt转换为Int，但这现在不是一个选项)。
因此，我一直试图创建两个记录集，并将它们加入到VBA/ADO中。连接的左边是带有和的访问表，右边是带有季节、WeekNum和其他数据的Server表。这很好，直到我尝试创建第三个记录集，它是连接的结果(在本例中，我没有尝试进行连接，只是通过从访问记录集中选择连接的第一部分)。设置ObjRecordset3 = "SELECT * FROM“& Access_Re
浏览 2提问于2013-01-27得票数 5
回答已采纳
1回答
我使用Data Macro来处理Access表的After Insert事件之一。在这个数据宏中，我使用SetLocalVar调用一个用vba编写的函数，将相同的插入记录集插入到我的SQL中。
当我在Access中输入数据时，它会工作，但是如果我从一个基于C#的应用程序中插入了一条记录，则因为我没有打开Access应用程序的实例，所以“后插入”事件不会调用我的Access函数。
这个After Insert事件可能会以某种方式触发我的vba函数，即使记录是从访问的外部插入的？
浏览 3提问于2017-04-21得票数 1
回答已采纳
我试图在access 2007中编写VBA，通过一个表并使用适当的测试代码获取所有记录，并将它们添加到一个表中，专门用于该tescode。第一个sql字符串应该遍历特定于代码的表，以查找输入的最新日期。第二个sql字符串应该查找在该日期的最新时间输入的sql字符串。第三种方法是获取日期和时间，并从测试代码的通用表中获取自上次更新以来输入的所有记录，并将它们移动到特定于代码的表中。
实际上，我使用了查询向导来生成前两个sql语句，但是我仍然得到了错误：
RunSQL操作需要一个由SQL语句组成的参数。
在复制和粘贴SQL语句之后，唯一改变的地方是添加了适当的引号和其他内容，所以我不知道为什么它不
浏览 3提问于2014-07-10得票数 0
回答已采纳
我有两个记录集，第一个(rs1)是来自Access数据库的查询结果，另一个(rs2)是通过转换构建在VBA中的数组创建的。第一个包含一系列数据，第二个包含与第一个列中某一列相关的描述。 我想将这两个记录集连接到第三个记录集，拥有第一个记录集的记录和第二个记录集的描述字段。类似于SQL查询中的INNER JOIN。 在VBA中可以吗？类似于使用rs1和rs2作为表和必要的查询结构(SELECT xyx FROM rs1, rs2 WHERE abc)的查询...
浏览 20提问于2020-09-24得票数 0
我有一些代码(如下所示)，可以通过ActiveX服务器将数据从MS访问表读取到MATLAB中，这非常好。我现在试图使用相同的代码从连接到Server的Access链接表中读取数据，但正在收到一个错误：
调用错误，调度异常:源: DAO.Database描述:在访问具有标识列的Server表时，必须使用带有OpenRecordset的dbSeeChanges选项。帮助文件: jeterr40.chm帮助上下文ID: 4c5966
因此，所讨论的表有一个IDENTITY列，我需要用OpenRecordset指定‘OpenRecordset’选项。我的问题是，我如何指定这个选项？我可以在网上
浏览 6提问于2016-11-09得票数 1
回答已采纳
1回答
我有一个交叉表查询由一个ODBC表在MS-Access.查询如下所示，其中有4个字段包含日期。此查询每天更新，空字段可能填写，也可能不填写。
ANTRAGSNUMMER Eingangdata esigniertdok Ausgangdata Policierung
111 3.10.2016
222 3.10.2016 3.10.2016
333 4.10.2016 5.10.2016 5.10.2016
现在，我要解决的是根据以下条件识别有空字段的记录
浏览 3提问于2016-10-06得票数 0
1回答
我有大量在Excel中使用VBA的经验，但很少有在Access 2010中使用VBA的经验。我试图从一个记录集中删除记录，其中一个字段以"_X“结尾。当我使用通配符时，比较失败。当我使用一个特定的字符串时，比较会像预期的那样工作。这是我正在使用的密码。
Dim db As Database: Set db = CurrentDb
Dim tbl As Recordset: Set tbl = db.OpenRecordset("WRITEON")
With tbl
Do Until .EOF
If ![ACOD] = "*_X"
浏览 2提问于2015-03-03得票数 2
回答已采纳
1回答
我正在尝试使用来自存储过程的数据填充access 2013中的连续表单，该存储过程位于ms server 2014中。数据库连接工作，我可以使用其他访问表单向ms sql server数据库添加数据。所以这不是问题所在。这是我的存储过程：
CREATE PROCEDURE spArtikelen AS
BEGIN
SELECT a.artikelnr, omschrijving, v.voorraad, p.prijs, a.leverancier
FROM artikel AS a, artikelprijs AS p, artikelvoorraad AS v
WHERE a.artike
浏览 5提问于2015-03-19得票数 2
回答已采纳
大家好，
下面的VBA代码将创建一个Excel QueryTable对象，并从Range("D2")开始显示它。这个目标范围的具体地址无关紧要。
我的问题是--是否可以手动将值输入到内存中的记录集，然后从其中读取表？换句话说，我希望在VBA中指定表列和值，而不是让它们来自数据库或文件。
Public Sub Foo()
Dim blah As QueryTable
Dim rngTarget As Range
Dim strQuery As String
strQuery = "SELECT * FROM MY_TABLE"
浏览 2提问于2008-10-23得票数 0
回答已采纳
我需要从oracle服务器向现有的ADO记录集添加字段。这是我试过的代码，但我得到了错误
在此上下文中不允许进行操作。
With ADORec
Set .ActiveConnection = ADOConn
.Source = SQL
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.Open
End With
ADORec.AddNew
ADORec.Fields.Append "calcField", adInteger, , adFldUpd
浏览 0提问于2019-06-04得票数 2
回答已采纳
作为access应用程序的一部分，我从sql server检索数据。在其中一行中有一个包含⅝的字符串字段，当我试图将该值插入到一个⅝记录集中时，会得到一个错误。
多步操作生成错误。检查每个状态值。这是我的密码
sFieldValue = getValue() ' when i add a watch, the '⅝' is replaced by a ? e.g. "The result is ⅝" will be shown as "The result is ?"
Rs(sFieldName) = sFieldValue '
浏览 1提问于2014-06-03得票数 1
2回答
我想通过SQL FROM语句引用一个记录集。举例说明。
我有一个名为RS的记录集。我想在VBA中做下面的事情。
SELECT * FROM RS
有什么办法吗？
浏览 3提问于2011-03-16得票数 1
回答已采纳
我在MS access中设置了一些从网络上的MS SQL服务器获取数据的查询。当我从MS access运行这些查询时，它们工作得很好。但是，当在Excel中通过VBA触发相同的查询时(需要我的仪表板)，它会显示ODBC连接失败。我不能弄清楚在这个过程中有什么地方出了问题。以下是所有详细信息：
MS Access中的ODBC连接字符串-在查询的属性中设置
ODBC;DRIVER=SQL Server;SERVER=xyz;UID=xyz_reader;PWD=xyzpassword;Network=DBMSSOCN;Address=xyz,1433
Excel VBA中使用的连接字符串-用于在m
浏览 2提问于2015-07-10得票数 0
我有一个Excel (2010)表，其中有两个数据源：
Access 2010 DB
Server 2008 R2
在Access DB的A:I列中有数据。在A列中，我有记录的ID，这个ID对应于来自我的SQL DB的表中的ID列。
我试图搜索A列中的ID，如果它与SQL中的ID匹配，我希望从J列的SQL表中显示来自"coOverview“列的数据。
简单地说，“如果ID = coID，那么将coOverView写到J”列“”
我已经成功地连接和检索了所需的记录集和复制/填充列J，因此我知道我能够成功地连接和读取SQL表中的数据。现在，只有当ID与A列中的ID匹配
浏览 6提问于2017-04-13得票数 0
我有一个带有文本字段和子窗体的access窗体。文本字段是名为myQuery的查询的参数，子窗体显示myQuery的结果。
在VBA中，我想访问myQuery的第一行，所以我尝试使用DAO.recordsets，如下所示：
dim query as string
dim rs as DAO.recordset
query = "select top 1 * from myQuery"
set rs=CurrentDb.OpenRecordset(query)
我收到一个错误，说“参数太少”。
如果我转到create query选项卡，并运行SQL代码"select to
浏览 0提问于2016-08-06得票数 0
我有一些分析analyzes中数据的VBA代码。有些数据位于Server中(在Access中链接)。
我的问题是这个特定的表有太多的列(255+)，所以Access会截断一些与我相关的列。
我的想法是，我可以使用ADO (或DAO)来提取相关数据(我只需要10列左右)，将其保存在我的access表中，然后继续使用其余的逻辑。
Dim cn As New ADODB.Connection
Dim ssql as String
cn = CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;Data Sour
浏览 2提问于2016-01-07得票数 1
1回答
我正在工作的Excel访问应用程序，其中前端将是一个Excel工作簿提供给60个用户谁将填写和提交一份表格。在提交表单时，将使用VBA和ADO将表单数据插入到Access mdb文件中的表(只有一个表)中。用户只会插入记录，没有更新。(基本上，它是一个数据输入应用程序，为了加速数据输入，多个用户将使用Excel文件将记录输入到公共后端mdb数据库。)
是否会出现任何锁定或并发问题，从而只执行插入操作？如果是，是否有办法处理这些问题？
(我知道SQL或其他解决方案比MS-Access解决方案更好。但是业务需要一个mdb文件，因为它可以很容易地定期邮寄到另一个人进行分析。)
浏览 1提问于2015-06-28得票数 0
回答已采纳
我读到在Access中关闭记录集对象很重要，但在我的代码中，我从不创建记录集对象，我总是使用内联引用，例如：
Dim ClientName As String
ClientName = CurrentDB.OpenRecordset([some SQL]).Fields(0).Value
我看不到任何像CurrentDB.CloseRecordset这样的东西，我也不认为CurrentDB.Close是个好主意。在这种情况下，我需要关闭任何记录集，还是自动关闭？
我通过ODBC连接将MS Access 2007与SQL Server后端一起使用。
如果我使用的术语或用法有误，请随时纠正我！
浏览 1提问于2013-02-12得票数 3
回答已采纳
我正在使用Access 2010中的VBA，我有一个奇怪的问题。我试图从一个表中拉出记录，但我的SELECT查询只返回一条记录。
表中有三条记录，但记录集只获取第一条记录。
这是我的代码。
Dim cc As String
Dim DB As Database
Dim rst As recordset
Dim sqlstr As String
Dim e As Integer
cc = CmbClass.Text
If cc = "" Then Exit Sub
sqlstr = "SELECT * FROM Students" 'WHE
浏览 1提问于2012-08-12得票数 2
回答已采纳
我正在编写一些Access 2003 VBA代码，该代码从临时表中提取数据并将其显示在窗体记录集中，然后我需要删除临时表，但在断开与记录集的连接之前，我无法执行此操作，这将删除数据。
我可以调用什么来代替Recordset.Close或RecordSource = "“，它们会将数据保留在表单上，但会关闭与表的连接，以便我可以删除它。
谢谢！
浏览 1提问于2009-10-22得票数 1
我试图在Outlook中创建一些自定义按钮，这些按钮与Access数据库中包含的表进行交互。到目前为止，我的按钮在Outlook中工作，运行的代码实例化了一个自定义数据访问类，该类负责打开和关闭到数据库的连接。据我所知，这很管用。
但是，在这个类中，我甚至不能执行简单的select查询。有人能帮我理解为什么下面的代码不起作用吗？我总是以没有行的记录集结束，但是如果我使用Access查询设计器运行相同的sql，它就能正常工作。
Public Function GetJobID(ByVal xEmailID As String) As Integer
'Returns the JobID
浏览 0提问于2018-11-12得票数 0
回答已采纳
1回答
我正在使用Excel2016VBA来使用DAO引用读取Access 2016数据库。我正在这样做，因为在Excel中创建动态表单控件要容易得多。它似乎工作得很好，但我刚刚发现它只读取任何表的前335条记录，即使我用SQL查询约束了三个记录集。
首先，我读了一张房间里摆满架子的桌子：
DIM db as DAO.Database
DIM rsRacks as DAO.Recordset
DIM strSQL as String
‘Initialization code deleted
StrSQL = “SELECT * FROM tblRacks WHERE RoomID = “ &a
浏览 0提问于2019-11-05得票数 1
在Access VBA中，将记录集作为快照打开时，是否会使只读选项变得多余？起初，这似乎是真的，因为快照本质上已经是只读的，但似乎总是有一些警告。 示例： Dim acc as Access.Application
Dim db as DAO.Database
Dim rs as DAO.Recordset
Dim sqltext as String
sqltext = "SELECT * FROM SOMESOURCE"
Set rs = db.OpenRecordset(sqltext, dbOpenSnapshot, dbRead
浏览 48提问于2018-08-09得票数 4
回答已采纳
我有一个带有子表单的Access表单，我正在尝试创建一个命令，该命令将在VBA中运行Insert语句，将子表单中的数据插入到另一个表中。我遇到的问题是，它复制了第一个记录，而不是插入单独的记录。我的密码在下面。
Private Sub Command52_Click()
Dim strSQL As String
Dim rs As DAO.Recordset
strSQL = "INSERT INTO DA_CC_QAQC_DRAWINGS_DETAIL (DRAW_ID, REV_DATE, REV_DESC, REV_TYPE)" & _
"VALUES
浏览 1提问于2022-11-08得票数 1
回答已采纳
最近我遇到了vba语句，我一直在使用Recordset.Edit和Recordset.Update来编辑我现有的数据，并且更新它。
我想知道两者之间的区别：recordset.update和Update sql Vba语句。我认为他们都这样做，但我不知道哪一个更有效率，为什么。
下面是示例代码：
'this is with sql update statement
dim someVar as string, anotherVar as String, cn As New ADODB.Connection
someVar = "someVar"
anotherVar
浏览 1提问于2015-06-17得票数 9
回答已采纳
1回答
我只有一张表，上面有联系信息和大约25个复选框。我有一个表格来输入联系信息，几乎所有的复选框都是为了指定购买了哪个电动工具，最后两个复选框指定营销应该通过美国邮件或电子邮件。
我的最终目的是创建一个CSV文件，其中包含所有记录的子集的名称、地址和电子邮件地址。其中的记录很简单:如果我检查“电锯”和“电子邮件”，那么所有没有买电锯和想要电子邮件交流的人都会被过滤掉。如果我检查“电锯”和“除草机”和“美国邮件”，我想要所有谁购买了电锯或除草机或两者都想要美国邮件通信的记录。
我设想使用一个带有复选框的表单，选中任何复选框都会过滤记录，以便仅包括表中复选框= yes的那些记录(对于power too
浏览 2提问于2014-05-01得票数 0
我有一个MS Access 2007表：
列是DB、模块、CommentID和注释
我有一个SQL查询，它在MS Access查询设计中返回正确的记录。
我已经在即时窗口中确认，在和VBA模块"Module1“中，sql是相同的。
我把这一职能称为：
?LookupComment(currentproject.Name,Application.VBE.ActiveCodePane.CodeModule,"1")
随后，函数中的strSQL将在即时窗口中确认为
Select * from tblComments where DB='db1.accdb&#
浏览 3提问于2012-04-22得票数 2
回答已采纳
2回答
我有一个带有附件字段的本地表。我尝试过用vba和手动删除，但之前的附件总是出现。在vba中，我已经尝试过使用记录集和SQL。SQL
Let strSQL = "DELETE tblSpecsPics.PicID,tblSpecsPics.SpecID,tblSpecsPics.SpecDetailID,tblSpecsPics.PicNum,tblSpecsPics.Pic.FileData,tblSpecsPics.Pic.FileName,tblSpecsPics.Pic.FileType,tblSpecsPics.ImageDesc FROM tblSpecsPics;"
浏览 0提问于2017-02-15得票数 0
我遇到了生成复杂访问报告的问题(我指的是复杂的数据处理、可变数量的字段等)。
让我更详细地解释一下我需要实现的一些事情：
某些字段不应根据查询中的某些值显示。
如果某个记录不存在，则应该出现一条颜色很好(非常明显)的消息，而不是将存在的值(例如，假设日期字段中存在03/04/2009的记录，而日期字段中有03/06/2009的记录，但不存在03/05/2009的记录。在显示与上一次记录相关的数据之前，我应该打印这样的内容：“05年3月3日没有出现”)
一种条形图，它使用的不是记录中的值，而是根据一组记录计算的其他东西(比如某一日期的所有等级的平均值)。这个图表中的序列数也会根据记录
浏览 2提问于2010-02-02得票数 3
1回答
我有一个带有两个表的访问文件:用户和产品。用户保存可以写入访问文件(如userID、systemID、name等字段)的列表。Products保存产品属性列表，包括对记录进行最后更新的人。最后一个update字段是一个包含两列的组合框: userID (绑定到此)、name (由于列宽为0";2")。
我还有一个Excel文件，名为模拟器。模拟器使用VBA从products表中读取数据，使用各种预测算法模拟产品的未来，然后将预测写回Access。
当Excel写回产品的记录时，我想将最后一个更新作者记录为模拟器。假设这个用户存在(例如，userID=100，name=Simul
浏览 1提问于2019-03-07得票数 0
回答已采纳
我有一个带有子窗体的窗体，我希望填充子窗体的子窗体记录源根据主窗体中某些组合框上的输入进行更改。
使用VBA，我构建了一个函数，该函数生成我想用来填充子窗体的SQL语句。我知道这是可行的，因为我用msgbox对它进行了测试，它提供了我想要的SQL语句。sql语句使用聚合函数，因此结果表的结构与从中查询的表的结构不同。
我用来更改子窗体记录源的代码是：
me![subformname subform].form.recordsource=myfunction()
这在过去对我有效，但在这里不起作用，我只是得到了"#Name?“在我的窗体上的子窗体中。
当我单独打开子窗体时，我得到"
浏览 2提问于2015-06-16得票数 3
回答已采纳
3回答
我正在向表中插入值
如果该记录已经存在，则替换它，如果该记录不存在，则添加一个新记录。
到目前为止，我有以下代码：
INSERT INTO table_name
VALUES (value1, value2, value3,...) where pk="some_id";
但是我需要这样的东西
if not pk="some_id" exists then INSERT INTO table_name
VALUES (value1, value2, value3,...) where pk="some_id"; else update
浏览 4提问于2010-06-08得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
