Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
<asp:DataGrid
id="dgResults"
Width=" 90%"
BackColor="beige"
AlternatingItemStyle-BackColor="cornsilk"
BorderColor="black"
ShowFooter=" false"
CellPadding=3,
CellSpacing="Q"
Font-Name=" Arial"
Font-Size="8pt"
ForeColor="Black"
Header Style-BaokColor="burlywood"
HeaderStyle-Font-Bold="True"
runat=" server ">
</asp:DataGrid>
-
Sub Page_Load (ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection ("Provider=sqloledb; " _
& "server=localhost; " _
& "Initial Catalog=INETC8; " _
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select Distinct KeyName From ServerVariables " _
& "Order By KeyName", DBConn)
DBCommand. Fill (DSPageData, _
"SVKeys")
ddlSV.DataSource = _
DSPageData. Tables ("SVKeys") .DefaultView
ddlSV.DataBindO
End if
End Sub
-
DBCommand = New OleDbDataAdapter _
("Select Distinct KeyName From ServerVariables " _
& "Order By KeyName", DBConn)
-
DBCommand.Fill(DSPageData, _
"SVKeys")
-
ddlSV.DataSource= _
DSPageData.Tables("SVKeys").DefaultView
ddlSV.DataBindO
-
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETCS;" & "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select KeyValue as [Значение переменной], " _
& "Count(ServerVariablelD) as [Количество обращений] " _
& "From ServerVariables Where KeyName = '" _
& ddlSV.Selectedltem.Text & "' Group By KeyValue " _
& "Order By Count(ServerVariablelD) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"Results")
d.gResults. DataSource = _
DSPageData.Tables("Results").DefaultView
dgResults.DataBind()
End Sub
-
DBCommand = New OleDbDataAdapter _
("Select KeyValue as [Значение переменной], " _
& "Count(ServerVariablelD) as [Количество обращений] " _
& "From ServerVariables Where KeyName = '" _
& ddlSV.Selectedltem.Text & "' Group By KeyValue "
& "Order By Count(ServerVariablelD) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"Results")
 |
 |
|
