首頁(yè) 猿問 VBA，ADO.Connectio...

VBA，ADO.Connection和查詢參數(shù)

SQL Server

一只名叫tom的貓 2019-09-05 10:05:12

VBA，ADO.Connection和查詢參數(shù)我有excel VBA腳本：Set cоnn = CreateObject("ADODB.Connection")conn.Open "report"Set rs = conn.Execute("select * from table" )腳本工作正常，但我想添加參數(shù)。例如“where（parentid = myparam）”，其中myparam在查詢字符串外設(shè)置。我該怎么做？當(dāng)然我可以修改查詢字符串，但我認(rèn)為這不是很明智。

查看完整描述

2 回答

慕哥6287543

TA貢獻(xiàn)1831條經(jīng)驗(yàn) 獲得超10個(gè)贊

您需要使用可以添加參數(shù)的ADODB.Command對(duì)象。這基本上就是這樣的

Sub adotest()

Dim Cn As ADODB.Connection

Dim Cm As ADODB.Command

Dim Pm As ADODB.Parameter

Dim Rs as ADODB.Recordset

Set Cn = New ADODB.Connection

Cn.Open "mystring"

Set Cm = New ADODB.Command

With Cm

.ActiveConnection = Cn

.CommandText = "SELECT * FROM table WHERE parentid=?;"

.CommandType = adCmdText

Set Pm = .CreateParameter("parentid", adNumeric, adParamInput)

Pm.Value = 1

.Parameters.Append Pm

Set Rs = .Execute

End With

End Sub

CommandText中的問號(hào)是參數(shù)的占位符。我相信，但我不是肯定的，你追加參數(shù)的順序必須與問號(hào)的順序相匹配（當(dāng)你有多個(gè)時(shí)）。不要被愚弄，參數(shù)被命名為“parentid”，因?yàn)槲也徽J(rèn)為ADO關(guān)心除了識(shí)別之外的名稱。

反對(duì) 回復(fù) 2019-09-07