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

关键一点

在设置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