教えてください。
Vbscript初心者です。
SQLでデータを取得した後の構文で以下のような記述があります。
もしレコードが存在しなかった場合に
Response.write(”レコードが存在しません")と表示したいです。
IIf Rs.RecordCount=0 Then
Response.write("レコードが存在しません")
End If
のような書き方をどこかに入れようとしているのですが、以下のようなメッセージが表示されてしまいます。どのように書けば宜しいでしょうか?
ADODB.Field エラー '800a0bcd'
BOF と EOF のいずれかが True になっているか、または現在のレコードが削除されています。要求された操作には、現在のレコードが必要です。
よろしくお願い致します。
****************************
SQL文や接続の記述
<%
Do While not Rs.EOF = True
Response.Write・・・
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Con.Close
Set Con = Nothing
%>
**************************
No.1ベストアンサー
- 回答日時:
Recordsetの中にデータがないのにデータ数をとりだそうとしてエラーになってるんじゃないかな?
データがない、という判定の仕方をもう一度検討してみるのがよいかも。
http://msdn.microsoft.com/ja-jp/library/cc364264 …
「Recordset オブジェクトを開くと、カレント レコードが最初のレコードの位置に移動して、BOF と EOF プロパティの設定値が False になります。レコードが存在しない場合は、BOF プロパティおよび EOF プロパティの設定値が True になります。」
ということなので、BOFもEOFもTrueだったらデータがない、とするのがいいのかな。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【お題】甲子園での思い出の残し方
「球場の砂を持って帰る」はもう古いと思った高校球児が、甲子園で負けた際に、思い出に残そうと思って行ったこと
-
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
6
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
7
ADOでアクセスのレコードに複数のフィルタをかけるには?
Access(アクセス)
-
8
クエリ表示と、ADOで抽出したレコードセットが違う
Access(アクセス)
-
9
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
10
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
13
ACCESS ADOでupdateが効かない
その他(データベース)
-
14
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
15
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
16
VBAでアクセスDBからデータの取得について
Visual Basic(VBA)
-
17
ADOで現在のレコードの次のレコードの値も取得
Access(アクセス)
-
18
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
19
VBS実行時エラー オブジェクトがありません 回避方法について
Visual Basic(VBA)
-
20
実行時エラー3001「引数が間違った型、許容範囲外、または競合しています。」
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
差し込み印刷のレコード数について
-
アクセスでレポートの1印刷内...
-
ファイル書込みで一行もしくは...
-
カレントレコードが無い事を判...
-
レコードセット(ADO.Recordset)...
-
レコードが存在しなかった場合
-
固有レコード識別子の選択とは
-
ACCESSで「16389予約済みエラー...
-
ADO VBA 実行時エラー3021
-
VB.netの戻り値が返ってこない
-
[VBA] ADOの Clone と AddNew
-
COBOLでのランダムアクセス
-
DataGridViewの内容をDBに反映...
-
DataGridViewの、選択されてい...
-
Access でレコードセレクタが押...
-
データセットのレコード更新が...
-
ACCESS VBA テーブルデータに...
-
ワードの差込印刷で教えて下さ...
-
ADODCとデータグリッドを連動さ...
-
VB6のRDOについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ADO VBA 実行時エラー3021
-
ファイル書込みで一行もしくは...
-
レコードが存在しなかった場合
-
カレントレコードが無い事を判...
-
アクセスでレポートの1印刷内...
-
JSPのNULLレコード表示について...
-
DataGridViewの、選択されてい...
-
固有レコード識別子の選択とは
-
Access でレコードセレクタが押...
-
データセットのレコード更新が...
-
レコードセット(ADO.Recordset)...
-
[VBA] ADOの Clone と AddNew
-
DataGridViewの内容をDBに反映...
-
ヘッダレコードとトレーラレコ...
-
DataGridViewにてセル以外をク...
-
差し込み印刷のレコード数について
-
サブレンジ分割されたNDB(富士...
-
ACCESSで大量の更新を行うと「...
-
Access を×ボタンで閉じ...
-
[VB6]プログレスバーコントロー...
おすすめ情報