使用例
<%
Dim objConn, objCmd, objPrm, objRs, age, i
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = objConn
'パラメータクエリ作成
objCmd.CommandText = "select * from test where age < ?"
'パラメータ設定
age = 18
Set objPrm = objCmd.CreateParameter("?", adUnsignedInt, 1, 2, age)
objPrm.Attributes = adParamSigned
'パラメータ属性表示
Select Case objPrm.Attributes
Case adParamSigned
strAttr = "符号付き"
Case adParamNullable
strAttr = "Null"
Case adParamLong
strAttr = "長バイナリ型"
Case Else
strAttr = "属性の設定が不正です"
End Select
Response.Write "属性 : " & strAttr &
'パラメータをCommandオブジェクトに追加し、クエリを実行
objCmd.Parameters.Append objPrm
Set objRs = objCmd.Execute
'実行結果を表示
If Not objRs.EOF Then
%>
<% For i = 0 to objRs.Fields.Count - 1 %>
<%=objRsFields(i).Name%>
<%Next%>
<% Do Until objRs.EOF
For i = 0 to objRs.Fields.Count - 1%>
<%=objRs.Fields(i).Value%>
<%Next%>
<% objRs.MoveNext
Loop
Else
Response.Write "データがありません"
End If
Set objRs = Nothing
Set objPrm = Nothing
Set objCmd = Nothing
objConn.Close
Set objConn
%>