EOF
カレントレコードが最後のレコードより後か判定
文法
Recordsetオブジェクト.EOF
機能説明
カレントレコードが最後のレコードより後か判定
後の場合「True」それ以外は「False」取得
使用例
<%
Dim objConn, objRs
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "sample"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = adOpenDynamic
objRs.Open "select * from test"
Do until objRs.EOF
Response.Write objRS("name") & "
"
obj.RS.MoveNext
Loop
If objRS.EOF Then
ResponseWrite "レコードの最後"
End If
'オブジェクトを閉じる
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
Topへ