データグリッド・・・？

質問

データグリッドにデータを入れたいのですが、入りません。ソースを書きますのでご指摘お願いします。

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

' 接続文字列を設定
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:￥aaa.mdb"
' コネクションをオープン
cn.Open

' 選択クエリーを作成
strSQL = "Select * From bbb where ID = " & dbid & _
" ORDER BY 年月日 DESC"

' レコードセットをオープン
rs.Open strSQL, cn, adOpenStatic, adLockOptimistic

set DataGrid1.DataSource = rs

' オブジェクトを閉じる
rs.Close
cn.Close
' オブジェクトを解放
Set rs = Nothing
Set cn = Nothing

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

MSDNライブラリーのサンプルと比べると、
Openメソッドの第5引数に"adCmdText"が設定されているところぐらいですが。

http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/JP189/6/68.asp

参考URL：

http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/JP189/6/68.asp

補足

＞Openメソッドの第5引数に"adCmdText"が設定される

　第５引数に"adcmdtext"を入れてみたんですけど、何にもならなかったんんですよね・・・
　ちなみにdatagridのプロバティは関係ないですよね・・

回答No.2

sienna

気になることといえば、

１．dbid がシングルコーテーションで囲まれていない

２．set DataGrid1.DataSource = rs の後にDataGridをリフレッシュしていない。

３．そもそもコネクションを閉じてはいけないのでは？（オブジェクトを閉じる以降）

４．もし良ければ、ADOのデータコントロール(ADODC)を使っては？

とりあえず参考まで