学生信息管理系统错误汇总（一）

 

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后必须有个空格再加引号。