MSFLEXGRIDにACCESSからデーターを取り込むにはどうしたらいいのでしょうか？

しん 2003-08-11 06:48:16 No: 108065

ACCESSに接続するには初めはこれでいいと思いますが
最後のところが分かりません。

Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Command1_Click()

    'データベースに接続
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0;" _
                        & "Data Source = C:\db1.mdb"

    cn.Open

    'レコードセットを取得
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = cn
    rs.Source = "社員TBL"
    rs.CursorType = adOpenStatic
    rs.LockType = adLockOptimistic
    rs.Properties("IRowsetIdentity") = True
    rs.Open

    'コントロールに連結
    Set MSFlexGrid1.DataSource = rs

”最後の部分をDATAGRIDと同じように記述しましたが機能しません。どうすれば
いいのでしょうか？
かなりの初心者という事もあって、
もしよろしければ、コピペしてコードを追加して頂けると、分かりやすくて助か
ります。

時間に追われ困ってます。どなたか宜しくお願いします。

Say 2003-08-11 07:36:33 No: 108066

迅速で正確な解答を求めるのなら、この種の掲示板を
用いるべきではありません。
有料のサービスをうけたほうがいいでしょう。

質問の県ですが、
クライアントカーソルで解決できるでしょう。
コードは、まず自分で調べ、考えてみてください。