前言：

在機房收費系統中，查詢到學生記錄后選擇進行修改就會跳轉到這個修改界面！
這里有確認修改和取消修改兩個按鈕，當時不知道怎么去實現，后來通過反復看之前的窗體代碼，自己慢慢有點體會！

過程：

Dim txtSQL As String
Dim MsgText As String
Dim mrc As New ADODB.Recordset
txtSQL = "select * from charge_sys.dbo.student_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)

創建兩個字符型變量，txtSQL 用來存儲SQL語句，MsgText用來返回是否執行成功，這個返回值不是給編程用，而是為了判斷是否查詢成功，存儲查詢成功或是失敗的一些信息。

如


mrc是執行SQL語句后查詢到的記錄集，對應數據庫的部分！

確定修改的偽代碼：
1.在窗體進行信息修改，然后，建立記錄集，將這些信息放到查詢出的記錄集里面！
2.將記錄集的信息更新到數據里！
3.關閉記錄集
4.提示用戶  “你已經成功修改”

取消修改的偽代碼：
1.根據卡號（唯一不可修改項）進行查詢，查詢的結果放到記錄集里面
2.然后將記錄集的內容分別顯示到控件里面
3.關閉結果集
4.提示用戶  “您已經成功取消修改”

結果：

這部分一開始頭大，不知道怎么實現，回頭一看學生的代碼，就懂了怎么寫，也明白了學生里為什么那樣寫了！

總結

以上是生活随笔為你收集整理的确定修改——取消修改的全部內容，希望文章能夠幫你解決所遇到的問題。

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