2.txt

学生成绩管理系统

Dim ScoreCount As Integer
  Dim strSql As String
  Dim strCourse As String
  
  CountText.Text = ""
  Set Conn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  strCourse = CourseText.Text
  strSql = ""
  

  strSql = "select * from 成绩表 "
  
  

  
  Conn.Open ConnStr
  
  If Conn.State = 1 Then
     
     rs.Open strSql, Conn, adOpenKeyset, adLockPessimistic
     If rs.RecordCount > 0 Then
       
       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
       
     
     Else
     
       CountText.Text = "没有该学生"
     
     End If
     
  
  End If
  rs.Close
  Conn.Close