?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -