错误5 vba，循环访问记录集时调用无效
错误5 VBA是指在使用VBA（Visual Basic for Applications）编程语言时出现的错误。具体来说，错误5是一种类型不匹配的错误，通常是由于变量类型不正确或者对象引用错误导致的。
在循环访问记录集时调用无效的错误可能是由于以下几个原因引起的：
- 记录集未正确打开或未被正确初始化。在使用记录集之前，需要确保已经正确打开数据库连接，并且执行了正确的查询语句来获取记录集。
- 记录集已经被关闭或者已经到达了末尾。在循环访问记录集时，需要确保在每次循环之前检查记录集是否已经关闭或者是否已经到达了末尾。
- 记录集中的字段或者属性名称错误。在访问记录集中的字段或者属性时，需要确保使用正确的名称，并且避免拼写错误或者大小写错误。
为了解决这个错误，可以采取以下几个步骤：
- 确保正确打开数据库连接，并执行正确的查询语句来获取记录集。
- 在循环访问记录集之前，检查记录集是否已经打开，并且是否包含有效的数据。
- 在访问记录集中的字段或者属性时，确保使用正确的名称，并且避免拼写错误或者大小写错误。
- 使用适当的错误处理机制来捕获和处理错误，以便在出现错误时能够提供有用的错误信息或者采取相应的措施。
对于VBA开发者来说，可以参考微软官方文档中关于VBA错误处理的指南，以便更好地理解和解决错误5 VBA以及其他类型的错误。
腾讯云提供了一系列与VBA开发相关的云产品和服务，例如云数据库SQL Server、云函数、云存储等，可以根据具体需求选择适合的产品。更多关于腾讯云产品的信息和介绍可以参考腾讯云官方网站：https://cloud.tencent.com/
相关·内容
2回答
我对动态数组有一些奇怪的行为。似乎VBA拒绝为变量赋值。以下是代码：
Private Sub Report_Load()
Dim db As Database
Dim reportArray() As Variant
Dim structre As Recordset
Dim columns, rows, i As Integer
'Open recordset
Set db = CurrentDb
Set structure = db.OpenRecordset("SELECT * FROM [tblstructure
浏览 4提问于2016-09-04得票数 2
回答已采纳
关于ADODB记录集的快速问题。我想从记录集中提取一个查询结果，并将其设置为一个字符串变量：
query = "SELECT Value1 FROM Table"
RS = New ADODB.Recordset
RS.Open(query,Conn)
查询总是会返回3个值。我希望take将这三个值赋给一个变量。RS.GetString返回以制表符分隔的查询结果，但是我希望能够遍历这个集合，并将每一行结果赋给它自己的变量。有什么想法吗？提前感谢！
浏览 0提问于2015-10-16得票数 1
回答已采纳
2回答
我有一个VBA程序，其中一部分查询我们的SQL服务器并返回特定的数据。问题是数据不一定总是在那里，这是预期的。我需要查询数据库，询问具体的数据，如果它不在那里，我希望程序忽略它并继续前进。不幸的是，当我在没有数据的情况下命中记录时，我会得到以下错误：
运行时错误“3021”：
BOF或EOF为真，或当前记录已被删除。
又名。没有记录。是否有一种方法，在不使用错误的情况下
确定存在哪些数据，或
它只返回一个空字符串/记录集/除错误之外的任何其他内容？
浏览 1提问于2015-02-04得票数 1
2回答
我必须在excel中编写一些VBA代码来配合我的VB.NET程序，我正在努力学习VBA的基础知识，因为我以前没有使用过它。我发现了一些代码，它允许我从临时表中获取值，并将它们直接放入excel电子表格中适当的字段中。我正在填充一个采购订单文档，因此传递的信息是诸如小计、增值税、发货、总计等内容。
这是我用来填充单个单元格的代码：
'get quantity
strQry = "SELECT quantity from [temp];"
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Ope
浏览 5提问于2014-01-06得票数 0
1回答
我在VBA工作是为了使报告自动化。当我运行宏时，我有数字，但是数字垂直地插入到工作表中，而不是像我所需要的那样水平地横过。下面是我到目前为止拥有的代码(包括将其转换为无效的代码)。我能做些什么来修复这个问题呢？
FromDatex = Range("W39").Value
ToDatex = Range("X39").Value
Range("S7:AD9").ClearContents
SQLStr = "SELECT SUM(VAL) FROM OPSAHISTM " & _
&#
浏览 3提问于2016-05-17得票数 0
我正在使用下面的VBA代码下载excel文件，但是下载后，当尝试打开该文件时，由于文件格式无效，excel无法打开该文件.“
这个问题只存在于使用下面代码下载的文件中，如果我直接下载它，它就会正常工作。
我正在使用office 365
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As
浏览 22提问于2022-05-19得票数 0
我试图在VBA访问中运行保存的查询。该查询连接到另一个数据库，如下所示：
SELECT * FROM TABLE IN 'C:\USERS\Another_database.accdb'
该查询在第一次访问数据库中保存为"My_query“。VBA代码如下所示：
Function My_function()
Set rst = CurrentDb.OpenRecordset("My_query", dbOpenDynaset)
End Function
当我试图运行它时，我得到了一个错误：
运行时错误“3219”
知道为什么吗？它适用于
浏览 0提问于2018-11-16得票数 0
回答已采纳
2回答
我正在寻找一种方法，可以将数据表从Access导入到Excel变量中，然后通过此变量运行查询，以加快这一过程。我正在尝试从C# .NET迁移，在那里我将一个数据表从access数据库读取到内存中，然后使用LINQ查询此数据集。这比我目前在VBA中编写代码的速度要快得多，在VBA中，我必须对实际的数据库进行大量调用，这很慢。我已经看到了提到的QueryTable，但似乎这需要将数据粘贴到excel工作表中。我希望将所有内容都保存在内存中，并尽可能减少Excel工作表和VBA代码之间的交互。
我希望我们不需要使用Excel+VBA来做这件事，但是我们现在有点被困住了。谢谢你的帮助！
浏览 1提问于2010-04-30得票数 2
回答已采纳
2回答
当将VBA连接到Server时，我遇到了问题：
Sub ConnectSQLServer()
Dim cmd As ADODB.Command
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConn As String
Dim par As ADODB.Parameter
Dim strSQL As String
strConn = "DRIVER=SQL Server;SERVER=CHU-AS-0004;DATABASE=RTC_LaplaceD_DEV;Trusted_Connection=Yes
浏览 5提问于2017-06-14得票数 0
假设我有一个简单的VBA来刷新一个查询表：
With aListObject.QueryTable
.refresh BackgroundQuery:=False
End With
如果上面的表在刷新时从SQL引擎返回一个错误，那么如何获得实际的SQL错误详细信息？
例如，我需要这种类型的消息，它在中返回：
Msg 8134，16级，状态1，第1行
除以所遇到的零错误。
我可以将错误处理添加到VBA以返回VBA错误：
On Error Resume Next
With aListObject.QueryTable
.refresh BackgroundQuery:=
浏览 9提问于2020-02-21得票数 1
回答已采纳
1回答
我有以下必须从VBA调用的存储过程。
declare
p_segment1 varchar(25);
p_segment2 varchar(25);
p_segment3 varchar(25);
p_segment4 varchar(25);
p_segment5 varchar(25);
p_valid_flag varchar(1);
begin
p_segment1 := 'code segment here';
p_segment2 := 'code segment here';
浏览 3提问于2018-07-04得票数 0
2回答
检索多个记录集(带有列名)并将数据粘贴到Excel工作表中有一个小问题，如下所示
我刚刚检索到的VBA代码是第一个记录集，而不是其他记录集。
任何帮助都将不胜感激，谢谢。
Sub CProcedure()
Dim Conn As ADODB.Connection, RecordSet As ADODB.RecordSet
Dim Command As ADODB.Command
Dim ConnectionString As String, StoredProcName As String
Dim range1 As ADODB.Parameter,
浏览 1提问于2018-05-31得票数 6
回答已采纳
在我的项目中，我有一个table1，它有一个ID和一个文本字段。table2有一个 multifield，其中我可以从table中选择多个值(通过查找)。
现在，我有了query1，我想从multifield (而不是multifield.value )中提取值，并将它传递给一个VBA函数，比如：IDsToNames: table2.multifield。问题是VBA给了我这个错误：
The multi-valued field 'table2.multifield` is not valied in the expression IDsToNames(table2.multifiel
浏览 0提问于2018-06-29得票数 2
1回答
我使用Data Macro来处理Access表的After Insert事件之一。在这个数据宏中，我使用SetLocalVar调用一个用vba编写的函数，将相同的插入记录集插入到我的SQL中。
当我在Access中输入数据时，它会工作，但是如果我从一个基于C#的应用程序中插入了一条记录，则因为我没有打开Access应用程序的实例，所以“后插入”事件不会调用我的Access函数。
这个After Insert事件可能会以某种方式触发我的vba函数，即使记录是从访问的外部插入的？
浏览 3提问于2017-04-21得票数 1
回答已采纳
使用AWS：：CloudFormation json创建堆栈时，AWS：：Route53 53：：RecordSet中的请求错误无效。以下是错误：
CREATE_FAILED AWS：：Route53 53：：RecordSet ApiRecordSet无效请求
下面是ApiRecordSet：
"ApiRecordSet" : {
"Type" : "AWS::Route53::RecordSet",
"Properties" : {
"AliasTarget" :
浏览 2提问于2016-01-12得票数 1
回答已采纳
2回答
我写了一些VBA：
For x = LBound(resProdID) To UBound(resProdID)
CurrentDb.QueryDefs("qry_findID_vba").SQL = "" & _
"SELECT tbl_products.ProdID " & _
"FROM tbl_products " & _
"WHERE (tbl_products.Size = " & resSize(x) & " "
浏览 2提问于2012-10-01得票数 0
回答已采纳
1回答
我在一个原型应用程序中使用Access 2007，我有两个数据库testUi.accdb (其中
包含我所有的表单)和testDb.mdb (包含我的数据库)。现在，我想在我的子表单中使用数据表。有人能帮我解决这些问题吗？
我可以手动构建没有表的数据表吗？
如何使用VBA代码使用DAO或ADO将数据绑定到此数据表
是否可以使用VBA代码循环数据表？获取或设置每一行的值？
如果上面不可能，那么在Access中使用数据表(如网格)的替代方式是什么？
浏览 2提问于2012-10-18得票数 1
回答已采纳
我可能有一个临时的解决办法，但如果我不能永久地修复它，这将导致问题。
我在MS Access中有一个查询，当它单独运行时，它工作得很好，但是当我使用CurrentDb.Execute命令运行它时，它会给出“运行时错误'3146'：ODBC-调用失败”的错误。
我还检查了它是否失败，如果它是从直接窗口运行的，那么它也会失败。
来自三个不同表的查询调用加上一个由VBA脚本设计的本地表。如果删除了一个特定的表，则VBA脚本可以工作。
我知道这是非常通用的，但是为什么查询在任何地方都能工作，除非它是从VBA调用的？
更新:原来的问题措辞很糟糕，我对此表示歉意。它是即时写的，我被我遇到的
浏览 5提问于2015-02-20得票数 1
我正在尝试使用一本VBA字典，或者：
如果新行不存在，则将其插入数据库。
如果行更新，则更新行。
虽然我当前的代码对此有效，但对于我可能需要更新的数千条记录，它运行得非常慢，而我在这个站点上找到的其他解决方案并没有真正实现我所追求的目标。有人能帮我做到这一点吗？目前为止，我的代码如下：
Sub UpdateDatabase(dict As Object)
Dim Conn As Object, StrSQL As String, Rs As Object
Dim hmm As ADODB.Recordset
Set Conn = CreateObject("ADODB
浏览 0提问于2019-01-02得票数 0
回答已采纳
我有一个VBA应用程序，它在尝试运行时抛出一个"ActiveX组件无法创建对象“异常。
断点设置在抛出异常的行上：
我假设这与Me.Recordset有关(我是访问表单)。记录集可能与所引用的Microsoft库相关。以下是当前的参考资料：
该应用程序在Windows98计算机上运行，Access .mdb据称在此之前运行良好(没有人记得它最初在什么计算机上或它的配置。表单本身只是滚动数据记录(这很好)，但是当触发上面的Calc_Confidence_Level()子例程时，它会在记录集中抛出一个错误，我认为这个错误与它滚动的记录集相同。
有人知道这里出了
浏览 3提问于2011-04-28得票数 1
回答已采纳
在记录集中从mssql数据库加载数据时，将正确填充所有字段。如果我检查vba调试器中的记录集，所有字段都有值。一旦我访问一个字段f.e将值赋值给一个变量，一些字段值似乎就消失了。然后，当我签入调试器时，与值相同的字段具有“空”。知道问题可能是什么吗？
Sub FillData(query)
On Error GoTo eh
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Source = query
Dim cn As Object
Set cn
浏览 4提问于2022-09-09得票数 0
回答已采纳
1回答
我正在处理一个Excel外接程序项目，其中有多个用户访问服务器上的数据库。目前，只要一次只有一个用户访问数据库，所有代码都可以正常工作，所有处理都是正确的。我使用DAO访问数据库，并使用以下代码行传递一个SQL字符串来检索记录
Set db = OpenDatabase(g400DBPath, , True)
Set rs = db.OpenRecordset(sSQL, dbOpenSnapshot)
这就产生了一个问题，如果不止一个人同时尝试访问数据库，那么只有第一个人能够访问数据库。我尝试将记录集代码行更改为
Set rs = db.OpenRecordset(sSQL, dbOpenS
浏览 0提问于2018-03-28得票数 0
回答已采纳
3回答
我试图在Access VBA中使用批处理更新。我的代码在每次操作后更新时运行良好，但当我尝试对多个行操作时，代码会失败。我得到的例外是
“运行时错误'-2147217887 (80040e21)'：多步OLE DB操作生成错误。如果可用，请检查每个OLE DB状态值。没有完成任何工作。”
我的代码是
rs.Open "dbrammDump", CurrentProject.Connection, _
adOpenKeyset, adLockBatchOptimistic
rowsDel = 0
Do Until rs.Record
浏览 7提问于2009-06-25得票数 1
回答已采纳
这并不是很复杂。基本上，一些数据被存储为普通的“文本”字段，但使用内置的组合框作为显示控件。这一切都很好，但现在当我尝试导出VBA中的所有数据时，每次到达该列时都会抛出一个错误，因为它显然不能序列化复杂数据类型。
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from my_table", dbOpenSnapshot)
msgbox rs(1)
以下是字段属性
浏览 0提问于2011-10-12得票数 0
回答已采纳
我正在使用crystal report - 11，我想使用add command执行带参数存储过程。我在下面的代码中尝试过-
exec sf02.gen_statement_data('MS0001','1-Nov-2013','15-Nov-2013')
但它获取错误无效的SQL语句。所以请给我一个解决方案。
浏览 2提问于2014-01-16得票数 2
回答已采纳
我有这样的声明：
DELETE TABLENAME WHERE COLUMN = NUMBER; SELECT @@ROWCOUNT AS RC;
如果我从代码(经典的asp)运行它，就会得到错误：Item cannot be found in the collection corresponding to the requested name or ordinal.
DB是sql server 2005 express。
如果我在查询分析器中运行这一行，它就能工作！
我所引用的列对db中的另一个表有一个约束。
你们知道在哪里找解决办法吗？
更新--请现在就解释一下，
第一行是常规服务器上的连
浏览 3提问于2011-09-28得票数 0
2回答
我想在VBA中创建If/Then语句，如果记录集中有多条记录，则填充一条消息，如果只有一条记录，则填充另一条消息。
现在我正在使用
If rst.EOF = False Then...
Else ...
End If
这只会返回第一个条件，而不管记录集中有多少条记录。
我还漏掉了什么吗？
浏览 4提问于2018-03-06得票数 0
我在vb6中创建了记录集，并存储了从txt文件中读取的值。当我试图执行SQL查询时，它将将我的记录集数据插入数据库表中。我的错误就像，
或EOF或BOF为真，或当前已重获的已删除。请求的操作需要当前记录。
我相信个人名称的措辞是错误的。但我不知道那是什么。
Public Function ProcessDNE(ByVal strFileName As String) As Boolean
Dim intFileNbr As Integer
Dim strCurrentLine As String
Dim strRoutingNbr As String
Dim strAcct As Stri
浏览 5提问于2009-11-27得票数 0
2回答
我有一个带有登录表单的数据库，在成功登录时，主导航表单应该打开，登录表单应该关闭.除了登录表单拒绝关闭自身，而是抛出“运行时错误'2585'：此操作不能在处理窗体或报表事件时执行。”
下面是我得到的密码：
Private Sub buttonLogin_Click()
Dim hash As New CMD5
Dim salt As String
Dim result As String
Dim rs As DAO.Recordset
Dim rc As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblCurrent
浏览 0提问于2015-03-28得票数 0
回答已采纳
1回答
我在Server中有一个存储过程，我正试图通过一些VBA代码从Excel中执行它。但是，存储过程有两个输出(见下文)。
我的记录集只是拉动第一个表(添加了0条错误消息.)而我想把第二张桌子拉进去。
图片：
下面是我的代码，它是从我在这里找到的其他来源编译而来的：
Sub RefreshBarcodes()
Dim Database As String
Dim con As ADODB.Connection
Dim strconn As String
Dim SQLServer As String
Dim Session As String
Dim strSQLCommandOne As Str
浏览 3提问于2015-08-19得票数 1
回答已采纳
1回答
vba操作符!和.之间的确切区别是什么？
我已经注意到，它们通常可以被使用，可互换，但有时工作而不是(例如Access中的Forms-Collection)。
此外，当您意外地编写!optSomething (一些选项)而不是Not optSomething使用with子句时，它不会在编译时中断，而是在运行时中断，因为使用了! --我的公司在On Error Resume Next之后出现了一些vba故障，而我只有在“刹车每个错误”被激活时才意识到这一点。
浏览 3提问于2016-03-29得票数 1
回答已采纳
2回答
我正在使用Access 2013和Excel 2013。在引用方面，我使用的是MicrosoftOffice15.0Access数据库引擎对象库。
因此，我试图在VBA中运行一个DELETE查询。这是我到目前为止所拥有的
Sub UpdatePartList()
Dim ws As DAO.Workspace
Dim dbs As DAO.Database
Dim rsTable As DAO.Recordset
Dim rsQuery As DAO.Recordset
Dim rsSql As DAO.Recordset
Set ws = D
浏览 1提问于2017-06-19得票数 2
回答已采纳
2回答
我希望第二列中的所有行都是下拉列表。在其中，用户单击单元格并选择任何现有名称。
怎么做？
当我运行此代码时，它会显示一个错误：
无效或不限定引用
代码：
Sub test()
Dim i As Integer
Dim OfficerList(4) As String
OfficerList(0) = "test1"
OfficerList(1) = "test2"
OfficerList(2) = "test3"
OfficerList(3) = "test4"
OfficerList(4) = "test5"
浏览 0提问于2017-10-05得票数 0
1回答
在VBA中传递记录集对象销毁
、、、、
我想我已经理解了记录集的传递。它总是以参考的方式通过。我要问的是物体的破坏。
我有一个从Access获取记录集的函数。我从给定的例程调用该函数，将SQL语句传递给它，并从中获取记录集结果。请参阅下面的代码示例。
在调用例程的末尾，我关闭记录集并将对象设置为空。我不清楚的是，是否需要做一些事情来销毁被调用函数中的记录集对象。由于记录集是传递给ByRef的，我倾向于认为关闭记录集并从调用例程中将其设置为空也会破坏被调用函数中的记录集。更重要的是，我有一部分认为被调用函数中的局部级变量在函数完成后就会被销毁，但是我意识到，自动销毁的变量与对象不同，即使在本地级别也必须手动销毁。
所以问题是，我是否必
浏览 0提问于2014-07-17得票数 1
2回答
我在VBA Access中有以下几行，但是我收到FindFirst的语法错误，我不明白为什么。
criteria = "[HolidayDate] = " & "#" & myDate & "#"
rst.FindFirst (criteria)
If rst.NoMatch Then
count = count + 1
End If
浏览 3提问于2020-01-08得票数 0
1回答
我正在使用mySql服务器连接将表数据输入excel。我一共有三个查询，其中两个很好地工作，并正确地从copyFromRecordSet复制。但是，当我使用copyFromRecordset时，第三个查询不能正确工作。它得到了我想要的两列，但忽略了接下来的五列。当我在数据库GUI中使用它时，查询工作正常，所以这不是问题。
我正在尝试使用copyFromRecordSet的替代方案，这是我从中修改的一段代码。
'Open and copy the recordset to an array to allow for copying into worksheet
RS.Open Price
浏览 1提问于2017-07-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
6回答
我正在从MSDN复制一段VBA代码片段，它向我展示了如何从SQL查询中获取结果到excel工作表(Excel 2007)中：
Sub GetDataFromADO()
'Declare variables'
Set objMyConn = New ADODB.Connection
Set objMyCmd = New ADODB.Command
Set objMyRecordset = New ADODB.Recordset
'Open Connection'
objMyConn
浏览 1提问于2009-07-13得票数 28
回答已采纳
我只处理过退货的问题，所以我不知道该怎么做。我无法访问存储过程。我知道这一切都依赖于一个初始的id，而这个id又可以连接到这个人的帐户列表。它返回4个表，但当我试图返回数据时，我只得到初始表。有什么迭代我不知道怎么做吗？我知道没有sp的代码是很困难的，但是到目前为止，我对vba有如下的内容：
Sub special_customer_data()
Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
浏览 2提问于2022-04-20得票数 1
1回答
有个愚蠢的问题，接缝很简单，但我就是不明白。
为excel工作表提供了一个非常简单的vba代码：
Private Sub GET_MDW_DATA()
On Error GoTo ErrorHandler
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cmdSQLData As ADODB.Command
Set cmdSQLData = New ADOD
浏览 1提问于2013-10-24得票数 0
回答已采纳
我需要在excel vba中从一个access表字段创建一个数组。该表有4个字段，但我需要创建一个仅包含字段2中的数据的数组。我连接access，然后使用以下代码填充该数组： Array1 = Array(Rs.Fields(1).Value) 但是Array1只从字段2加载了1项，我不知道如何才能使循环加载所有数据。
浏览 35提问于2020-06-20得票数 1
回答已采纳
1回答
我试图在VBA中使用ADODB.Command发送命令。我知道连接和命令正常工作，因为它们在代码中的几个地方使用。但是，我在获得双插入/选择工作时遇到了困难。我一直得到一个记录集，其字段为count 0。我更熟悉使用C# SqlCommand对象，它允许这种堆叠命令。在VBA中有使用ADODB的方法吗？代码如下：
注意: reader2是一个ADODB.Recordset。使用TSQL连接到Microsoft
comm2.CommandText = "INSERT INTO tblTest (F1,F2,F3,F4,F5) VALUES(?,?,'Running
浏览 5提问于2013-11-05得票数 0
回答已采纳
4回答
我是VBA的新手，试图理解别人的代码。
集rstClone = Me.RecordsetClone
rstClone.MoveFirst
为什么必须克隆记录集？为什么代码不能是Me.Recordset.MoveFirst？
浏览 9提问于2010-03-02得票数 6
回答已采纳
我已经在Access 2013中编写了一个应用程序(64位)，我想将它分成前端数据库和后端数据库，将后端存储在文件服务器上，多台机器可以通过前端的本地实例访问数据。没有任何一台计算机安装了Access，所以我在它们上使用Access Runtime 2013。
在一台计算机上，应用程序在未拆分时运行良好。一旦我将应用程序拆分为前端/后端文件，程序就会在启动时立即打开并关闭，没有任何错误信息。我假设这是由于应用程序第一次启动时外部数据文件的链接无效(即现有链接指向我的开发机器上的文件夹位置)。
有人经历过这个问题吗？如果是的话，是由于无效的链接吗？而且，我能做些什么来让程序保持开放，允许用户导航
浏览 2提问于2015-08-21得票数 0
回答已采纳
1回答
我可以像这样在SQL查询中使用标量VBA函数
SELECT vba_concat(name, surname) FROM persons
此外，我还可以在SQL查询中使用非标量SQL函数，如下所示
CREATE FUNCTION names() RETURNS TABLE(name VARCHAR(20)) AS '
SELECT name FROM persons;
' LANGUAGE SQL;
SELECT * FROM names();
但是如何在SQL查询中使用非标量VBA函数，比如SELECT * FROM vba_ids()，vba_ids()定义为Pu
浏览 3提问于2012-11-21得票数 1
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
1回答
VBA:向记录集添加具有值的字段
、、、、
我正在通过Excel通过ADODB.Connection和ADODB.Recordset访问DB。我的查询返回四个数据字段。我想要对记录集的每一行具有相同值(即5)的第五个字段。我不想将它添加到DB中。
我想将其作为字段来执行，因为有时我的查询会返回五个字段，而第五个字段将替换E列乘法中的5。
我目前的代码如下：
Dim MyConn As ADODB.Connection
Dim MyRecords As ADODB.Recordset
Set MyConn = New ADODB.Connection
Set MyRecords = New ADODB.Recordset
MyConn.O
浏览 1提问于2017-09-19得票数 2
回答已采纳
长时间观众第一次海报。我正在使用Excel的前端处理一个数据库应用程序。因此，我使用VBA访问MySQL数据库。我使用的驱动程序是ODBC驱动程序(Windows)，并且由于许多其他查询功能良好，所以我与数据库有一个有效的连接。
我想要做的是返回一系列SQL语句的结果，而不是将其合并成一个庞大的语句(这可能会工作，但很难维护/理解)。我已经将标志FLAG_MULTI_STATEMENTS = 67108864添加到连接字符串中，这将抑制驱动程序语法错误。
但现在当我运行以下命令时：
queryDB.Open SQLquery, conn
recordset (queryDB)保持关闭状态，没有
浏览 4提问于2013-04-20得票数 20
我有一个带有子表单的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
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
