vbnet數(shù)據(jù)庫編程基礎(chǔ)教程-資料下載頁
2025-06-25 23:10本頁面
【正文】 翻閱一條記錄： = 1向下翻閱一條記錄： = + 1翻閱到最后一條記錄：= 1翻閱到第一條記錄： = 0雙擊“刪除記錄”按鈕，在代碼窗中輸入以下代碼：Private Sub btnDel_Click(ByVal sender As , ByVal e As ) Handles Dim ConnectionString As String = ″ Provider = 。 Data Source = e:\My Documents\″Dim myConn As OleDbConnection = New OleDbConnection() = ConnectionString() Dim strDele As String = ″DELETE From student WHERE StuID = 39。″ + + ″ 39。″ Dim myCommand As OleDbCommand = New OleDbCommand(strDele, myConn)() (″student″).Rows((myDataSet, ″student″).Position).Delete()(″student″).AcceptChanges()()End Sub前面四行代碼我們已經(jīng)非常熟悉，目的是建立與數(shù)據(jù)據(jù)的連接并打開數(shù)據(jù)庫。第6行代碼我們建立一個SQL查詢，用來查詢數(shù)據(jù)表中StuID字段值等于 。并在第7行代碼中將查詢結(jié)果建立一個新的OleDbCommand對象，用來指定要刪除的記錄。第8行代碼是從數(shù)據(jù)庫中刪除指定的記錄，第9行代碼是從myDataSet中刪除記錄。前者是物理上刪除記錄，如果去掉第8行代碼運行程序你就會發(fā)現(xiàn)，記錄只是在當(dāng)前操作中被刪除了，在數(shù)據(jù)庫中依然存在。其中第6行代碼中定義的SQL查詢條件讀者可以根據(jù)需要自行指定。需要說明的是，由于我們在創(chuàng)建數(shù)據(jù)表時，指定StuID字段的類型為Text類型，因此在書寫SQL語名時要在“＝”號前加上單引號，具體格式請參照第6行代碼。如果StuID字段類型為數(shù)字型，那么第6行正確寫法應(yīng)該為：Dim strDele As String = ″DELETE From student WHERE StuID = ″ + 修改數(shù)據(jù)的方法有很多，本文中我們將以采用SQL語言來修改數(shù)據(jù)記錄為例詳細介紹一下如何修改數(shù)據(jù)記錄。下面我們先看看程序代碼：Dim ConnectionString As String = ″ Provider = 。 Data Source = e:\My Documents\″Dim myConn As OleDbConnection = New OleDbConnection() = ConnectionString() 39。以上代碼用來連接數(shù)據(jù)源(″student″).Rows((myDataSet, ″student″).Position).BeginEdit()39。利用SQL語句創(chuàng)建數(shù)據(jù)更新集合 Dim StrUpdate As String = ″Update student SET StuName=39?！?+ + ″39。,StuSex=39?！?+ + ″39。,StuBorn=39。″ + + ″39。,StuCore=39?！?+ + ″39。 WHERE StuID=39?！?+ + ″39。″ 39。利用SQL結(jié)果創(chuàng)建新的OleDbCommand對象Dim myCommand As OleDbCommand = New OleDbCommand(StrUpdate, myConn)()(″student″).Rows((myDataSet, ″student″).Position).EndEdit()(″student″).AcceptChanges()()MsgBox(″數(shù)據(jù)修改完成！″)上述代碼中我們采用SQL語言中的Update語名來更新記錄，對各個TextBox中的值修改后更新到數(shù)據(jù)庫。其中重要語句就是SQL語句的編寫。如果你有不明白的地方，請參閱SQL相關(guān)資料。代碼中我們同時還利用了BeginEdit()與EndEdit()方法，任何從數(shù)據(jù)的修改都必須在這兩個方法之間進行。前者是數(shù)據(jù)修改的入口，后者則是完成將數(shù)據(jù)寫入數(shù)據(jù)庫的工作。增加數(shù)據(jù)記錄與修改數(shù)據(jù)在實現(xiàn)方法上有很多相同之處。在下面的實例中我們利用SQL的Insert語句在指定位置插入一條記錄，把更新到數(shù)據(jù)庫。如果你想在數(shù)據(jù)表最后增加一條記錄，只需要將數(shù)據(jù)記錄指針指向數(shù)據(jù)表末尾就行了。Private Sub btnAdd_Click(ByVal sender As , ByVal e As ) Handles Dim ConnectionString As String = ″ Provider = 。 Data Source = e:\My Documents\″Dim myConn As OleDbConnection = New OleDbConnection() = ConnectionString()Dim StrAdd As String = ″insert into student (Stuid,StuName,StuSex,StuBorn,StuCore) values(39?！?+ + ″39。,39?！?+ + ″39。,39?！?+ + ″39。,39?！?+ + ″39。,39。″ + + ″39。)″(StrAdd)Dim myCommand As OleDbCommand = New OleDbCommand(StrAdd, myConn)()()(″student″).Rows((myDataSet, ″student″).Position).BeginEdit()(″student″).Rows((myDataSet, ″student″).Position).EndEdit()(″student″).AcceptChanges()MsgBox(″數(shù)據(jù)增加完成！″) End Sub有了前面幾種基本操作方法的代碼分析后，這段代碼相信不難理解。大家需要關(guān)注的還是SQL語句是如何實現(xiàn)數(shù)據(jù)記錄增加的。這種方法具有一定的通行性。完成上述設(shè)計后我們來看看整個程序的運行結(jié)果。按下F5鍵運行程序即可。本文中所有代碼均在Windows XP+。寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計較，只在做事上認真；無能的人！不在做事上認真，只在情緒上計較。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻給所有努力的人.學(xué)習(xí)參考
電大資料相關(guān)推薦
鄂ICP備17016276號-1