欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

　　在MSSQL中的Northwind數據庫中為employess表新建存儲過(guò)程(作用按LastName進(jìn)行模糊查詢(xún)）：

CREATE PROCEDURE Employess_Sel @lastname nvarchar (20)
AS
select lastname from Employees where lastname like ‘%‘ + @lastname + ‘%‘
GO

　　二、窗體設計

　　1、新建ASP.NET Web應用程序，命名為WebSql，選擇保存路徑然后點(diǎn)擊確定。

　　2、向窗體中添加一個(gè)Label、一個(gè)Textbox和一個(gè)Button按鈕，然后再添加一個(gè)DataGrid控件，右擊DataGrid控件選擇屬性生成器，然后在打開(kāi)的窗口中選擇列，去掉自動(dòng)創(chuàng )建列前的對勾，再向選定列中添加一個(gè)綁定列將頁(yè)眉設為L(cháng)astName，將數據字段設為L(cháng)astName。點(diǎn)擊確定。

　　三、創(chuàng )建中間數據層

　　右擊解決方案，選擇新建-項目-類(lèi)庫，名稱(chēng)為ClaSQL，選擇保存路徑然后點(diǎn)擊確定。在打開(kāi)的類(lèi)庫中添加以下代碼：

Imports System.Data.SqlClient
Public Class Class1
　Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")

　‘創(chuàng )建一個(gè)進(jìn)行查詢(xún)的過(guò)程
　Public Function Emp_Sel(ByVal lastname As String) As DataSet
　　scon.Open()
　　scon.Close()
　　‘定義命令對象，并使用儲存過(guò)程
　　Dim scom As New SqlCommand
　　scom.CommandType = CommandType.StoredProcedure
　　scom.CommandText = "Employess_Sel"
　　scom.Connection = scon
　　‘定義一個(gè)數據適配器，并設置參數
　　Dim sda As New SqlDataAdapter(scom)
　　sda.SelectCommand.Parameters.Add("@lastname", SqlDbType.NVarChar).Value = lastname
　　‘定義一個(gè)數據集對象，并填充數據集
　　Dim ds As New DataSet
　　Try
　　　sda.Fill(ds)
　　Catch ex As Exception
　　End Try
　　Return ds
　　End Function
End Class

　　四、引用中間數據層（類(lèi)庫）

　　在ClaSql項目上右擊，選擇生成，然后在WebSql項目的“引用”上右擊，選擇添加引用，再選擇項目，將ClaSql項目添加到選定的組件框中，然后點(diǎn)擊確定。

　　五、WebForm1.aspx窗體代碼設計

　　打開(kāi)WebSql項目下的WebForm1.aspx文件，雙擊Button按鈕打開(kāi)代碼窗口，完整的代碼如下：

Public Class WebForm1
　Inherits System.Web.UI.Page
　‘窗體代碼略
　‘搜索按鈕事件
　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　‘定義變量?jì)Υ嫖谋究虻妮斎?，出于安全的目的對其進(jìn)行轉換
　　Dim lastname As String = TextBox1.Text
　　lastname = lastname.Replace("&", "&")
　　lastname = lastname.Replace("<", "")
　　lastname = lastname.Replace(">", "")
　　lastname = lastname.Replace("‘", "’")
　　lastname = lastname.Replace("chr(13)", "<br>")
　　lastname = lastname.Replace("chr(10)", "<br>")

　　‘創(chuàng )建一個(gè)新的類(lèi)實(shí)例，并調用查詢(xún)過(guò)程綁定數據
　　Dim myCla As New ClaSql.Class1

　　DataGrid1.DataSource = myCla.Emp_Sel(lastname)
　　DataGrid1.DataBind()
　End Sub
End Class

　　六：注意事項

　　出于安全等方面考慮，在對數據庫操作中應盡量采取以下措施：

　　1、使用儲存過(guò)程

　　2、不要使用SA賬戶(hù)

　　3、要使用復雜賬戶(hù)的密碼

　　4、對于數據的插入、刪除等盡量使用不同的賬戶(hù)來(lái)操作，并對每個(gè)不同賬戶(hù)只設置相應的插入或刪除等權限

　　5、對數據庫的操作應該盡量將其封裝到中間層（類(lèi)庫）中，這樣即可以實(shí)現代碼的重用，也方便以后的進(jìn)行修改。