当前位置: 高中信息技术 / 综合题
  • 1. (2016·杭州模拟) 某学校开设多样化选修课程,学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40,学生选课的相关信息存放在数据库文件“student.accdb”的data表中,选课查询程序运行时界面如第16题图所示。

    程序功能:在文本框Text1中输入课程号,单击“查询”按钮Command1,在列表框List1中显示选修本课程的学生信息。如果没有找到,在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。

    Private Sub command1_click()

    Dim xh(1 to 40),xm(1 to 40) As String   '学号和姓名的数组

    Dim i,num as integer

    Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

    Dim strSQL As String

    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\student.accdb"     '打开到数据库的链接

     conn.Open

    strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句

     Set rs.ActiveConnection = conn      '设置rs的ActiveConnection属性,指定与其关联的数据库链接

      rs.Open strSQL   '打开记录集,将从表student中读取的结果集保存到记录集rs中

      List1.Clear

    num=0

    Do while not rs.EOF

                 ①       

        xh(num)=rs.Fields("xh")

          xm(num)=rs.Fields("xm")

      rs.MoveNext

    loop

    rs.Close

      conn.close

    set rs=nothing

    set conn=nothing

    For  i=1 to num

          ②     

    Next i

    if num=0 then list1.additem("该课程当前无人报名")

    End Sub

    1. (1) 程序中①划线处应填入
    2. (2) 程序中②划线处应填入

微信扫码预览、分享更方便