| 投稿日 | ： 2003/12/09(Tue) 13:30 |
| 投稿者 | ： ak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 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ではなく
MSHFlexGrid「Microsoft Hierarchical FlexGrid Control 6.0 (SP4) (OLEDB)」
を使用してみてください。
では。