?? ex30-1vb.aspx
字號:
<% @ Page Language="VB" Debug="true" %>
<% @ Import Namespace="System.Data" %>
<% @ Import Namespace="System.Data.SqlClient" %>
<html>
<head>
<title>第三十例 Sql Server數據庫中的存儲過程</title>
<Script Language="VB" Runat="Server">
'定義myProStr字符串用以聯結Sql數據庫
Dim myProStr As String = "server=cm\cm;Trusted_Connection=yes;database=model"
'創建數據聯結對象實例
Dim myConn As SqlConnection
'頁面提交更新時執行的代碼
public Sub page_load(sender as Object,e as EventArgs)
'if語句用來控制顯示數據控件的可見性
if not page.ispostback then
div1.visible = false
else
div1.visible = true
Button1.visible = false
end if
End Sub
'按鈕控件的事件
public Sub btn1_click(sender as Object,e as EventArgs)
'創建命令集對象，數據集對象
Dim myAda As SqlDataAdapter
Dim myDataSet as DataSet = new DataSet()
'定義整型變量mid為DropDownList控件被選項的值
Dim mid as integer = 0
'創建同數據庫的聯結
myConn = New SqlConnection(myProStr)
myAda = New SqlDataAdapter("pro_all", myConn)
'設置命令對象類型為存儲過程
myAda.SelectCommand.CommandType = CommandType.StoredProcedure
'在命令集中定義參數，并接收數據庫返回的存儲過程的輸出
myAda.SelectCommand.Parameters.Add(New SqlParameter("@count", SqlDbType.Int))
myAda.SelectCommand.Parameters("@count").Direction = ParameterDirection.Output
'將查詢結果存入DataSet
myAda.Fill(myDataSet,"member1")
'顯示數據記錄條數
Label1.Text = System.Math.Ceiling(myAda.SelectCommand.Parameters("@count").Value)
'自定義一個數據表，用于綁定DropDownlist
Dim i as integer
Dim myDataTable = new DataTable
Dim myColumn as DataColumn
Dim myRow as DataRow
myColumn = new DataColumn
myColumn.DataType = System.Type.GetType("System.Int32")
myColumn.ColumnName = "Mid"
myColumn.Unique = true
myDataTable.Columns.Add(myColumn)
myColumn = new DataColumn
myColumn.DataType = System.Type.GetType("System.Int32")
myColumn.ColumnName = "ID"
myColumn.Unique = true
myDataTable.Columns.Add(myColumn)
for i = 1 to myAda.SelectCommand.Parameters("@count").Value
myRow = myDataTable.NewRow()
myRow("Mid") = i
myRow("ID") = myDataSet.Tables("member1").Rows(i-1)("id")
myDataTable.Rows.Add(myRow)
Next
'將DropDownlist控件選項值先賦給mid變量
mid=DropDownList1.Selecteditem.value-1
'DropDownList控件數據綁定
DropDownList1.DataSource = myDataTable.DefaultView
DropDownList1.DataTextField="ID"
DropDownList1.DataValueField="MID"
DropDownList1.DataBind()
'重新修改DropDownList控件的被選項為mid
DropDownList1.SelectedIndex = mid
'將指定記錄數據再次存入DataSet
myAda.fill(myDataset,mid,1,"member2")
'兩個DataGrid控件的數據綁定
DataGrid1.DataSource=myDataSet.Tables("member1").DefaultView
DataGrid1.DataBind()
DataGrid2.DataSource=myDataSet.Tables("member2").DefaultView
DataGrid2.DataBind()
End Sub
</script>
</head>
<body>
<h3><font face="Verdana">第三十例 Sql Server數據庫中的存儲過程</font></h3>
<form runat=server>
<Asp:button id="Button1" runat="server" text="執行存儲過程>>" onClick="btn1_click"/><br><br>
<div id=div1 runat=server>
本表中存儲了<font size=+1 color=red><asp:Label id="Label1" runat="server" /></font>條記錄<br><br>
全表中的記錄顯示如下：<br>
<ASP:DataGrid id="DataGrid1" runat="server" BorderColor="black" BorderWidth="1" GridLines="Both" CellPadding="3" CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" AlternatingItemStyle-BackColor="#eeeeee" /><br><br>
其中ID=<asp:DropDownList id=DropDownList1 AutoPostBack=true runat=server OnSelectedIndexChanged=btn1_click>
<asp:ListItem value=1 Selected=true></asp:ListItem>
</asp:DropDownlist>的記錄為：
<ASP:DataGrid id="DataGrid2" runat="server" BorderColor="black" BorderWidth="1" GridLines="Both" CellPadding="3" CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" AlternatingItemStyle-BackColor="#eeeeee" />
</div>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -