Execute
コマンド実行
文法
Commandオブジェクト.Execute([RecordCount],[CmdString],[Type])
パラメータ
RecordCount : 実行結果を受け取るレコード数
CmdString : コマンド文字列
Type : コマンド種類
機能説明
CommandTextのコマンドを実行
RecordSetオブジェクトに戻り値をセット
パラメータ
| 定数 | 値 | 説明 |
|---|
| adCmdText | 1 | SQL,ストアドなど |
| adCmdTable | 2 | テーブル |
| adCmdTableDirect | 512 | テーブル |
| adCmdStoredProc | 4 | ストアド |
| adCmdUnknown | 8 | 不明(デフォルト) |
| adCmdFile | 256 | 永続化されているRecordsetのファイル |
| adExecuteNoRecords | | 戻り値がないコマンド,ストアド |
使用例
<![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.CommandText = "test"
'テーブル名指定
'タイプを指定して実行
Set objRS = objCmd.Execute( , , adCmdTable)
'データ表示
Do until objRS.EOF
Response.Write "<hr>"
For i = 0 to objRS.Fields.Count - 1
Response.Write "<br>" & objRS(i)
Next
objRS.MoveNext
Loop
'オブジェクト開放
objRS.Close
objConn.Close
Set objCmd = Nothing
Set objRS = Nothing
Set objConn = Nothing
%>
]]>
Topへ