掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ODBC経由のデータベース参照 (ID:100349)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
【開発環境】 Windows XP Pro SP3 / Visual Basic 6.0 SP6 上記の環境で、システムDSNに設定したODBC経由でデータベースの操作を行っております。 以下のコードで接続をしています。 Dim objCon As ADODB.Connection Dim objRst As ADODB.Recordset Dim strSQL As String Dim lngRows As Long Set objCon = New ADODB.Connection objCon.Open "Provider・・・" Set objRst = CreateObject("ADODB.Recordset") strSQL = "SELECT COUNT(*) FROM usr_tbl" objRst.Open strSQL, objCon lngRows = objRst(0) strSQL = "SELECT usr_id,usr_pwd FROM usr_tbl" strWhere = " WHERE usr_id LIKE 'a'" objRst.Open strSQL & strWhere, objCon とすると 実行時エラー 3021 「BOF と EOF のいずれかが True になっているか、または現在のレコードが削除されています。要求された操作には、現在のレコードが必要です。」 とエラーを受けます。 ところが、strWhereを含めずに実行した場合、つまり「objRst.Open "SELECT usr_id,usr_pwd FROM usr_tbl", objCon」と実行するとエラーは出ません。 エラーの場合、正常の場合ともに、lngRows（レコード件数）は取得できています。 原因が分からずにいます。ご教授ください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.