在 VBScript 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

Do While Not rs.EOF
    Debug.Print rs("id"), rs("name")
    rs.MoveNext
Loop

Debug.Print cmd.CommandText

SELECT * FROM mytable WHERE id = ? AND name = ?

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