从MS Access数据库行填充一个VB组合框

我试图在列中将整行添加到组合框中。当我尝试它或者只显示列的最后一行或它只显示最后一行35次。从MS Access数据库行填充一个VB组合框

我在想什么？这真让我抓狂。我对评论栏目道歉，我正在尝试一些不同的编码。

Option Strict On 
Imports System.Data.OleDb 
Imports ShadowLogin.GlobalVariables 
Public Class DeptNewSch 

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click 
    Me.Close() 
    ShadowMain.Show() 
End Sub 

Private Sub DeptNewSch_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Dim CourseArray(35, 2) As String 

    Using cnnOLEDB = New OleDbConnection(strConnectionString) 
     Dim NewSchDS As DataSet 
     Dim NewSchTables As DataTableCollection 
     Dim NewSchsource1 As New BindingSource 

     NewSchDS = New DataSet 
     NewSchTables = NewSchDS.Tables 

     Using cmd As New OleDbCommand("SELECT ClassSection.CourseTitle AS Course, ClassSection.SectionNumber AS [Section Number], ClassSection.ScheduleNumber AS [Schedule Number], Course.ShortTitle AS [Course Title], Course.Units, ClassSection.Type AS Format, ClassSection.TimeSlot AS [Days/Time], ClassSection.RoomID AS Location, Faculty.[First Name], Faculty.[Last Name], Classroom.MaxCapacity AS Seats FROM [Classroom], [ClassSection], [Faculty], [Course] WHERE (ClassSection.FRedID = Faculty.FRedID) AND Course.CourseTitle = ClassSection.CourseTitle AND Classroom.RoomID = ClassSection.RoomID AND [email protected] AND [email protected];", cnnOLEDB) 
      cmd.Parameters.Add("@Year", OleDbType.VarWChar).Value = Convert.ToInt32(strYear.ToString()) 
      cmd.Parameters.Add("@Semester", OleDbType.VarWChar).Value = strSemester.ToString() 

      Using NewSchDA As OleDbDataAdapter = New OleDbDataAdapter(cmd) 
       NewSchDA.Fill(NewSchDS, "New Semester") 'Change items to your database name 
       Dim view As New DataView(NewSchTables(0)) 
       NewSchsource1.DataSource = view 
       dgNewSch.DataSource = view 
       Me.dgNewSch.Columns("Course").Width = 60 
       Me.dgNewSch.Columns("Section Number").Width = 50 
       Me.dgNewSch.Columns("Schedule Number").Width = 60 
       Me.dgNewSch.Columns("Course Title").Width = 190 
       Me.dgNewSch.Columns("Units").Width = 40 
       Me.dgNewSch.Columns("Format").Width = 70 
       Me.dgNewSch.Columns("Days/Time").Width = 100 
       Me.dgNewSch.Columns("Location").Width = 70 
       Me.dgNewSch.Columns("First Name").Width = 80 
       Me.dgNewSch.Columns("Last Name").Width = 80 
       Me.dgNewSch.Columns("Seats").Width = 50 
      End Using 
     End Using 
    End Using 

    'Connect to Database and get the registration information 
    Using cnnOLEDB = New OleDbConnection(strConnectionString) 


     ' Query the classschedule table for start of semester datas 
     Using cmdOleDB = New OleDbCommand("SELECT [CourseTitle], [ShortTitle],[Units] FROM [Course] WHERE rownumber [email protected]", cnnOLEDB) 
      cnnOLEDB.Open() 
      Using rdrOLEDB = cmdOleDB.ExecuteReader 
       While rdrOLEDB.Read 
        Dim l As Integer 

        For l = 0 To 35 
         'cmdOleDB.Parameters.Add("@row", OleDbType.VarWChar).Value = l 
         CourseArray(l, 0) = rdrOLEDB.Item(0).ToString 
         CourseArray(l, 1) = rdrOLEDB.Item(1).ToString 
         CourseArray(l, 2) = rdrOLEDB.Item(2).ToString 
        Next 




        ' CboFormat.Items.Add() 
        ' CboDayTime.Items.Add() 
        ' CboLocation.Items.Add() 
        ' CboName.Items.Add() 
       End While 
      End Using 
     End Using 
    End Using 

    For z As Integer = 0 To 35 

     CboCourse.Items.Insert(z, CourseArray(z, 0).ToString) 

    Next 

End Sub

末级

正如您可以猜到这是香港专业教育学院一直在努力的代码。任何帮助将是伟大的，如果我试图做的是尽可能的。

来源

2015-12-09 James Swan

循环是否准确地预测35条记录？根据数据的不同，CBO可能会被绑定到一个List，其中包含与DGV – Plutonix

一样的行...“List（Of Course）”或几乎任何事情都会比二维数组好。 [见示例]（http://stackoverflow.com/a/34164458/1070452） – Plutonix

所以你说，它更好地写在个别的课程路线？（对不起还没有睡过） –

您每次读取数据源中的记录时，都会运行0至35个循环。

While rdrOLEDB.Read 
        Dim l As Integer 

        For l = 0 To 35 
         'cmdOleDB.Parameters.Add("@row", OleDbType.VarWChar).Value = l 
         CourseArray(l, 0) = rdrOLEDB.Item(0).ToString 
         CourseArray(l, 1) = rdrOLEDB.Item(1).ToString 
         CourseArray(l, 2) = rdrOLEDB.Item(2).ToString 
        Next 
Name.Items.Add() 
       End While

来源

2015-12-09 11:04:50 nicomp

是否有办法做循环而不记录在以前的数据？ –

为什么你需要这个循环？只需在While循环中递增一次。 – nicomp

我应该问问是否有更好的方法来做到这一点？ –

从MS Access数据库行填充一个VB组合框

回答

相关问题