为什么VBA CurrentProject.Connection语句会导致我的所有访问数据库崩溃？(Why do VBA CurrentProject.Connection statements cause all my access databases to crash?)
我正在使用遗留数据库.mdb数据库，它在Access 2007中遇到包含CurrentProject.Connection的行时崩溃。
当我将相同的代码添加到全新的数据库时，它也会崩溃。
Dim rstDateFields As New adodb.Recordset
rstDateFields.Open "SELECT * FROM defDateFields ORDER BY FieldID", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
引用设置为：VBA，MS ACCESS 12.0对象库，OLE自动化，MS Ofrfice 14.0访问数据库引擎对象
I am working with a legacy database .mdb database that just crashes in Access 2007 when it hits lines with CurrentProject.Connection in them.
When I add the same code to brand new databases it crashes them too.
Dim rstDateFields As New adodb.Recordset
rstDateFields.Open "SELECT * FROM defDateFields ORDER BY FieldID", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
References set to: VBA, MS ACCESS 12.0 object library, OLE automation, MS Ofrfice 14.0 Access db engine object
原文：https://stackoverflow.com/questions/10229377
2019-11-23 07:44
满意答案
您向我们展示的代码是非常基本的ADO，因此很难相信代码本身就是问题的原因。 通过尝试来自另一台计算机的相同代码，检查问题是否与该计算机隔离。 如果它在那里运行没有错误，很可能原始机器以某种方式被破坏。 不幸的是，试图找到并修复破损可能具有挑战性。 祝你好运！
The code you showed us was very basic ADO, so it's hard to believe the code itself is the cause of the problem. Check whether the problem is isolated to that one machine by trying the same code from another machine. If it runs without error there, mostly likely the original machine is broken somehow. Unfortunately trying to find and fix the breakage can be challenging. Good luck!
2012-04-23
相关问答
如果查询太大(错误消息指示)，那么让我们将其拆分为更小的块。 这只适用于MySQL，Access不支持LIMIT或OFFSET ，变通办法很麻烦，特别是对于总计查询 我在这里做了一些假设： 所有相关表都存储在同一个MySQL数据库中 您的表具有可用于ADO的有效连接字符串 请注意，仅在MySQL中执行查询可能足以解决此错误。 Private Sub Get_Value()
Dim sql As String
Dim STD As New ADODB.Recordset
Di...
您向我们展示的代码是非常基本的ADO，因此很难相信代码本身就是问题的原因。 通过尝试来自另一台计算机的相同代码，检查问题是否与该计算机隔离。 如果它在那里运行没有错误，很可能原始机器以某种方式被破坏。 不幸的是，试图找到并修复破损可能具有挑战性。 祝你好运！ The code you showed us was very basic ADO, so it's hard to believe the code itself is the cause of the problem. Check whe...
您确实可以在SQL语句中直接使用DAO和ADO查询其他工作簿，同样只需通过引用它们的路径来查询Access数据库表。 相反，在Access查询中，您可以查询Excel工作簿！ 这证明了Jet / ACE SQL引擎(Windows .dll文件)不仅限于任何一个MS Office产品或Windows程序，而是一个适用于所有人的工具。 在下面的两个示例中，宏直接连接到第一个工作簿，在SQL查询中，每个间接连接到第二个工作簿。 您可以在工作簿内部或外部运行代码。 同时在FileOne和FileTwo工...
找到了解决方案。 我改变的事情： CallbackMsg从函数到子 字符串参数填充数据VarPtr(“Hallo Welt”) 运行版本： Private Declare Function CallWindowProc _
Lib "user32.dll" Alias "CallWindowProcA" ( _
ByVal lpPrevWndFunc As Long, _
...
要么在单个语句中连接 - 使用连续字符_ ... TblLenSQL = "SELECT Count(dbo_Transaction_Table.Sequence_Number) AS CountOfSequence_Number," & _
" From dbo_Transaction_Table"
...或不 - 使用多个语句... TblLenSQL = "SELECT Count(dbo_Transaction_Table.Sequence_Number) AS ...
如果您只想将表格转移到Excel，请使用 DoCmd.TransferSpreadsheet(acExport,, "memory", "file path of excel table")
如果您想在传输数据时以某种方式更改数据，那么您的代码看起来非常有用，但它看起来并不像您正在执行此操作，因此这是运行相同例程的一种更简单的方法。 If all you want to do is transfer the table to excel, use DoCmd.TransferSpreadshee...
是的，你是对的，它只会执行第一个块 来自IF-THEN-ELSE声明(VBA) If condition_1 Then
result_1
ElseIf condition_2 Then
result_2
...
ElseIf condition_n Then
result_n
Else
result_else
End If
condition_1到condition_n按列出的顺序进行评估。 一旦发现条件为真，IF-THEN-ELSE语句将执行相应的代...
根据我的评论，您可以获得带有DisplayFormat的条件格式颜色。 另外，建议只在需要值时直接跳过剪贴板并直接赋值： Dim LR As Long
Dim LR1 As Long
LR = Range("A1048576").End(xlUp).Row
For x = 9 To LR Step 1
If Range("F" & x).DisplayFormat.Interior.ColorIndex = 3 Or Range("F" & x).DisplayFormat.Interio...
这将避免shell调用(Access 2007，也是Access 2003？)： '
' variables:
' strDbName: database filename
' strMacro: macro name
'
Sub CallMacro()
'
Dim strDbName, strMacro
Dim objApp
'
strDbName = "C:\path-to-database\database.mdb"
strMacro = "mcrTestCall"
...
尝试检查“引用” - 您将看到没有DAO库。 您的第一个示例有效，因为db具有Variant类型。 和任务 Set db = CurrentDb()
将COM对象DAO.Database置于db中，稍后TypeName确认这是Database。 如果你想使用 Dim db as DAO.Database
您必须引用适当的库(例如Microsoft DAO) Try to check "References" - you will see there is no DAO library....
相关文章
Access Token 在微信公众平台接口开发中，Access Token占据了一个很重要的地位，相
...
原创：用VBA实现将鼠标选择的单元格按照指定格式合并并复制到剪切板 一、主要实现以下功能： 1、用鼠标
...
怎么把access2000数据库的内容添加自己的数据库。。。access数据库里面的内容我想把里面的信
...
一、微信获取access_token接口简介 1、请求：该请求是GET方式请求，所以要携带的参数都
...
access_token是公众号的全局唯一票据，公众号调用各接口时都需使用access_token。开
...
Open [Tomcat install dir]\tomcat-users.xmlfor editi
...
前言 前一篇小猪和大家分享了如何回复用户的简单文本，这一篇我们来看看如何获取Access_token
...
“access_token是公众号的全局唯一票据，公众号调用各接口时都需使用access_token。
...
在微信接口开发中，许多服务的使用都离不开Access Token，Access Token相当于打开这
...
最新问答
如果启用了复制处理程序，请确保将其置于其中一个安全角色之后。 我见过人们做的另一件事是在不同的端口上运行admin。 最好在需要auth的页面上使用SSL，这样你就不会发送明确的密码，因此管理和复制将发生在8443上，而常规查询将在8080上发生。 如果您要签署自己的证书，请查看此有用的SO页面： 如何在特定连接上使用不同的证书？ I didn't know that /admin was the context for SOLR admin because /admin does not re
第一：在您的样本中，您有： 但是你在询问 //td[@class=‘CarMiniProfile-TableHeader’] (注意TableHeader中的大写'T')。 xpath区分大小写。 第二：通过查询// td [@ class ='CarMiniProfile-TableHeader'] / td，你暗示你在外部td中有一个'td'元素，而它们是兄弟姐妹。 有很多方法可以在这里获得制作和模型
这是你的答案： http://jsfiddle.net/gPsdk/40/ .preloader-container { position: absolute; top: 0px; right: 0px; bottom: 0px; left: 0px; background: #FFFFFF; z-index: 5; opacity: 1; -webkit-transition: all 500ms ease-out;
问题是，在启用Outlook库引用的情况下， olMailItem是一个保留常量，我认为当您将Dim olMailItem as Outlook.MailItem ，这不是问题，但是尝试设置变量会导致问题。 以下是完整的解释： 您已将olMailItem声明为对象变量。 在赋值语句的右侧，在将其值设置为对象的实例之前，您将引用此Object 。 这基本上是一个递归错误，因为你有对象试图自己分配自己。 还有另一个潜在的错误，如果之前已经分配了olMailItem ，这个语句会引发另一个错误(可能是
我建议使用wireshark http://www.wireshark.org/通过记录(“捕获”)设备可以看到的网络流量副本来“监听”网络上发生的对话。 当您开始捕获时，数据量似乎过大，但如果您能够发现任何看起来像您的SOAP消息的片段(应该很容易发现)，那么您可以通过右键单击并选择来快速过滤到该对话'关注TCP Stream'。 然后，您可以在弹出窗口中查看您编写的SOAP服务与Silverlight客户端之间的整个对话。 如果一切正常，请关闭弹出窗口。 作为一个额外的好处，wireshar
Android默认情况下不提供TextView的合理结果。 您可以使用以下库并实现适当的aligntment。 https://github.com/navabi/JustifiedTextView Android Does not provide Justified aligntment of TextView By default. You can use following library and achieve proper aligntment. https://github.com/
你的代码适合我： class apples { public static void main(String args[]) { System.out.println("Hello World!"); } } 我将它下载到c：\ temp \ apples.java。 以下是我编译和运行的方式： C:\temp>javac -cp . apples.java C:\temp>dir apples Volume in drive C is HP_PAV
12个十六进制数字(带前导0x)表示48位。 那是256 TB的虚拟地址空间。 在AMD64上阅读wiki(我假设你在上面，对吗？)架构http://en.wikipedia.org/wiki/X86-64 12 hex digits (with leading 0x) mean 48 bits. That is 256 TB of virtual address space. Read wiki on AMD64 (I assume that you are on it, right?) ar
这将取决于你想要的。 对象有两种属性：类属性和实例属性。 类属性 类属性对于类的每个实例都是相同的对象。 class MyClass: class_attribute = [] 这里已经为类定义了MyClass.class_attribute ，您可以使用它。 如果您创建MyClass实例，则每个实例都可以访问相同的class_attribute 。 实例属性 instance属性仅在创建实例时可用，并且对于类的每个实例都是唯一的。 您只能在实例上使用它们。 在方法__init__中定
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
