說明：

      在《資料庫系統開發例項導航》中，對涉及的學生管理系統可謂是精而之精，學習此書中的內容我感覺到了充實……當然在學習此書的過程中遇到了困難也是不言而喻了，尤其是對程式碼的理解。接下來，就對學生管理系統中主窗體的建立的部分程式碼做詳細的理解介紹（“rem:”在VB中為註釋的意思）：

      此部分程式碼是原書中提到由於系統中各個功能模組都將頻繁使用資料庫中的各種資料，因此需要一個公共的資料操作函式，用以執行各種SQL語句。新增函式Execute SQL。到這裡為對函式ExecuteSQL的程式碼的介紹：

程式碼解釋：

Rem:傳遞引數SQL傳遞查詢語句，msgstring傳遞查詢資訊
詢資訊Public Function ExecuteSQL(ByVal sql As String, msgstring As String) As ADODB.Recordset
   Rem:定義一個名為“cnn”的資料庫的連線，並配合connectstring()函式連結開啟資料庫
   Dim cnn As ADODB.connection
   Rem:定義一個名為“rst”的記錄集來存放資料庫中取出的資料來源
   Dim rst As ADODB.Recordset
   Rem:定義一個名為“stokens()”的字串陣列，將SQL語句按陣列的形式存放，在程式中要使用變數，這些是陣列變數，要先定義
   Dim stokens() As String
  
   Rem:如果程式碼的執行出錯，將跳轉到executesql語句處繼續執行
   On Error GoTo executesql_error
  
   Rem:用Split函式產生一個包含各個字串的陣列
   Rem:通過split函式將sql 語句按單詞存入陣列，
   Rem:例：如果sql語句是 select * from student ，
   Rem:那麼執行的結果就是——stokens(0)= "select",stokents(1)="*" ,stokens(2)="from",stokens(3)="student"  ）
   stokens = Split(sql)
   Rem:建立連線
   Set cnn = New ADODB.connection
   Rem:通過connectstring將資料庫連結，並且開啟
   cnn.open connectstring
   Rem:判斷字串中是否含有指定內容
   Rem:Ucase是將小寫字母轉換為大寫字母，而“$”為字串的意思
   Rem:此語句是從陣列中選擇“insert，delete,update”其一併作為序列為零
   If InStr("insert,delete,update", UCase$(stokens(0))) Then
          Rem:執行查詢語句
          cnn.execute sql
          Rem:返回查詢資訊
          msgstring = stokens(0) & "query successful"
    Else
          Rem:建立資料集物件
          Set rst = New ADODB.Recordset
          Rem:返回查詢結果
          rst.open Trim$(sql), cnn, adopenkeyset, adlockoptimistic
          Rem:返回記錄集物件
          Set ExecuteSQL = rst
          msgstring = "查詢到" & rst.recordcount & " 條記錄"
    End If

executesql_exit:
    Rem：清空資料集物件
    Set rst = Nothing
    Rem:中斷連線
    Set cnn = Nothing
    Exit Function
   
   
Rem:錯誤型別判斷
executesql_error:
    msgstring = "查詢錯誤" & Err.Description
    Resume executesql_exit
End Function

這部分程式碼的理解，有的是我通過網路查詢而來，有的是向他人請教而來，有的是從書上對比而來，總之耗費掉了很長的時間，希望能對大家理解學習這部分內容時有更多的幫助！！！