vb數(shù)據(jù)庫(kù)操作實(shí)例之-信息管理系統(tǒng)-資料下載頁(yè)
2024-11-17 15:48本頁(yè)面
【導(dǎo)讀】向數(shù)據(jù)庫(kù)中添加、修改、刪除記錄這些操作。我覺(jué)得自己是比較菜的，幾年來(lái)別。人都在進(jìn)步，只有我還在原地踏步。不過(guò)沒(méi)有辦法，我們這一圈人里現(xiàn)在只有我。機(jī)器上還有vb6，勉為其難，只有嘗試一下了。如果我寫的這點(diǎn)幼稚的東西能為。高興的事情，同時(shí)也希望高手不要見笑。該系統(tǒng)后臺(tái)使用的是Access數(shù)據(jù)庫(kù)，程序中使用ADO代碼鏈接的形式連。作后能夠?qū)崟r(shí)刷新顯示數(shù)據(jù)。并在程序中加了相應(yīng)的代碼對(duì)輸入的數(shù)據(jù)進(jìn)行合法。出系統(tǒng)時(shí)均有友好的提示框請(qǐng)用戶確認(rèn)。Basic環(huán)境下調(diào)試通過(guò)。一對(duì)多聯(lián)系等等；此外，對(duì)sql語(yǔ)言也需要有所了解。“編號(hào)”這個(gè)字段使用的是Access的自動(dòng)編號(hào)，并將其作為主鍵。鍵，Access會(huì)自動(dòng)為您搞定。為了方便起見，我們?cè)贏ccess中給wzdz表中預(yù)先添加兩條初始記。添加時(shí)不用理“編號(hào)”這個(gè)字段，直接添加后三個(gè)字段即可。下一步的工作，是設(shè)計(jì)系統(tǒng)的界面及設(shè)置各個(gè)對(duì)象的屬性。
【正文】 Dim rs As New Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = Provider=。 Str2 = Data Source=D:\VBporj\accessdb\。 Str3 = Jet OLEDB:Database Password= Str1 amp。 Str2 amp。 Str3 strSQL = select * from Access_db where 編號(hào) = amp。 Val() amp。 strSQL, conn, 3, 3 If rs!編號(hào) = Val() Then 39。由于系統(tǒng)數(shù)據(jù)庫(kù)使用的是自動(dòng)編號(hào)作為 主鍵 39。因此以編號(hào)字段的內(nèi)容作為判斷的依據(jù) 39。如果 rs!編號(hào) = Val()說(shuō)明數(shù)據(jù)庫(kù)中有此記錄， 39。才會(huì)修改其它三個(gè)字段的內(nèi)容 39。否則給出“不存在此記錄”的提示信息并關(guān)閉數(shù)據(jù)連接 rs!網(wǎng)站名稱 = rs!網(wǎng)站地址 = rs!網(wǎng)站描述 = MsgBox (修改記錄成功！ ) 39。刷新數(shù)據(jù)源， MSHFlexGrid 控件會(huì)實(shí)時(shí)刷新顯示數(shù)據(jù) Else MsgBox (不存在此記錄！ ) = = = = Exit Sub End If End If 39。以下四條語(yǔ)句的作用是在操作完成后將文本框置空 = = = = End Sub Private Sub Command3_Click() If Not IsNumeric() Or Val() = 0 Then 39。編號(hào)字段是 Access 的自動(dòng)編號(hào)，為自然數(shù) 39。因此對(duì) text4 的內(nèi)容進(jìn)行校驗(yàn)，如果不是數(shù)值或?yàn)?0 則跳出 sub 過(guò)程 MsgBox 編號(hào)是大于 0 的自然數(shù)，請(qǐng)輸入正確的編號(hào)！ Exit Sub End If Dim sc As Integer sc = MsgBox(確實(shí)要?jiǎng)h除這個(gè)記錄嗎？ , vbOKCancel, 刪除確認(rèn)！ ) If sc = 1 Then 39。運(yùn)行時(shí)如果用戶點(diǎn)擊的是 MsgBox提示框的“確定”按鈕，返回值是 1 Dim conn As New Dim rs As New Dim Str1 As String Dim Str2 As String Dim Str3 As String Str1 = Provider=。 Str2 = Data Source=D:\VBporj\accessdb\。 Str3 = Jet OLEDB:Database Password= Str1 amp。 Str2 amp。 Str3 strSQL = select * from Access_db where 編號(hào) = amp。 Val() amp。 strSQL, conn, 3, 3 If rs!編號(hào) = Val() Then 39。由于系統(tǒng)數(shù)據(jù)庫(kù)使用的是自動(dòng)編號(hào)作為主鍵 39。因此以編號(hào)字段的內(nèi)容作為判斷的依據(jù) 39。如果 rs!編號(hào) = Val()說(shuō)明數(shù)據(jù)庫(kù)中 有此記錄并進(jìn)行刪除操作 39。否則給“不存在此記錄”的提示信息并關(guān)閉數(shù)據(jù)連接 MsgBox (刪除記錄成功！ ) 39。刷新數(shù)據(jù)源， MSHFlexGrid 控件會(huì)實(shí)時(shí)刷新顯示數(shù)據(jù) Else MsgBox (不存在此記錄！ ) = Exit Sub End If End If 39。以下四條語(yǔ)句的作用是在操作完成后將文本框置空 = = = = End Sub Private Sub Command4_Click() Dim sc As Integer sc = MsgBox(確實(shí)要退出系統(tǒng)嗎？ , vbOKCancel, 提示信息 ) If sc = 1 Then 39。運(yùn)行時(shí)如果用戶點(diǎn)擊的是 MsgBox提示框的“確定 ”按鈕，返回值是 1 End End If End Su
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1