MSFlexGrid

素人 2004-08-25 20:20:31 No: 115870

初歩的な質問ですみません
OralceのデータをMSFlexGrid に表示したいのですがどのようにしたら良いか教えてください
下記のようにデータをsetしてform上のMSFlexGridに表示させたいです
宜しくおねがいします

    Dim ssOra As Object
    Dim dbOra As OraDatabase
    Dim dynOra As OraDynaset
    Dim tbl, S_NAME, U_NAME, U_PASS, ORAID, strSQL As String

    S_NAME = "aaa" 'ネットサービス名
    U_NAME = "bbb" 'ユーザー名を入力
    U_PASS = "ccc" 'パスワードを入力

ORAID = U_NAME & "/" & U_PASS

Set ssOra = CreateObject("OracleInProcserver.XOraSession")
Set dbOra = ssOra.OpenDatabase(S_NAME, ORAID, 0&)

strSQL = "SELECT * " _
& "FROM KEIZAI.KZI040_フリガナ検索01 "

Set dynOra = dbOra.DbCreateDynaset(strSQL, 0&)

特攻隊長まるるう 2004-08-27 01:30:18 No: 115871

だれも回答しないので一気に設定できるような方法は無いのかも？
地道にループしながら MSFlexGrid1.TextMatrix プロパティ
あたりで設定してみて下さい。

葉月 2004-08-27 18:02:42 No: 115872

>MSFlexGridに表示させたいです
質問の趣旨とは外れるかも知れませんが

表示させるだけならフレキシブルグリッドでも
ＤＢグリッドでもいいような気もするので
ＤＢグリッドなら一括でいけるんじゃない？

アンバウンドとかロックとかで編集不可にしちゃったり
自動更新しないようにしてしまえば・・・