level 1
296825882
楼主
Dim conn As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Data Source=D:\垃圾\userID.mdb;Provider=Microsoft.Jet.OLEDB.4.0;")
conn.Open()
'ComboBox控件读取数据库数据
Dim sql = "select 班级 from class_Info"
Dim cs As New OleDbCommand(sql, conn)
Dim ado As New OleDbDataAdapter(cs)
ado.Fill(ds, "class_Info")
Dim j As Integer
For j = 0 To ds.Tables(0).Rows.Count - 1
ComboClass.Items.Add(ds.Tables(0).Rows(j).Item("班级"))
Next
Dim sq = "select 专业名称 from specialty_Info"
Dim cc As New OleDbCommand(sq, conn)
Dim ss As New OleDbDataAdapter(cc)
ss.Fill(ds, "specialty_Info")
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboSpecialty.Items.Add(ds.Tables(0).Rows(i).Item("专业名称"))
Next
为什么只有班级那个控件能读出数据,专业名称的控件不能读出数据?请大家帮帮忙。
2012年12月16日 12点12分
1
conn.Open()
'ComboBox控件读取数据库数据
Dim sql = "select 班级 from class_Info"
Dim cs As New OleDbCommand(sql, conn)
Dim ado As New OleDbDataAdapter(cs)
ado.Fill(ds, "class_Info")
Dim j As Integer
For j = 0 To ds.Tables(0).Rows.Count - 1
ComboClass.Items.Add(ds.Tables(0).Rows(j).Item("班级"))
Next
Dim sq = "select 专业名称 from specialty_Info"
Dim cc As New OleDbCommand(sq, conn)
Dim ss As New OleDbDataAdapter(cc)
ss.Fill(ds, "specialty_Info")
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboSpecialty.Items.Add(ds.Tables(0).Rows(i).Item("专业名称"))
Next
为什么只有班级那个控件能读出数据,专业名称的控件不能读出数据?请大家帮帮忙。