【正文】 當沒有返回值的時候 ExecuteNonQuery()會顯得十分有效 () () (HKEY_CURRENT_USER\DataBaseCreated, Created, True) () () Catch sqlExc As SqlException (, SQL 異常 , _ , ) End Try End Sub End Class 40 管理主窗體代碼： Imports Public Class AdministrateForm Dim BookConnection As New SqlConnection() Dim SQLCMDB As SqlCommandBuilder Dim SQLCMD As SqlCommand Dim SQLDA As SqlDataAdapter Dim NowData As String = Book Private Sub AdministrateForm_Load(ByVal sender As , ByVal e As ) Handles Dim ReadValue = (HKEY_CURRENT_USER\DataBaseCreated, Created, Nothing) If ReadValue True Then () () End If End Sub Private Sub 查看用戶信息 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 查 看 用 戶 信 息 () SQLCMD = = Select * from User_Table SQLDA = New SqlDataAdapter(SQLCMD) 41 () (User_DataSet) = (0) NowData = User () End Sub Private Sub 保存當前信息 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 保 存 當 前 信 息 If NowData = User Then SaveUser() ElseIf NowData = Book Then SaveBook() End If End Sub Private Sub SaveBook() () SQLCMD = = Select * from Book_Table SQLDA = New SqlDataAdapter(SQLCMD) SQLCMDB = New SqlCommandBuilder(SQLDA) (Book_DataSet) () () End Sub Private Sub SaveUser() () 42 SQLCMD = = Select * from User_Table SQLDA = New SqlDataAdapter(SQLCMD) SQLCMDB = New SqlCommandBuilder(SQLDA) (User_DataSet) () () End Sub Private Sub 還原數(shù)據(jù)庫 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 還原數(shù)據(jù)庫 (HKEY_CURRENT_USER\DataBaseCreated, Created, False) () () End Sub Private Sub 查看圖書信息 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 查 看 圖 書 信 息 () SQLCMD = = Select * from Book_Table SQLDA = New SqlDataAdapter(SQLCMD) () (Book_DataSet) = (0) NowData = Book 43 () End Sub Private Sub 幫助 ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles 幫助 () End Sub Private Sub AdministrateForm_Closing(ByVal sender As Object, ByVal e As。 用一個 SqlCommand 來執(zhí)行 SQL命令 Dim cmd As New SqlCommand(strSQL, dbConnection) Try 39。1895644598539。09網(wǎng)絡技術 (1)39。 學生39。 王 勇 杰 39。09630213839。 vbCrLf amp。 vbCrLf amp。1562364598539。09網(wǎng)絡技術 (1)39。 學生39。 倉 懷 杰 39。09630212239。 vbCrLf amp。 vbCrLf amp。1308954623139。09網(wǎng)絡技術 (1)39。 學生39。 穆 嘉 偉 39。09630214139。 vbCrLf amp。 vbCrLf amp。1560613059239。09網(wǎng)絡技術 (1)39。 學生39。 陳 恩 點 39。09630212439。 vbCrLf amp。 vbCrLf amp。1323649224939。09網(wǎng)絡技術 (1)39。學生 39。陳智 39。09630212339。 vbCrLf amp。 vbCrLf amp。1302364598539。09網(wǎng)絡技術 (1)39。 學生39。 王 艾 平 39。09630213639。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書 39。彭先生 39。789897825539。2E39。 美學39。 抽 象 藝 術 39。0000001039。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書 39。陳恩點 39。陳久雷 39。788985641339。4E39。計算機 39。 SQL39。0000000939。 vbCrLf amp。 vbCrLf amp。這是一本好書啊！ 39。陳恩點 39。朱敏 39。788754322339。4E39。計算機 39。SQL 數(shù)據(jù)庫編程 39。0000000839。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書39。張震 39。786533543339。4E39。計算機 39。網(wǎng)絡安全技術 39。0000000739。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書 39。39。785655546239。4E39。計算機 39。網(wǎng)絡故障診斷 39。0000000639。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書 39。王艾平 39。王安石 39。788987898739。4E39。計算機 39。JSP 編程技術 39。0000000539。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書 39。王艾平 39。易中天 39。783207224839。4E39。計算機 39。網(wǎng)絡工程設計 39。0000000439。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書 39。張紀中 39。787320226239。4E39。計算機 39。JAVA 程序設計 39。0000000339。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書 39。陳智 39。東南大學 39。788784986239。3E39。 工科39。 工 程 數(shù) 學 39。0000000239。 vbCrLf amp。 vbCrLf amp。這只是一本測試用的圖書39。彭先生 39。784665265539。2F39。心理學 39。普通心理學 39。0000000139。 vbCrLf amp。 vbCrLf amp。 _ WHERE 書刊號 =BookAddID () () 39。 _ SET ISBN = ISBN,分類 = BookGroup, 作者=BookAuthor ,定價 =BookPrice ,書庫 =BookBank , 書籍名 =BookName ,庫存總量 = BookAllNum ,庫存剩余 = BookLeftNum ,備注 =BookText amp。 _ Update Book_Table amp。 _ WHERE ISBN= BookAddISBN amp。 _ FROM Book_Table amp。 _ SELECT TOP 1 ISBN = ISBN,BookGroup = 分類 ,BookAuthor = 作者 ,BookPrice = 定價 ,BookBank = 書庫 ,BookName = 書籍名 ,BookAllNum = 庫存總量 ,BookLeftNum = 庫存剩余 ,BookText=備注 amp。 _ WHERE ISBN= BookAddISBN amp。 _ SET 庫存總量 = BookAllNum , 庫存剩余 = BookLeftNum amp。 _ 36 Update Book_Table amp。 _ WHERE (ISBN = BookAddISBN AND 借閱者 IS NULL) amp。 _ FROM Book_Table amp。 _ SELECT BookLeftNum = COUNT(*) amp。 _ WHERE ISBN= BookAddISBN amp。 _ FROM Book_Table amp。 _ SELECT BookAllNum = COUNT(*) amp。 _ SELECT BookAddID = 書刊號 FROM INSERTED amp。 _ SELECT BookAddISBN = ISBN FROM INSERTED amp。 _ BookGroup Char(10) amp。 _ BookText Char(256), amp。 _ BookPrice money , amp。 _ ISBN Char(16), amp。 _ BookAuthor Char(10), amp。 _ BookBank Char(10), amp。 _ BookName Char(10), amp。 _ BookUserName Char(10), amp。 _ BookLeftNum INT , amp。 _ BookAllNum INT , amp。 _ BookUserID INT, amp。 _ BookID Char(16), amp。 _ BookAdd