tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： リストボックスに表示
投稿日： 2005/12/16(Fri) 15:38
投稿者： しーぽん
[OSのVer]：WindowsXP　　　　[VBのVer]：VB.NET　　
     Dim i, j As Integer
    '接続
    Dim oleCn = New OleDb.OleDbConnection
    '命令
    Dim oleCmd As OleDb.OleDbCommand
    '読込
    Dim oleReader As OleDb.OleDbDataReader'接続文字列を作成して接続を開始する

Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load    
    setsuzoku()
        'レコード選択SQL文を作成してレコードを取得
        mondai_syutoku()

        '問題を読込みラベルに表示
        mondai_hyoji()

        '接続を終了
        oleCn.Close()
    End Sub

   Public Sub setsuzoku()
        '接続文字列を作成して接続を開始
        oleCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "
Data
Source=E:\sotusei\bin\db1.mdb;" & "Persist Security Info=False"
        oleCn.Open()
    End Sub

    Public Sub mondai_syutoku()
        'レコード選択SQL文を作成してレコードを取得
        oleCmd = New OleDb.OleDbCommand("SELECT * FROM 国内車 WHERE メーカー別ID = 1&q
uot;,
oleCn)
        oleReader = oleCmd.ExecuteReader()
    End Sub

    Public Sub mondai_hyoji()
        '問題を読込みラベルに表示
        oleReader.Read()
        ComboBox3.Text = CStr(oleReader("バイク名"))
        oleReader.Close()
    End Sub

なのですが、実行すると一行しか表示されません。
どこをどう改善すれば宜しいでしょうか。
お願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。