VB6,accessで勉強しています。VBからアクセスファイルを読み込んで
sqlで指定したレコードだけ抽出したいのですが、sql実行のところで
「オブジェクトが閉じられている場合は、操作は許可されません」
とエラーが出て出来ません。ご教授お願いします。
Dim cn As New ADODB.Connection
Dim rec As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=スケジュール表.mdb"
Set rec = cn.Execu("SELECT * FROM スケジュール WHERE 日付 = nowdate")
Do Until rec.EOF
FlexGrid.TextMatrix(i, 0) = rec("開始")
FlexGrid.TextMatrix(i, 1) = rec("終了")
i = i + 1
rec.MoveNext
Loop
rec.Close: Set rec = Nothing
cn.Close: Set cn = Nothing
No.1ベストアンサー
- 回答日時:
こんにゃくは。
>>「オブジェクトが閉じられている場合は、操作は許可されません」
何か抜けてますね。
「sql実行のところで」
って事なので、エラー場所は、それ以前になりますよね。
で、さらに定義が間違えていたら間違いって出るので
エラー箇所は
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=スケジュール表.mdb"
Set rec = cn.Execu("SELECT * FROM スケジュール WHERE 日付 = nowdate")
ここまでの間。
さて。。。大体の流れ?ですが
・変数定義
↓
・接続確立
↓
・テーブルオープン
↓
・テーブル操作
↓
・テーブルクローズ
↓
・接続終了
。。。こんな感じだっけ。。。?
で、コレに当てはめると
・接続確立
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=スケジュール表.mdb"
・テーブル操作
Set rec = cn.Execu("SELECT * FROM スケジュール WHERE 日付 = nowdate")
ということで、テーブルのオープンが抜けてます。
操作するテーブルを開いてやってください。
下記アドレス参照。
http://homepage2.nifty.com/inform/vbdb/ado_acces …
この回答への補足
rec.Open "スケジュール", cn, adOpenKeyset, adLockOptimistic
で
テーブルオープンしてみましたが、今度は「この操作を実行するために接続を使用できません。このコンテキストで閉じられているか、無効です」とのエラーが出てしまいました・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB2005でmdbに接続するには?
-
【C#】textBoxの指定行のデータ...
-
一番右のスペース以降の文字列...
-
ADOでNullフィールドの抽出
-
accessでフィールド追加のあと...
-
エクセルの列一括書き込み
-
pictureboxの名前を変数で設定...
-
sql文
-
CurrentRecord について
-
構造体配列の一部初期化!!!
-
配列の中の最大値とそのインデ...
-
DataGridViewに複数テーブルの...
-
SQLで複数のテーブルと結合した...
-
コードの簡略化 VBA
-
★クリスタルレポートの元になる...
-
DataSetの複数テーブルをひとつ...
-
COBOLのINVALID KEYが理解でき...
-
VBAで配列引数を値渡しできない...
-
VBAコンボボックスの内容が反映...
-
VBで組み合わせのプログラム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】コンボボックスにデータ...
-
UPDATE時にSETしたい日本語文字...
-
初心者ですデータベースの形式 ...
-
名前'dbOpenDynaset'は宣言され...
-
データベースの接続ができない
-
複数SQL発行について
-
VB6.0とaccessのDBを接続する
-
OracleDataReaderについて…
-
VB6.0でSQLServerへ・・・Recor...
-
ListviewにDB内容を表示し方に...
-
ExcelVBAでのAccessデータベー...
-
vb.netでデータベース(Access)...
-
ASP.NET(VB.NET)でADO.NETを使...
-
VB6.0でアクセス2000...
-
レンタルサーバでのDB接続の件
-
エクセルVBAでアクセスのテーブ...
-
VBでAccessにSQL文を実行して値...
-
ASPでoracleの接続について教え...
-
MSFlexGridでデータの追加の方...
-
VBSでADOを使ってaccessのテー...
おすすめ情報