投稿日	： 2003/12/09(Tue) 11:48
投稿者	： kyoro
Ｅメール	：
ＵＲＬ	：
タイトル	： MSFlexGridでテーブルデータを表示

はじめまして。いつも困ったときに助けられています。
今回は、にっちもさっちもいかなくなってしまい、お知恵を拝借したく書き込みさせていただきました。

ADOでサーバーに接続し、テーブルのデータをMSFlexGridに表示させたいのです。
下のようにVB6でコーディングしたのですが、★で
「オブジェクト変数またはwith変数が設定されていません。」
とエラーが返されてしまいます。

-------------------------------------------------------
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim MySQL As String
Dim MyData As String
        
    MyData = "テーブル名"
        
    MSFlexGrid1.Clear
    
    Set cn = New ADODB.Connection
    cn.ConnectionString = "driver={SQL Server};" & _
                          "server=XXXXXXX;" & _
                          "UID=;" & _
                          "PWD=;" & _
                          "database=XXXXXX"
    cn.CommandTimeout = 30
    cn.Open
    
    Set rs = New ADODB.Recordset

    MySQL = ""
    MySQL = MySQL & "SELECT A,"
    MySQL = MySQL & "       B,"
    MySQL = MySQL & "       C "
    MySQL = MySQL & "From " & MyData

    rs.Open MySQL, cn, adOpenStatic, adLockOptimistic

★　Set MSFlexGrid1.DataSource = rs　←ここでエラー

End Sub
--------------------------------------------------------
※参照設定で「Microsoft ActiveX Data Objects 2.7 Library」は選択してあります。

どなたか教えてください。よろしくお願いします。

★ - MSFlexGridでテーブルデータを表示 - kyoro 12/09-11:48No.6969
• Re: MSFlexGridでテーブルデータを表示 - ak 12/09-13:30 No.6975
  • Re^2: MSFlexGridでテーブルデータを表示 - kyoro 12/10-11:09 No.7014