在博客中查询不同日期博客的代码
来源:互联网 发布:记录本软件 编辑:程序博客网 时间:2024/04/29 04:54
关键一点
在设置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
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
- 在博客中查询不同日期博客的代码
- 在博客中运行JavaScript代码的尝试
- Oracle中不同条件的日期查询
- Oracle中不同条件的日期查询
- 怎么在博客中加入统计代码?
- 测试如何在博客中加入代码
- 测试在csdn博客中插入代码
- 测试python代码在博客的显示
- 如何在CSDN博客中所贴的代码进行【代码块】显示
- 在日期字段上执行查询的不同效率
- 不同博客的使用体验
- 在以前的博客中提到
- Oracle中查询同一个日期字段,格式不同的问题
- 博客的相关代码!
- 让用户在应用中进入 App Store 打分的代码 转自:hager的博客
- 在163博客中保留格式粘贴C#代码
- 在CSDN博客中引用“CODE代码片”
- 测试一下在CSDN博客中插入代码
- 文字大比拼
- 熟悉C++标准库
- 外企工作日志15
- 最近的生活
- AJAX初探
- 在博客中查询不同日期博客的代码
- struts2 分析
- Vista注定微软必死
- delphi编写你的第一个com程序
- 给汉字标注音的程序代码
- gridview嵌套gridview
- struts2源码分析 serviceAction
- Acegi安全系统的配置
- “熊猫烧香”让“熊猫卫士”走开