?

1、致命錯誤：實時錯誤’3251‘當前記錄集不支持書簽。這個錯誤會直接導致多個窗體不能運行：修改學籍信息、修改班級信息、修改課程信息、修改成績信息均不可運行。

?????

???????????????????????????????????????

?錯誤原因：模塊中的adOpenKeyset 錯誤的寫成了asOpenKeyset?.鍵集游標（AdOpenKeyset）記錄集的讀寫屬性為“讀寫”，其行為類似動態游標，不同的是AdOpenKeyset將無法查看到其他用戶對數據的更改。 adLockOptimistic鎖定最佳區域?：當數據源正在更新時，系統并不會鎖住其他用戶的動作，其他用戶可以對數據進行增、刪、改的操作。

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'executes SQL and returns Recordset
?? Dim cnn As ADODB.Connection
?? Dim rst As ADODB.Recordset
?? Dim sTokens() As String
??
?? On Error GoTo ExecuteSQL_Error
??
?? sTokens = Split(SQL)
?? Set cnn = New ADODB.Connection
?? cnn.Open ConnectString
??
?? If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then??????????? '非Select語句
????? cnn.Execute SQL?? '數據量不大時，可以在連接上，直接執行SQL語句
????? MsgString = sTokens(0) & " query successful"
????? '雖然MsgString不是返回值，但傳遞方式是ByRef，實參地址和這個地址相同
?? Else???????????????????????????????????????????????????????????????? 'Select語句
????? Set rst = New ADODB.Recordset
???? ?rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
????? '得到臨時表，游標指向第一條記錄
????? 'get RecordCount，
????? Set ExecuteSQL = rst
????? MsgString = "查詢到" & rst.RecordCount & _
???????? " 條記錄 "
?? End If
??
ExecuteSQL_Exit:
?? Set rst = Nothing
?? Set cnn = Nothing
?? Exit Function
??
ExecuteSQL_Error:
?? MsgString = "查詢錯誤: " & _
????? Err.Description
?? Resume ExecuteSQL_Exit
End Function

2、實時錯誤‘30009’

With myflexgrid
???????????? .Rows = 2????????????????????? ’講Rows寫成了Row就會出現這個錯誤
???????????? .CellAlignment = 4
???????????? .TextMatrix(1, 0) = "考試編號"
???????????? .TextMatrix(1, 1) = "學號"
???????????? .TextMatrix(1, 2) = "姓名"
???????????? .TextMatrix(1, 3) = "班號"
???????????? .TextMatrix(1, 4) = "課程名稱"
???????????? .TextMatrix(1, 5) = "分數"
????????????
???????????? Do While Not mrc.EOF
???????? ????.Rows = .Rows + 1
???????????? .CellAlignment = 4
???????????? .TextMatrix(.Rows - 1, 0) = mrc.Fields(0)
???????????? .TextMatrix(.Rows - 1, 1) = mrc.Fields(1)
???????????? .TextMatrix(.Rows - 1, 2) = mrc.Fields(2)
???????????? .TextMatrix(.Rows - 1, 3) = mrc.Fields(3)
???????????? .TextMatrix(.Rows - 1, 4) = mrc.Fields(4)
???????????? .TextMatrix(.Rows - 1, 5) = mrc.Fields(5)
????????????? mrc.MoveNext
???????????? Loop
??????? End With

3、所有的查詢窗體都有一個共同的錯誤。例如：查詢學籍信息、查詢成績信息，都有“91錯誤”。

?

Private Sub cmdInquire_Click()
????? Dim txtSQL As String
????? Dim MsgText As String
????? Dim dd(4) As Boolean
????? Dim mrc As ADODB.Recordset

txtSQL = "select * from result_Info where "????? 正確的就是where后必須有個空格再加引號。

總結

以上是生活随笔為你收集整理的学生信息管理系统错误汇总（一）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。