コンボボックスのセットについて。


heart  2004-05-24 22:56:21  No: 113477

お世話になります。
コンボボックスにデータベースの内容をいれたいのですが。。

With Cbo_tijou
   .AddItem dynOraWk.Fields("SHOKULNM") & "  " & dynOraWk.Fields
End With

これだと一応表示は出来るのですがデーターがたくさんある為、1番最初のデータ
しか表示されないのです。2番目、3番目のデータをコンボボックスにいれるには
どうしたらいいでしょうか?
初歩的な質問でごめんなさい。


特攻隊長まるるう  2004-05-25 00:18:45  No: 113478

変数名からするとオラクルダイナセット?

ADODB.Recordset の場合は
[VB6.0]
    Dim wLocalRs As ADODB.Recordset
    Dim i As Integer
    
    With wLocalRs 
        .MoveFirst
        For i = 0 To .RecordCount - 1
            Cbo_tijou.AddItem (CStr(.Fields("SHOKULNM").Value))
            .MoveNext
        Next
    End With

ってのが基本だけどオラクルの検索に引っかかったコードは

    Dim dynOraWk As Object
    
    With dynOraWk
        Do While (.EOF = False)
            Cbo_tijou.AddItem (CStr(.Fields("SHOKULNM").Value))
            .MoveNext
        Loop
    End With

こんな感じ?レコード数とかって自分で数えないと分からないんですかねぇ?
…まぁ、ボクは[VB6.0]でオラクル使った事無いので…存在するなら
For 文の方が理解しやすいような気もします…調べてみて下さい。
Null を許容してるなら判定して適切な処理にして下さい。
http://www.mitene.or.jp/~rnk/TIPS_VB_oo4o.htm

.MoveFirst はあるの?作成時のみの設定かなぁ?
http://www.st.sakura.ne.jp/~taka/Oracle/1-2.htm

この掲示板で、オラクルの操作について詳しい回答が返ってくることって
少ないから、もっとオラクルをメインで扱ってる掲示板の方がいいかも
しれないですよ?。


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




  


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