【導(dǎo)讀】Framework數(shù)據(jù)提供程序訪問(wèn)SQLserver2020數(shù)據(jù)庫(kù)技術(shù)四個(gè)方面進(jìn)行了研究。筆者化了大量的時(shí)間用于程序設(shè)計(jì)，這也是筆者工作的重點(diǎn),所開(kāi)發(fā)的。軟件具有實(shí)用價(jià)值，所編寫(xiě)的代碼對(duì).NET程序員也有很好的參考性。高數(shù)據(jù)訪問(wèn)性能和增強(qiáng)數(shù)據(jù)訪問(wèn)安全性上所起到的重要作用。此外,對(duì)于關(guān)系代。數(shù)在數(shù)據(jù)庫(kù)科學(xué)里的應(yīng)用，筆者在編程過(guò)程中也做了一定的研究。

　　

【正文】 S ISBN號(hào) , Book_pubdate AS 出版日期 , Book_page AS 圖書(shū)頁(yè)數(shù) , Book_price AS 圖書(shū)價(jià)格 , Book_adddate AS 入館日期 , Book_place AS 存放位置 , Book_sort AS 圖書(shū)分類(lèi) FROM book WHERE (Book_code LIKE 39。%39。 + @Book_code + 39。%39。) AND (Book_name LIKE 39。%39。 + @Book_name + 39。%39。) AND (Book_pub LIKE 39。%39。 + @Book_pub + 39。%39。) AND (Book_isbn LIKE 39。%39。 + @Book_isbn + 39。%39。) AND (Book_author LIKE 39。%39。 + @Book_author + 39。%39。) AND (Book_sort LIKE 39。%39。 + @Book_sort + 39。%39。) AND (Book_pubdate @Book_pubdate) and Book_code not IN (SELECT FROM borrow WHERE Return_date IS NULL) RETURN winForms 代碼選錄 ‘ 一個(gè)用于執(zhí)行存儲(chǔ)過(guò)程的類(lèi) Imports Imports Public Class CdataService Protected Connection As SqlConnection Private m_DSN As String 39。構(gòu)建一個(gè)帶有參數(shù)的 sqlmand Private Overloads Function CreateCommand(ByVal sprocName As String, ByVal parameters() As IDataParameter) As SqlCommand Dim mand As SqlCommand = New SqlCommand(sprocName, Connection) = Dim para As SqlParameter For Each para In parameters (para) Next (New SqlParameter(Return Value, _ , _ 4, _ , _ False, _ 0, _ 0, _ , _ , _ Nothing)) Return mand End Function 39。構(gòu)建一個(gè)沒(méi)有參數(shù)的 sqlmand Private Overloads Function CreateCommand(ByVal sprocName As String) As SqlCommand Dim mand As SqlCommand = New SqlCommand(sprocName, Connection) = (New SqlParameter(Return Value, _ , _ 4, _ , _ False, _ 0, _ 0, _ , _ , _ Nothing)) Return mand End Function Public ReadOnly Property DSN() As String Get Return m_DSN End Get End Property Public Overloads Function RunSP(ByVal sprocName As String) As Int32 Dim result As Int32 () Dim mand As SqlCommand = (sprocName) () result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, ByVal parameters() As IDataParameter) As Int32 Dim result As Int32 () Dim mand As SqlCommand = (sprocName, parameters) () result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByVal parameters() As IDataParameter, ByVal DataSet As DataSet) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter () = (sprocName, parameters) (DataSet, SourceTable) result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByRef DataSet1 As DataSet) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter () = (sprocName) (DataSet1) result = CType((Return Value).Value, Int32) () Return result End Function Public Overloads Function RunSP(ByVal sprocName As String, _ ByVal parameters() As IDataParameter, ByRef DataSet As DataSet, ByVal TableName As String) As Int32 Dim result As Int32 Dim sqlDA As New SqlDataAdapter () = (sprocName, parameters) (DataSet, TableName) result = CType((Return Value).Value, Int32) () Return result End Function Public Function Construct(ByVal ConstructString As String) m_DSN = ConstructString End Function Public Function Activate() Connection = New SqlConnection(m_DSN) End Function Public Function Deactivate() Connection = Nothing End Function Public Sub New() End Sub Public Sub New(ByVal ConstrucString As String) Construct(ConstrucString) () End Sub Protected Overrides Sub Finalize() () () End Sub End Class 圖書(shū)查詢(xún)窗體的全部代碼 Imports Imports Public Class frmBookQuery Inherits Region Windows 窗體設(shè)計(jì)器生成的代碼 ?此處略去 … End Region Private Sub frmBookQuery_Load(ByVal sender As , ByVal e As ) Handles With .Anchor = CType(((( Or ) _ Or ) _ Or ), ) .BackColor = .BackgroundColor = .CaptionVisible = False .HeaderForeColor = .ReadOnly = True End With BindComboBox1() = End Sub Function search() Dim As New (str) Dim cmd As New SqlCommand Dim da As SqlDataAdapter Dim ds As New DataSet With cmd If = True Then .CommandText = searchBook Else .CommandText = searchBookInlib End If .CommandType = .Connection = End With Dim mBook_code As New SqlParameter(@Book_code, , 50) 39。1 Dim mBook_name As New SqlParameter(@Book_name, , 50) 39。2 Dim mBook_pub As New SqlParameter(@Book_pub, , 50) 39。3 Dim mBook_isbn As New SqlParameter(@Book_isbn, , 50) 39。4 Dim mBook_pubdate As New SqlParameter(@Book_pubdate, , 4) Dim mBook_author As New SqlParameter(@Book_author, , 50) 39。6 Dim mBook_sort As New SqlParameter(@Book_sort, , 50) 39。11 With .Add(mBook_code) .Add(mBook_name)