Name
コマンド名設定
文法
Commandオブジェクト.Name
パラメータ
コマンド名
機能説明
コマンドに名前を設定
使用例
<![CDATA[
<%
Dim objConn, objCmd, objRS, i
'データベース接続
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "test"
'コマンドオブジェクト作成
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = objConn
objCmd.Name = "testname"
objCmd.ActiveConnection = objConn
objCmd.CommandText = "select * from test"
Set objRS = objCmd.Execute
Do Until objRS.EOF
Response.Write "<hr>"
For i = 0 to objRS.Fields.Count - 1
Response.Write "<br>" & objRS.Fields(i)
Next
objRS.MoveNext
Loop
'オブジェクト開放
objRS.Close
objConn.Close
Set objCmd = Nothing
Set objRS = Nothing
Set objConn = Nothing
%>
]]>
Topへ