在博客中查询不同日期博客的代码

关键一点

在设置datasource的时候，必须先清空datasourceid,二者不能同时存在。

 

Sub date_selected() Sub date_selected(ByVal sender As Object, ByVal e As EventArgs) Handles Calendar1.SelectionChanged        Label1.Visible = True        Label1.Text = Calendar1.SelectedDate        Dim con As OleDbConnection        Dim comm As OleDbCommand        Dim strsql As String        Dim oda As New OleDbDataAdapter        Dim oledata As DataSet        Dim mytable As String                        strsql = "select [log_id],[log_Title], [log_Intro], [log_Content], [log_Author], [log_PostYear], [log_PostMonth], [log_PostDay], [log_PostTime], [log_Weather], [log_CateID], [log_From], [log_CommNums], [log_ViewNums], [log_QuoteNums], [log_IsShow] FROM [blog_Content] where [log_PostYear]=? and [log_PostMonth]=? and [log_PostDay]=? order by [log_id] desc"                con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath("~app_datap-blog.mdb"))        comm = New OleDbCommand(strsql, con)                comm.Parameters.AddWithValue("tyear", CInt(Year(Calendar1.SelectedDate)))        comm.Parameters.AddWithValue("tmonth", CInt(Month(Calendar1.SelectedDate)))        comm.Parameters.AddWithValue("tday", CInt(Day(Calendar1.SelectedDate)))                        oda.SelectCommand = comm        oledata = New DataSet        mytable = "blog_content"                oda.Fill(oledata, mytable)                GridView1.DataSourceID = ""                GridView1.DataSource = oledata.Tables(mytable).DefaultView        GridView1.DataBind()                        End Sub