こんにちはtmgmです。
データグリッドが表示されません。
状況としては
1.プログラムは正常に動いています。(「接続に成功しました」メッセージ、「レコード取得に成功しました」メッセージ、ともに表示されます。)
2.しかしデータグリッドには何一つ表示されません。(ツールボックスから貼り付けたままの状態です)
3.参照設定はMicrosoft ActiveX Data Objects 2.5 Library、コンポーネントはMicrosoft DataGrid Control6.0(SP5)(OLEDB)です。
どなたかお分かりになる方いらっしゃいますでしょうか?非常に困っています。
ご返答よろしくお願いします。
------------------------------------------------
Dim CONN As ADODB.Connection
'レコードセットの宣言
Dim RECO As ADODB.Recordset
'接続の宣言
Set CONN = New ADODB.Connection
'接続のプロパティ
With CONN
.ConnectionString=
"provider=Microsoft.jet.oledb.4.0;" _
& "data source=C:\TESTMDB.mdb"
.Open
End With
MsgBox "データベース接続に成功しました"
'レコードセットのプロパティ
Set RECO = New Recordset
With RECO
.ActiveConnection = CONN
.Source = "SELECT ~(省略)"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Properties("IRowsetIdentity") = True
.Open
End With
'レコードセットをデータグリッドに連結
Set D_GRID.DataSource = RECO
MsgBox "レコードセット取得に成功しました
------------------------------------------------
No.4ベストアンサー
- 回答日時:
#3の続き
SQL文のField名とグリッドのField名は一致していますか?括弧などあるとうまくいかない場合があります。
その場合は、SQL分でAS<別名>をつけグリットでも別名をfield名にするとうまきいきます。
これでだめならadodc経由でつないでみてはいかがでしょうか?
No.3
- 回答日時:
グリッドのデータソースを指定した後にグリッドの更新をしないと表示されません。
> 'レコードセットをデータグリッドに連結
>Set D_GRID.DataSource = RECO
この後に
D_GRID.Refresh
データコントロールを使用している場合には、
<データコントロール名>.Refresh
この回答への補足
ご回答ありがとうございます。
D_GRID.Refreshと記述してみたんですが、だめでした。データグリッドのCaptionプロパティとかはきちんと反映されるんですけどねぇ~
No.2
- 回答日時:
まず、SQLが正しいかどうか調べるためにDB上で実行してください。
もし、それでレコードが取得できたのならプログラムに問題があります。第二にADOコントロールで接続して表示できるか試してください。
残念ながらこのプログラムではメッセージボックスで文字が表示されたからと言って正常にレコードセットが取得できているとは確認できません。とれていなくてもでます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
都道府県穴埋めゲーム
都道府県の名前を1人1つずつ投稿してください。全ての都道府県が出たら締め切ります!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VB2005 DataGridがない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBからエクセルのテキストボ...
-
ACCESS2010 ActiveXコントロー...
-
デザインモードを解除すると消...
-
エクセル入力規制リスト行数
-
VB6でLabelの最前面にText Box...
-
チェックボックスの文字色の変え方
-
エクセルの画像にツールチップ...
-
DataGridViewで行の展開みたい...
-
ADOのCursorLocationプロパティ
-
lbl.Caption の意味
-
C# TEXTが空白であるLABELは何...
-
checkbox付きListViewで デフ...
-
テキストボックス(VBA)でEnter...
-
Access 標題について
-
Wordテキストコントロールが未...
-
MFCでbitmapを背景にしてstatic...
-
VB6でPNGファイルを扱うには?
-
VB.NETで縦書表示をしたいので...
-
Excel VBA テキストボックス...
-
MSFlexGridとDataGridの違いに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックス(VBA)でEnter...
-
ADOのCursorLocationプロパティ
-
エクセルの画像にツールチップ...
-
Enabled=Falseのテキストボック...
-
VB6でLabelの最前面にText Box...
-
Wordテキストコントロールが未...
-
コンボボックスの高さを変更し...
-
デザインモードを解除すると消...
-
DataGridViewで行の展開みたい...
-
C# TEXTが空白であるLABELは何...
-
VBからエクセルのテキストボ...
-
MSFlexGrid
-
checkbox付きListViewで デフ...
-
ACCESS2010 ActiveXコントロー...
-
ユーザーフォームに日付を表示...
-
エクセル入力規制リスト行数
-
VB.NETで縦書表示をしたいので...
-
チェックボックスの文字色の変え方
-
VC++のコンボボックスの各項目...
-
MFCでbitmapを背景にしてstatic...
おすすめ情報