在 VBScript ADODB.Command 中查看参数化查询
在 VBScript ADODB.Command 中查看参数化查询，可以使用以下方法：
- 使用 ADODB.Command 对象创建一个参数化查询
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb"
cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * FROM mytable WHERE id = ? AND name = ?"
Dim param1 As ADODB.Parameter
Set param1 = cmd.CreateParameter("id", adInteger, adParamInput, , 1)
cmd.Parameters.Append param1
Dim param2 As ADODB.Parameter
Set param2 = cmd.CreateParameter("name", adVarChar, adParamInput, 50, "John")
cmd.Parameters.Append param2
Dim rs As ADODB.Recordset
Set rs = cmd.Execute- 使用 ADODB.Recordset 对象查看查询结果
Do While Not rs.EOF
Debug.Print rs("id"), rs("name")
rs.MoveNext
Loop- 使用 ADODB.Command 对象查看参数化查询的 SQL 语句
Debug.Print cmd.CommandText输出结果：
SELECT * FROM mytable WHERE id = ? AND name = ?- 使用 ADODB.Command 对象查看参数化查询的参数列表
Dim param As ADODB.Parameter
For Each param In cmd.Parameters
Debug.Print param.Name, param.Type, param.Direction, param.Value
Next输出结果：
id 17 adParamInput 1
name 202 adParamInput John在这个例子中，我们使用 ADODB.Command 对象创建了一个参数化查询，其中包含两个参数：id 和 name。我们可以使用 ADODB.Recordset 对象查看查询结果，也可以使用 ADODB.Command 对象查看参数化查询的 SQL 语句和参数列表。
相关·内容
2回答
使用refcursor通过VBA调用Oracle存储过程
sql、excel、oracle、vba、stored-procedures
我在Oracle中有存储过程：
create or replace procedure testproc (articlenr in number, storenr in number, cweek in varchar, prc out sys_refcursor)
is begin
open prc for
select * from weekly_revenues
where
article = articlenr
and period = cweek
and store = storenr
;
end;
我可以用下面的SQL代码很好地调用这个函数：
variable
浏览 13提问于2017-03-02得票数 0
2回答
在Access中使用SQL Server存储过程的输出参数
vba、sql-server-2008、ms-access、stored-procedures、output-parameter
在从Access 2013 VBA执行存储过程之后，我正在尝试从SQL Server 2008中的存储过程获取输出变量(新的identity列)。我不能完全理解所有adodb的东西，我已经尝试了不同文章中的一些东西，但都没有用。这就是我现在所处的位置。
存储过程：
PROCEDURE [proc_NewClient]
@Type INT,
@PhoneIntakeID INT,
@ClientID INT = NULL,
@NewPSID INT = null OUTPUT (2 possible ways to call the proc, one does
浏览 29提问于2015-12-08得票数 3
回答已采纳
4回答
Excel VBA执行Server存储过程-结果集抛出错误3704
sql、sql-server、excel、vba、stored-procedures
我正在尝试从Excel执行Server存储过程。该过程将行返回到结果集对象中。但是，在运行代码时，它会引发一个错误：
当对象关闭时，不允许进行3704操作
注意：
数据库连接没有问题，因为运行在同一个连接对象上的Select查询运行良好。
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter
Dim rst As New ADODB.Recordset
Set cn = New ADODB.Connection
Set cmd =
浏览 6提问于2013-08-28得票数 0
1回答
使用两个参数从数据库中获取记录
vba、excel
3天来，我一直在尝试使用带有两个参数的存储过程从sql Server检索数据。我一直收到错误3704。这都是关于记录集的，我真的不知道更多。
有趣的是，这个` `vba代码不需要参数就可以工作。
Public Sub getRecords()
Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim par As String
Dim WSP1 As Worksheet
Set con = New ADODB.Connection
Set cmd = New ADODB.Comman
浏览 1提问于2016-02-09得票数 0
1回答
Excel VBA存储过程参数不工作？
vba、excel
我在这里挣扎着用一个带有VBA参数的存储过程。下面的代码没有参数工作良好，但参数不起作用。
我的代码：
Sub CopyDataFromDatabase()
Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Fields As ADODB.Field
Dim Cmd As ADODB.Command
Set Conn = New ADODB.Connection
Set Cmd = New ADODB.Command
Set Rs = New ADODB.Recordset
Conn.Open "My connec
浏览 2提问于2015-04-08得票数 0
回答已采纳
2回答
VBA ADO SQL参数太少
sql、vba、excel-2010
我以前问过这个问题，但我仍然卡住了，无法将参数放入SQL查询中。
Public Function testInsert(tableName As String, dType As String, role As String,
FiscalYear As String)
Dim cmd As ADODB.Command
Dim conn As ADODB.connection
Dim prm As ADODB.Parameter
Dim connectionString As String
Dim SQL As String
Set conn = New ADODB
浏览 8提问于2018-07-27得票数 0
回答已采纳
1回答
Access中的SQL存储过程超时
sql-server、ms-access、stored-procedures、vba
以下SP在从Access VBA执行时超时。当从管理控制台执行时，它工作正常。如果相关，服务器确实具有较高的ping时间：
Dim cnn As ADODB.Connection
Dim cmd As New ADODB.Command, rs As New ADODB.Recordset, param As New ADODB.Parameter
Dim fld As ADODB.Field
Dim stMessage As String
Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER=SQL Serve
浏览 0提问于2013-01-21得票数 3
回答已采纳
1回答
运行存储过程并从VBA返回值
sql、sql-server-2008、excel、vba
我希望将参数传递到SQL Server2008中的存储过程中，并希望将结果存储在ADODB.Recordset中
目前，我有以下内容：
Public Sub UpdateWithStoredProcedure()
Dim cmd As New ADODB.Command
Dim conn As ADODB.Connection
Dim prm As ADODB.Parameter
Dim strConn As String
Dim strSQL As String
strConn = "P
浏览 0提问于2011-11-24得票数 8
回答已采纳
1回答
从Excel宏向存储过程传递参数失败
sql-server、excel、stored-procedures、parameter-passing
我在SQL Server中有一个无法编辑的存储过程。要在SQL Server中执行，我必须传递一个参数，这是必需的。如果我使用'1'，过程将在打印模式下运行，而实际过程将为'0‘运行。我写了下面的代码，它没有错误地执行，并捕获了存储过程成功运行但在打印模式下的日志。
请告诉我传递参数'0‘需要做哪些更改
Sub RunProc()
Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set c
浏览 2提问于2015-08-20得票数 2
1回答
使用包含撇号的vba字符串变量运行select命令
sql、sql-server、excel、vba
使用VBA，我试图从SQL表中选择数据，但是遇到了一个问题，因为我正在查找的客户名称包含一个撇号(McDonald's)。为了避免这个问题，我尝试将customerName设置为参数，而不是使用替换函数。
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim cmd As New ADODB.Command
customerName = .Range("customerName")
queryCustomers = "select * fro
浏览 0提问于2019-07-15得票数 0
回答已采纳
1回答
当命令类型为adCmdText时，是否可以使用命名参数？
sql-server、asp-classic、vbscript、ado、named-parameters
我试图通过Adodb.Command在以下查询中使用命名参数，但没有成功。
Select * From mytable Where col1 = Lower(@param1) And col2 = Upper(@param2) And col3 = @param1
我用的代码是这样的。
Dim cmd
Set cmd = Server.CreateObject("Adodb.Command")
cmd.NamedParameters = True
cmd.CommandType = adCmdText
cmd.CommandText = "Select * From m
浏览 1提问于2012-08-02得票数 2
2回答
使用Excel向存储过程传递参数
vba、excel、stored-procedures、parameter-passing
这似乎是一个常见的问题，但我无法找到任何示例来处理我的代码。
对不起，如果这是微不足道的，因为我是一个DBA而不是一个开发人员。
我有一个存储过程，它需要两个参数LaborRate和EndDate。LaborRate是一种十进制数据类型，它将从工作表BOMSum和单元格G1中获取其变量。EndDate是一种日期数据类型，它将从工作表BOMSum和单元格G2中获取其变量。我所有的尝试都失败了，即使是通过本网站上的教程和其他建议。
下面是我最初使用的非常简单的代码，它实际上运行正确，但运行时没有指定任何参数：
Sub Execute_SP()
Dim conn As ADODB.Connectio
浏览 4提问于2014-09-24得票数 0
回答已采纳
1回答
数据类型0x23是不推荐使用的大型对象( LOB )，但被标记为输出参数。
stored-procedures、adodb、lob、varcharmax
我正在尝试从一个varchar(max)输出param中接收一个stored procedure输出，但是我得到了上面的错误，即在vb.net中执行SP时的Data type 0x23 is a deprecated large object, or LOB, but is marked as output parameter
我尝试过使用SQLNCLI11连接字符串，没有运气，我尝试过设置Datatypecompatibility=80，没有运气
提前谢谢。
这是我的密码：
Private Sub Button1_Click(sender As Object, e As EventArgs
浏览 2提问于2016-06-23得票数 0
回答已采纳
1回答
从VBA调用存储过程
sql-server、excel、vba
我对SQL和VBA非常陌生，我在Server中编写了以下查询：
ALTER PROCEDURE SP_insert_search_archive
@IP_Address VARCHAR(20),
@DT VARCHAR(30),
@search_word VARCHAR(50),
@search_time TIME
AS
INSERT INTO Search_Archive
values (@IP_Address, @DT, @search_word, @search_time);
现在，我想在VBA (Excel)中执行这个存储过程：
D
浏览 4提问于2019-09-14得票数 0
1回答
VBA Excel SQL Server插入查询
sql、sql-server、vba、excel
我在Server插入查询方面遇到了问题。
首先，以下是我正在努力实现的目标：
我在excel工作表中有一个产品列表，我想将其导出到中。
下面是我尝试过的代码：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim Client As String
Set cn = New ADODB.Connection
Set cmd = New ADODB.Command
//Worksheets("Config").cells(1, "B").Value co
浏览 0提问于2014-05-20得票数 0
回答已采纳
3回答
参数化查询asp经典缺失操作数错误
asp-classic、parameters、parameterized
我正在尝试让一个参数化的查询在asp经典中工作。这里的任何帮助都是错误的
Microsoft提供程序用于Visual错误“80040e14”缺少操作数。/portal/jobportal/getaddress1.asp，第141行
function paramQuery()
code = ucase(request.querystring("code"))
stype = request.querystring("type")
cAddressType = request.querystring("caddresstype")
Se
浏览 3提问于2012-07-04得票数 1
回答已采纳
2回答
存储过程中的VBA传递日期问题
sql、vba、excel、stored-procedures
我很难使用SQL存储过程将日期值传递给DateTime值。在Microsoft SQL Server的MyDb中，@DateTime参数采用日期时间格式。当我运行下面的子例程时，我得到一个错误：Parameter type not supported.我认为这个错误与adDBTimeStamp参数类型有关。你知道如何解决这个问题吗？
Public Sub AddDateTime
Dim DateTime as Date
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim param as ADODB.Parameter
Dim
浏览 0提问于2014-05-07得票数 2
4回答
如何从SQL Server存储过程返回值并在Access VBA中使用它们
sql-server、vba、sql-server-2008、ms-access、stored-procedures
我已经在SQL Server中设置了一个工作正常的存储过程。我现在可以从VBA调用它，但希望返回一个值以了解是否有任何错误等。我的SP中的最后一个参数被设置为输出：
@DataSetID int = 0,
@Destination char(1)='-',
@errStatusOK bit OUTPUT
下面是我调用SP的VBA，但现在它不起作用了，在添加了新参数之后，我不确定哪里出错了，我一直得到3708 - Parameter object is improperly defined. Inconsistent or incomplete information was p
浏览 1提问于2012-09-13得票数 10
回答已采纳
2回答
通过VBA和ADO调用VBA函数
oracle、vba、plsql、ado
我在通过VBA调用Oracle服务器上的函数时遇到了问题。当我尝试不带参数地调用函数时。没关系的。但是，当我用参数调用函数时。我得到错误(MicrosoftInvalid参数类型)有什么想法吗？这是vba代码和plsql (我将基本函数用于测试)
Vba
Private Sub test()
Dim Oracon As ADODB.Connection
Dim cmd As New ADODB.Command
Dim param1 As New ADODB.Parameter
Dim objErr As ADODB.Error
Set Oracon = CreateObject("
浏览 3提问于2015-11-09得票数 0
回答已采纳
1回答
ADODB不传入参数
sql、sql-server-2008、vba、stored-procedures、adodb
我有一个具有以下参数的SQL SP ..。
myProc(@param1 AS TINYINT, @sparam2 AS TINYINT, @param3 AS TINYINT, @param4 AS
TINYINT, @param5 AS TINYINT, @param6 AS TINYINT, @param7 AS TINYINT, @paramOut
NVARCHAR (255) OUTPUT)
我在VBA中有下面的ADODB代码..。
sVal1 = 1
sVal2 = 1
sVal3 = 1
sVal4 = 1
sVal5 = 1
sVal6 = 1
sVal7 = 1
Dim
浏览 0提问于2013-12-12得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
