ADODB SQL查询ORDER BY子查询不起作用
ADODB是一种用于在Windows平台上访问数据库的技术，它提供了一组API和组件，使开发人员能够通过编程语言（如VBScript、JavaScript等）连接和操作数据库。SQL查询是一种用于从数据库中检索数据的语句，而ORDER BY子查询是用于对查询结果进行排序的子句。
然而，根据提供的问题描述，ADODB SQL查询中的ORDER BY子查询不起作用。这可能是由于以下几个原因导致的：
- 语法错误：请确保ORDER BY子查询的语法正确，包括正确的列名和排序方向（升序或降序）。
- 数据类型不匹配：如果ORDER BY子查询中的列与数据库中的列的数据类型不匹配，可能会导致排序不正确。请确保数据类型一致。
- 数据库驱动问题：某些版本的ADODB驱动程序可能存在问题，导致ORDER BY子查询不起作用。请尝试更新或更换ADODB驱动程序。
- 数据库设置问题：某些数据库可能具有特定的设置，可能会影响ORDER BY子查询的行为。请检查数据库的配置和设置，确保允许使用ORDER BY子查询。
推荐的腾讯云相关产品和产品介绍链接地址：
腾讯云数据库MySQL：https://cloud.tencent.com/product/cdb_mysql
腾讯云数据库SQL Server：https://cloud.tencent.com/product/cdb_sqlserver
腾讯云数据库MongoDB：https://cloud.tencent.com/product/cdb_mongodb
腾讯云数据库Redis：https://cloud.tencent.com/product/cdb_redis
腾讯云数据库MariaDB：https://cloud.tencent.com/product/cdb_mariadb
请注意，以上链接仅供参考，具体的产品选择应根据实际需求和情况进行评估和决策。
相关·内容
对于，我运行以下查询
( a)在Column A和
( b)将别名包含在SQL中，作为Column A的header。
Sub ConnectDB5()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim dateVar As Date
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE
浏览 4提问于2020-03-05得票数 0
我正在尝试使用日期参数从SQL数据库中提取数据到Excel中。下面的VB查询行得通。我希望让查询使用电子表格中的单元格值，而不是手动更改VB查询的TS中的日期值。单元格A1具有>= TS的日期，单元格A2具有
Sub vba_query_01()
Dim oCon As ADODB.Connection
Dim oRS As ADODB.Recordset
Set oCon = New ADODB.Connection
oCon.ConnectionString = "DRIVER=SQL Server;SERVER=GSEYBERTHNB7
浏览 1提问于2013-05-11得票数 2
这是我关于堆栈溢出的第一个问题。我已经从这个网站上学到了很多东西，但是我还没有找到我所遇到的问题的答案。
我有一个在Server 2008 R2管理演播室中工作的SQL查询，但当我在EXCEL 2013中使用vba查询它时，它不起作用。查询包含一个公共表表达式，它不会将任何记录返回到我的记录集。
SQL查询是：
WITH cte AS
( SELECT *, ROW_NUMBER() OVER (PARTITION BY [partNumber]
ORDER BY [date] DESC) AS i FROM [myDB].[dbo].[PartOrders]
WHERE [partDe
浏览 0提问于2017-03-01得票数 1
回答已采纳
下面的vba代码有点问题：
Sub ADOExcelSQLServer()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Server_Name = "EXCEL-PC\EXCELDEVELOPER" ' Ent
浏览 2提问于2018-05-10得票数 0
回答已采纳
我有一个包含所有订单的数据库，我可以连接和查询。此外，我还有一个文本文件，其中包含我可以连接和查询的最后一个数据库查询的顺序。我需要能够左加入这两个在VBA中。我对数据库没有任何问题，因为它在连接字符串中，但是我似乎无法将文本文件路径传递给SQL字符串，而不使用but和invalid object错误。我是第一次接触SQL并连接到文件。任何帮助都将不胜感激。
我正在尝试做以下几件事：
Sub Comp2TablesFrom2Databases()
Dim rs As ADODB.Recordset
Dim strSQL As String, strCon As String
Set rs
浏览 0提问于2012-11-02得票数 2
因此，我有一个Excel表，它有一个可以由用户更改的开始日期和结束日期。我有第二个表，其中有一个单元格，用户可以在其中输入他的查询，以获取该信息。我已将startDate和enDate分配给查询，以便它可以引用这些单元格。我遇到的问题是，因为我从excel中提取查询，所以它没有引用开始日期和结束日期。我能做些什么来解决这个问题吗？以下是查询：
select system_date where system_date >= ' " & startDate & "" and
system_date <= "" &
浏览 4提问于2016-06-28得票数 0
我正在开发的ASP VBScript在工作中，需要运行一个选择不同的查询，但我有一些麻烦。
我的代码中还有其他查询可以很好地工作，它们不使用SELECT DISTINCT。
下面是我正在使用的：
Dim sections()
c = 1
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
conn.Open
浏览 0提问于2015-07-20得票数 0
我试图使用ADODB中的子查询从其他表中选择数据。这是我的代码：
Sub CopyData()
Dim cmd As String
If OpenConnection() = True Then 'The connection function already created in my module
cmd = "SELECT * FROM (SELECT [SheetName] FROM `Breakdown structure library$` WHERE [Name (Name *)]='WBS');"
浏览 0提问于2021-04-11得票数 0
回答已采纳
我有一个简单的rnd查询，在Access中运行得很好，但当我在asp页面上运行它时，每次都会得到完全相同的记录。我更新了我的原始帖子，以显示新的SQL在asp页面和我的数据库连接。 访问： SELECT TOP 1 tblPlayers.*
FROM tblPlayers
WHERE (((tblPlayers.FN) Like "*aaa*"))
ORDER BY Rnd([LID]); ASP页(基于下面评论的反馈) Dim sql, rssql
sql = "SELECT TOP 1 tblPlayers.* "
sql=sql & "
浏览 8提问于2019-04-06得票数 0
2回答
我想我有一个相当简单的问题要回答。下面的代码工作得很好，最终结果是将我的userform的两个组合框填充到Access数据库中的字段数据中。我还有几个组合框来填充访问数据。我正在寻找一种在单个记录集中循环多个SQL语句的方法，而不是为每个SQL查询创建一个新的记录集。一如既往，非常感谢。
Const conStrAccess As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=C:\Users\Andy\Desktop\Database\IATC.accdb;Persist Security
Info=False;&
浏览 10提问于2017-07-15得票数 0
回答已采纳
2回答
我无法通过ADODB和Oracle执行带有with子句的SQL查询。
也就是说，下面的代码片段可以工作：
Dim cn As ADODB.connection
Set cn = ....
Dim rs As ADODB.recordSet
Set rs = New ADODB.Recordset
rs.Open "select 'foo' x from dual", cn
Do While Not rs.eof
...
rs.MoveNext
Loop
但是，下面的操作不起作用--它生成了一个运行时错误3704:当对象关闭时不允许操作。
Di
浏览 5提问于2010-02-23得票数 10
回答已采纳
我正在通过以下参数化查询进行数据库调用。
set recordset = Server.CReateObject("ADODB.Recordset")
set cmd1 = Server.CreateObject("ADODB.Command")
cmd1.CommandText = "SELECT * FROM tbl_catmaster where (catname =? or catname =?) ORDER BY catname"
cmd1.ActiveConnection = Conn //connection object alr
浏览 0提问于2011-10-05得票数 0
回答已采纳
我在一个项目中有几个用户表单，每个用户表单都有一个不同的用户名，但是我对对象使用的是统一的名称。例如，每个需要使用SQL查询的表单都有一个名为"Team“的对象，并且使用相同的查询来提取团队列表。每个表单的代码中也有相同的查询，" with“语句被更改以反映表单名称。我想做的是在一个名为SQL或类似的模块中只有一个查询实例。下面是我目前使用的查询类型的一个示例。
Sub GetTeams()
Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim SQLStr As
浏览 1提问于2018-06-12得票数 0
回答已采纳
1回答
以下SQL查询会出现此错误：
“微软参数太少。预期1。”
Dim adoRS As New ADODB.Recordset
adoRS.Open "SELECT CStr(BOX) AS 'STRBOX',SLOT FROM [BIOSAMPLES$] WHERE STRBOX = '" & CStr(nBoxID) & "'" & " ORDER BY SLOT", adoConn
怎么啦？
浏览 4提问于2016-09-16得票数 0
1回答
作为VBA代码的一部分，我试图运行一个查询，它在date字段中查看包含今天日期的所有记录，并将它们写入记录集。但是，下面的SQL语句不起作用。它不返回任何记录，即使DateEntered字段确实有今天日期的记录。
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim SQL as string
SQL = "SELECT * FROM tbl1LinkAuths WHERE DateEntered = #" & Date & "# "
Debug.Print SQL
cn
浏览 2提问于2015-09-03得票数 2
回答已采纳
我正在使用带有参数化SQL查询字符串的经典ASP，如下所示：
SQL = "SELECT * FROM content WHERE Category LIKE ? ORDER BY SubDate ?"
SQL查询字符串在以下参数化代码中使用：
Set cmd = Server.CreateObject("ADODB.Command")
Set rsView = Server.CreateObject("ADODB.Recordset")
cmd.ActiveConnection = MM_connContent_STRING
cmd.Prepa
浏览 1提问于2012-07-17得票数 0
回答已采纳
我正在使用ADOdb for PHP库从oracle数据库访问一个包含600万行行的视图表。
在SUSE机器中从web服务器运行以下SQL查询大约需要1分钟：
$adodb_handle>Execute(“SELECT COUNT( BEPROTEXT ) FROM (从V_E_LOG选择BEPROTEXT，其中BEPROTEXT类似于'%jaya%‘))；
在我的笔记本电脑上运行相同的SQL查询(也使用ADOdb库)大约需要7秒。
如果运行以下SQL查询：
$adodb_handle>Execute(从V_E_LOG选择计数(BEPROTEXT))；
从SUSE到
浏览 5提问于2010-10-05得票数 2
回答已采纳
因此，我对同一个表有两个查询。查询工作正常，但我的结果返回得有点慢。我还使用了两个不同的变量(Shipment_D2和Count_D2)，是否有更好的方法在使用不同变量的同时组合多个查询，而不是每次进行查询时打开一个新连接？
<%
Set rscount11 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT Count FROM DivisionNew WHERE JMS_UpdateDateTime >= DATEADD(day,-7, GETDATE()) AND
JMSDay = '
浏览 0提问于2013-08-14得票数 0
回答已采纳
1回答
我试图构建一个用于查询Apache演练的宏。我不能让它起作用。
我试过两种方法。
首先使用QueryTables.Add。它不断地添加结果，这样就不会更新结果，而只是将旧的结果移到右边，并在A1中插入新集。
Q：如何使查询删除旧结果并将新结果放在相同的位置？
第二次尝试使用ADODB.Recordset。连接不起作用
错误：
未找到Microsoft数据源名称，也未指定默认驱动程序。
Q：ADODB.Connection，ADODB.Recordset可以用来查询来自Appachi钻机的数据吗？
第一次尝试
Sub S3Download()
Dim sConn As String
D
浏览 0提问于2017-06-22得票数 0
回答已采纳
2回答
我试图在一个Sub中使用不同的MySQL查询，这些查询应该在一个表中填充不同的范围。
到目前为止，我得到的是：
使用"ConnectionDB“函数，我想连接到远程数据库。在Sub "QueryDatabase“中，我打开连接并执行两个Sql-查询。第一个Sql-查询应该填充范围A2，第二个查询应该在同一个工作表中填充范围D2。
我将记录的宏中的Sql-字符串提取到远程数据库中，在记录的宏中，它工作得很好。
当我执行我的代码(见下面)时，Excel工作了一段时间，但嵌入的单元格仍然是空的。我没有调试错误。
所以，伙计们，这是我为我能得到的每一个帮助而感到高兴的地方。)这可能是我
浏览 1提问于2015-08-13得票数 0
回答已采纳
我想编写一个sql查询，在其中我选择按id分组的所有行，其中列date是该id的最新日期，但仍然小于例如16-JL-2021。我想在不使用子查询(在oracle中)的情况下这样做，这可能吗？我试了下，但不起作用。
SELECT *, max(date)
WHERE date < '16-JUL-2021'
OVER(PARTITION BY id ORDER BY date DESC) as sth
FROM table
浏览 7提问于2022-02-11得票数 0
回答已采纳
2回答
我从事务表中获取order_id、created_at日期、transaction_amount。我在order_id、它的created_at date和transaction_amount上有一些记录。现在我要transaction_amount列的和。我试着直接跟踪数据库上的查询，这些查询运行良好，但我无法用laravel编写相同的查询。
select sum(transaction_amount) from (
select order_id, max(created_at), transaction_amount
from transactions
WHERE user_id =10
浏览 2提问于2017-08-04得票数 1
回答已采纳
2回答
我正在尝试学习如何使用ADO操作数据库，所以我知道这是一个非常基本的问题，但我仍然需要帮助。我在sql查询分析器中运行了一个查询，它执行得很好：
SELECT TOP 1 QuestionType FROM Questions
ORDER BY QuestionID DESC;
但是，我尝试将其放入我的ADO脚本，但我得到一个错误，查询将不会完成。有人能告诉我为什么吗？再次抱歉，如果这只是一个简单的语法错误。以下是给出错误的脚本：
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * fr
浏览 3提问于2014-02-09得票数 1
备注：
来自SELECT version()的返回值为10.5.12-MariaDB-log
默认排序规则: utf8mb4_unicode-ci
默认字符集: utf8mb4
UbuntuLinux8.0.29使用MySQL工作台运行的查询
我的目标是删除表中重复的项。我没有任何其他表可用作检查副本的引用。我创建了一个返回预期结果的简单查询和子查询：
SELECT * FROM messages WHERE id NOT IN
(SELECT id FROM
messages
WHERE
浏览 3提问于2022-06-29得票数 0
2回答
我一直在挖掘这个问题，但我找不到与之相关的解决方案。我在一个单独的模块(模块5)中有一个SQL数据库连接，当我需要从另一个模块/表单连接到我的数据库时，我想调用它。这是为了简单和单次更新，所以我不需要遍历每个函数来更新连接。 数据库连接(Module5) Function dbconnection()
Dim cnn As New ADODB.connection
Dim rst As New ADODB.Recordset
cnn.Open = "Driver={SQL Server};Server=HOLAP-
IST9985\CASETRACKER;Database=cas
浏览 19提问于2019-05-29得票数 0
2回答
多维数组问题
、、、
我想创建一个包含2列的多维数组，并将行大小设置为动态值。然后，我想用来自2个不同SQL查询的值填充多维数组(Microsoft)。
问题是，当页面加载时，它似乎是空的。如何用两个不同的记录集填充每一列？
或
是否至少返回记录集中的总行数？
下面的代码-
connectionstring = obj_ADO.getconnectionstring
Set objCon = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
set obj
浏览 1提问于2011-06-28得票数 1
回答已采纳
我的服务器是nginx，我使用adodb5来管理与Oracle的连接。
这个db查询在像SQLDevelopper这样的SQL软件中返回行，但我不知道如何使它在我的示例中工作。
$sql = "SELECT geom_object FROM geom_table";
鉴于另一项请求有效：
$sql = "SELECT id FROM geom_table";
我的连接代码是正确的，因为我的所有查询都返回一些数据，但涉及SDO_GEOMETRY的数据除外。
include ("adodb5/adodb-exceptions.inc.php");
浏览 1提问于2014-05-02得票数 1
回答已采纳
3回答
我有两个查询，我想合并成1个结果(也许是2个)。
我所拥有的：
表records
id | action
我想要结果：
最后添加行的3行的
大多数使用操作msg的3行的optGroup
所以，我试过：
但是当我试图通过服务器端ASP页面显示时：
sql = "SELECT TOP 3 [action],COUNT([id]) as pocet " & vbcrlf &_
"FROM [IT].[dbo].[records] " & vbcrlf &_
"GROUP BY [a
浏览 3提问于2014-11-25得票数 1
回答已采纳
因此，我有一个access数据库，其中包含多个表，其中存储了公司的数据。我设计了几个查询以获取一些信息。
从Excel中，我使用ADO连接连接到Access数据库，并提取存储的查询。我已经做了好几次了，而且效果很好。但是我的一个查询没有返回任何结果:记录集返回“EOF或BOF为真”。
当我在ACCESS中打开查询时，ACCESS会提示我输入参数"GICS_SUB_INDUSTRY_NAME"，如果输入参数，它确实会返回一个带有值的表。因此，该查询在访问方面运行良好，但无法从Excel中获得。
下面是查询的SQL语句：
PARAMETERS GICS_SUB_INDUSTRY_N
浏览 3提问于2015-11-30得票数 0
1回答
是否曾经遇到过这样的问题:从一个典型的ASP页面中的SQL查询返回分部结果，但是没有错误？
我遇到这样一种情况:页面上的特定查询(整个系统中的许多查询之一)每次运行时都返回不同的行数，并且总是小于“正确”的，这是直接在服务器上运行SQL所确定的。
我认为这可能与连接超时有关(因为这是在一个长期运行的查询中发生的，而且我的时间显示它非常接近超时)，但我没有收到超时错误。相反，据我所知，它不会导致任何错误，并返回一个有效的DataSet，然后代码循环起来构建结果表。
由于没有迹象表明发生了错误，因此没有迹象表明数据不完整，这意味着用户不能再信任该报告。通常，在这个系统中，对于“大型”查询，SQL超
浏览 2提问于2012-07-20得票数 2
回答已采纳
1回答
我正在尝试使用VBA连接到MS数据库和ADODB。当我运行一个查询时，我总是得到-1，应该是1。我使用*.uld测试文件检查连接，并找到OK。请帮帮忙。
Private Sub Form_Load()
Dim sql As String
Dim recdData As New ADODB.Recordset
Dim sirb As String
sirb = "12345"
sql = "SELECT * FROM sirb_registration WHERE sirb = '" & sirb &
浏览 3提问于2021-04-15得票数 1
回答已采纳
1回答
我使用这段代码列出编号ASC和null值，这些值列在ms sql中的值之后：
ORDER BY -ur.sira_no DESC
但是如果我使用两个带有的select查询“UNION”，并且比我的查询更不起作用。
误差
ORDER BY items must appear in the select list if the statement contains a UNION, INTERSECT or EXCEPT operator.
我们如何使用UNION在数字之后排序null值？
浏览 3提问于2019-09-28得票数 0
回答已采纳
2回答
我有一个excel电子表格，我正在尝试对其执行SQL查询。我得到“一个或多个所需参数没有值”，所以我认为这是我的查询中的一个问题。我可以执行类似"SELECT * FROM Employee$A2:A4“之类的查询，但是当我使用名称(即名称、title...etc，甚至使用泛型列引用(如F1) )引用特定列时，我会得到”一个或多个所需参数没有给定值“。
这是我的密码：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
strFile = ThisWorkbook.FullName
strCon = "Provider=M
浏览 4提问于2019-10-25得票数 0
回答已采纳
1回答
同步代码反馈
、、、
我希望得到一些关于我正在设计的类模块的输入，以抽象出在VBA中使用异步查询的样板。cQueryable支持同步和异步查询。因此，您可以执行类似于调用包来填充临时表的操作。这将是同步的，因为您希望在执行select查询之前完成这一操作。然后，您将异步地对每个临时表执行select查询。
这段代码实际上只是抽象出ADODB库中的许多功能。我试图将我的属性和方法命名为类似于该库中的对象在可能的情况下使用的东西。我的connectionString属性的命名类似于ADODB.Connection对象中的相同属性。我的CreateParam方法的命名类似于ADODB.Command对象的createPa
浏览 0提问于2020-08-17得票数 7
这与中的问题不同
下面的代码行触发：
微软查询超时在30秒后结束。
代码：
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = conn.Execute(WOString)
我的问题是，如何延长Execute方法的超时时间？Application.ODBCTimeout = 100或conn.CommandTimeout = 100不起作用。
如果它有任何重要性，我使用标准连接字符串(但连接工作没有任何问题)：
Driver={SQL Server};Server=myServerAddress;Database
浏览 1提问于2020-12-03得票数 0
我正在使用VBA的ADODB connection类通过VBA对SQL Server运行更新查询。在SQL Server中，查询返回受影响的行，可以在VBA中通过ADODB命令类访问这些行。
但是，我不知道如何返回受影响的语句的多个记录的数组。
我使用的是示例代码：
Dim ADODBconn As ADODB.Connection
Dim rsRead As New ADODB.Recordset
Dim Rslt_Count As Long
'Set Up Connection and begin SQL Transaction
Set ADODBconn = CurrentPr
浏览 14提问于2013-01-16得票数 2
回答已采纳
1回答
我正在尝试使用Excel中的VBA查询SQL数据库，我得到了下面的代码作为起点，这是很棒的，但我不知道编写连接字符串的语法，到目前为止还没有找到它。希望你们能帮我。
Dim cn as new ADODB.Connection
Dim rs as new ADODB.Recordset
Cn.ConnectionString = “your connection string”
Cn.Open
Rs.Open “query like SELECT * FROM MYTABLE etc.”, cn
Range(“A1”).CopyFromRecordset rs
Rs.close
Cn.cl
浏览 5提问于2014-10-29得票数 0
回答已采纳
我想写一个sql查询，它从excel表格的单元格中接受输入。
例如，如果数据库中有3列，如EmpID、EmpName、Salary、Address，我想连接到sql server数据库，并使用excel工作表中的一个按钮更新数据库。
我写了一个这样的代码
Dim rst As ADODB.Recordset
Dim Cnxn As ADODB.Connection
Dim strCnxn As String
Dim strSQL As String
' Open connection
Set Cnxn = New ADODB.Connection
strCnxn = "Pro
浏览 4提问于2013-03-19得票数 0
下面是我想通过VBA中的SQL查询操作的excel表。
请找到我的VBA代码。
Sub SQL()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
strFile = ThisWorkbook.FullName
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";
浏览 1提问于2017-10-31得票数 5
回答已采纳
1回答
我在64位操作系统上使用Windows 7专业版。我正在使用Excel中的VBA和SysWOW64中的MySQL ODBC 5.2ANSI驱动程序连接，以便在MySQL Workbench 6.3数据库中连接和运行查询。我的宏会运行一系列查询。它一直工作得很好，直到有一天一些查询停止工作。我打印每个查询，当我手动将查询复制并粘贴到MySQL工作台数据库中时，查询运行得很好；数据肯定在那里。随着时间的推移，越来越多的查询停止工作。
也就是说，出现问题的第一天，一些查询没有返回任何结果。该宏运行大约30个查询。现在，大约有7个查询不起作用。
我不明白为什么有些查询会返回结果，而另一些则不会。当我调
浏览 20提问于2018-01-26得票数 1
回答已采纳
尝试基于优先级更新子优先级，如果优先级为1，则所有子优先级应基于优先级递增+1，在更新子优先级时也需要顺序
我在MySql中尝试了下面的查询，它按预期工作，但同样的查询在SQL Server中不起作用；我在THEN条件中使用的表达式在SQL Server中不起作用。
SET @p1=0;
SET @p2=0;
SET @P3=0;
UPDATE line_distro_dtl
SET dc_sub_priority =
CASE
WHEN (dc_priority =1) THEN (select @p1 := @p1 + 1)
WHEN (dc
浏览 0提问于2021-03-04得票数 0
我不明白为什么这个VBA不能在Teradata中运行查询并将结果粘贴到excel电子表格中
这是我得到的错误："MicrosoftDBNETLIBSQl服务器不存在或访问被拒绝。“
我不相信这是因为我的访问被拒绝了，因为当我在代码中添加我的用户名和密码时，它仍然不起作用。
代码：
Sub sql_query()
Dim Conn As New ADODB.Connection
Dim recset As New ADODB.Recordset
Dim sqlQry As String, sConnect As String
sqlQry = "SEL * FROM entp
浏览 0提问于2019-09-04得票数 0
我有这个VBA代码，它在成功连接后发出SQL Server查询，但查询不返回任何记录(例如，-1) Function invested_funds() As Integer
Dim c As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connectionstring As String
Dim sql As String
connectionstring = "Provider=SQLOLEDB;Data Source=DESKTOP-2TTG3GQ\SQLEXPRESS;" & _
浏览 26提问于2020-12-02得票数 2
2回答
使用两个日期的SQL查询
、、、、
当包含单个日期时，我可以运行下面的SQL查询。当我引入第二个日期时，不会返回任何结果。
我也使用了DD/MM/YY格式，但只有一个日期。
我正在使用Office 2010并连接到Oracle SQL数据库。
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim ConnectionString As String
Dim StrQuery As String
ConnectionString = SQLConnect 'This is a function that resolves to the
浏览 0提问于2020-05-19得票数 2
我需要使用JavaScript查找许多Oracle视图的列信息。我试过的是：
var conObj = new ActiveXObject('ADODB.Connection');
conObj.Open(conString);
sql = "DESC MyView";
rs1 = new ActiveXObject("ADODB.Recordset");
var commd = new ActiveXObject('ADODB.Command');
commd.ActiveConnection = con
浏览 0提问于2014-06-25得票数 1
回答已采纳
我正在创建一个提要墙，两个服务将帖子保存到同一个数据库表中。
一种投递服务被使用的方式比另一种更多，所以在墙上，我想把每一项服务限制在头版上的25个最新帖子(总共50条)上，以保证平等的代表性。
这是我本来有的，没有晚上的帖子：
$sql = "SELECT * FROM posts";
$sql .= " WHERE disq = 0";
$sql .= " AND approved = 1";
$sql .= " ORDER BY created_at DESC";
$sql .= " LIMIT 50";
但
浏览 3提问于2015-02-09得票数 2
回答已采纳
我需要从Sheet1列A(每天更改的行数-可以超过7,000)和Sheet2列B(也是动态的-每天更改)中获取值，将这些列中的值放入STRING类型的数组中(可以是两个数组，只要我可以在查询中使用它们)，并在vba query WHERE中使用该数组。在('array')中运行。
我尝试过将值放入数组的不同方法，但都失败了，因为当我需要字符串类型(在查询中工作)时，许多解决方案都需要使用array作为Variant。一种有效的方法是将值(逗号分隔)放入另一个工作表的一个单元格中，并在查询中使用该cell.value。但这种方法只适用于3000或更少的总行。我尝试添加更多-比如c
浏览 2提问于2021-03-26得票数 2
2回答
加速页面加载
、、、
我有一个2D数组，其中填充了来自数据库的数据，然后在while循环中与另一个sql查询一起使用。对于while循环中的每一项，我使用For循环检查2d数组中的某些项。
我如何才能加快速度，因为while循环中的项目在1000 - 2000个项目内，并且需要3-4秒来加载网页。
这是我的二维数组-
'MultiDimensional Array
Dim permissionsArray()
Dim permissionsCount
connectionstring = obj_ADO.getconnectionstring
Increment = 1
浏览 2提问于2011-07-13得票数 0
回答已采纳
1回答
使用参数和检索受影响计数的记录
、、、、
使用MS Access完成此项目。
我试图通过消除对ADODB.Command对象的需求来简化ADODB代码。有两个要求，即需要使用参数和需要检索受影响的记录(用于验证SQL是否正确执行)。
在代码块中记录的一篇文章中提到了我试图使用的语法。
{连接对象}.{查询名称}{参数1，.，参数n，记录集对象}
cn.TEST_ADODB_Connection 204，日期&“”& Time()，rs
Sub TEST_ADODB_Connection()
'https://technet.microsoft.com/en-us/library/aa496035(v=sql.
浏览 4提问于2016-12-22得票数 1
回答已采纳
2回答
Sql命令混淆
、、
需要一些SQL建议
我正在使用一个名为WinCC的程序，在这个程序中我使用了Vb脚本语言和SQL。
我有一个SQL表，其中有3列: TagName、Value和Date。
我需要显示所选月份中每一天的每个TagName的值。
下面的SQL查询为我提供了一个月中每一天相同的值。当我一个月中的每一天都有不同的值时。
Tags(0) = "Tag1"
Tags(1) = "Tag2"
TempTags(0) = "Temp1"
TempTags(1) = "Temp2"
ConnectionString = "Provi
浏览 1提问于2015-08-21得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
