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に表示させたいです
質問の趣旨とは外れるかも知れませんが

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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加