Сайт создан по материалам книги Г. Бучека "Учебный курс по ASP.NET".
Москва: BHV, 2002.
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
Создатель сайта-выпускник курсов web-дизайнеров Сафоновского Колледжа Информационных Технологий Максим Котликов
-
<asp:CompareValidator
id="cvToDate"
ControlToValidate="txtToDate"
Operator="DataTypeCheck"
Type="Date"
Display="Dynamic"
Font-Size="10pt"
runat="server">
<br>B это поле следует ввести дату!
</asp:CompareValidator>
-
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBComraand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETCS;"
& "User Id=sa;"
5 "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select PageName as [Страница], " _
6 "Count(PageViewID) as [Количество обращений] From PageViews " _
& "Group By PageName " _
& "Order By Count(PageViewID) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"PageViews")
dgResults.DataSource = _
DSPageData.Tables("PageViews").DefaultView
dgResults.DataBind()
End If
End Sub
-
DBCommand = New OleDbDataAdapter _
("Select PagOjName as [Страница], " _
& "Count(PageViewID) as [Количество обращений] From PageViews " _
& "Group By PageName " _
& "Order ByCount(PageViewID) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"PageViews") ,
-
dgResults.DataSource = _
DSPageData.Tables("PageViews").DefaultView
dgResults.DataBind()
-
Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbCpnnection
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 PageName as [Страница], " _
& "Count(PageViewID) as [Количество обращений] From PageViews " _
& "Where DateEntered >= '" & txtFromDate.Text _
& "' And DateEntered <= '" & txtToDate.Text _
& "' Group By PageName " _
& "Order By Count(PageViewID) DESC", DBConn)
DBCommand.Fill(DSPageData, _
"PageViews")
dgResults.DataSource = _
DSPageData.Tables("PageViews").DefaultView
dgResults.DataBindO
IblMessage.Text = ""
End Sub
 |
 |
|
