1.txt

学生成绩管理系统

Private Sub StuClassCommand_Click()
  Dim ScoreCount As Integer
  Dim strSql As String
  Dim i As Integer
  i = 0
  CountText.Text = ""
  Set Conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
   
  Conn.Open ConnStr
  strSql = "select * from 成绩表 where 班级='" & ClassText.Text & "'"
  If Conn.State = 1 Then
     
     rs.Open strSql, Conn, adOpenKeyset, adLockPessimistic
    
     
     
     While i < rs.RecordCount
       
       ScoreCount = rs.Fields(3) + rs.Fields(4) + rs.Fields(5) + rs.Fields(6) + rs.Fields(7)
       
       CountText.Text = CountText.Text & "班级:" & rs.Fields(0) & " " & "学号:" & rs.Fields(1) & _
            " " & "姓名:" & rs.Fields(2) & " " & "高数:" & rs.Fields(3) & _
            " " & "英语:" & rs.Fields(4) & " " & "物理:" & rs.Fields(5) & _
            " " & "计算机:" & rs.Fields(6) & " " & "C语言:" & rs.Fields(7) & " " & "总分:" & ScoreCount & " " & vbCrLf
       rs.MoveNext
       
       
       i = i + 1
     Wend
     If rs.RecordCount = 0 Then
       
     CountText.Text = "数据库中没有这个班级的记录"
     
     End If
  
  End If
  rs.Close
  Conn.Close
  

End Sub