前言：

在機(jī)房收費(fèi)系統(tǒng)中，查詢到學(xué)生記錄后選擇進(jìn)行修改就會(huì)跳轉(zhuǎn)到這個(gè)修改界面！
這里有確認(rèn)修改和取消修改兩個(gè)按鈕，當(dāng)時(shí)不知道怎么去實(shí)現(xiàn)，后來通過反復(fù)看之前的窗體代碼，自己慢慢有點(diǎn)體會(huì)！

過程：

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)

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

如


mrc是執(zhí)行SQL語句后查詢到的記錄集，對(duì)應(yīng)數(shù)據(jù)庫的部分！

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

取消修改的偽代碼：
1.根據(jù)卡號(hào)（唯一不可修改項(xiàng)）進(jìn)行查詢，查詢的結(jié)果放到記錄集里面
2.然后將記錄集的內(nèi)容分別顯示到控件里面
3.關(guān)閉結(jié)果集
4.提示用戶  “您已經(jīng)成功取消修改”

結(jié)果：

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。