| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 530 人关注过本帖
标题:有没有高手帮我修改一下下面的程序啊!急用!
只看楼主 加入收藏
bingshi8645180
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2008-1-5
收藏
 问题点数:0 回复次数:0 
有没有高手帮我修改一下下面的程序啊!急用!
1.我想要在datalist1中点击文章的分类,然后在datalist2中显示该分类的所有文章,可是用以下代码点击文章分类后永远都是显示没有相关文章,请问这是怎么回事啊?datalist1的数据源是datasource1,datalist2的数据源是datalist2.
Dim str As String
str = Request.QueryString("ClassId")
If String.IsNullOrEmpty(str) Then
DataList2.DataSourceID = SqlDataSource2.ID
Else
DataList2.DataSourceID = SqlDataSource3.ID
If DataList2.Items.Count = 0 Then
Label2.Text = "没有相关文章!"
End If
End If
2.点击刚才的datalist2的一个标题后将进入文章浏览页面,我先创建了一个oledbdataadapter对象,然后利用该对象的fill方法将查询的内容填充至dataset对象中,最后利用label和div控件显示dataset对象中的数据.可是敲入以下代码后编译报错"语法错误 (操作符丢失) 在查询表达式 'id=' 中"
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn &= "Data Source=" + Server.MapPath("blog.mdb")
Dim oleDbConn As OleDbConnection
oleDbConn = New OleDbConnection(strConn)

Dim oleAdp As OleDbDataAdapter
oleAdp = New OleDbDataAdapter("select*from blog where id=" + Request.QueryString("Id"), oleDbConn)
Dim ds As Data.DataSet = New Data.DataSet
oleAdp.Fill(ds, "blog")(它说这句有问题?)
Dim dr As Data.DataRow
dr = ds.Tables("blog").NewRow()
dr = ds.Tables("blog").Rows.Item(0)

Label1.Text = dr("title").ToString()
DIV1.InnerHtml = toHtml(dr("content").ToString())
Label2.Text = "[发布时间:" + dr("date") + "]"
3.下面是发表文章的页面,将文章内容写入数据库,可是当写入的时候会这样报错"INSERT INTO 语句的语法错误。"
If TextBox1.Text = "" Then

End If
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn &= "Data Source=" + Server.MapPath("blog.mdb")
Dim oleDbConn As OleDbConnection
oleDbConn = New OleDbConnection(strConn)

Dim oleDbCmd As OleDbCommand = oleDbConn.CreateCommand()
Dim strCmd As String = "insert into" & "blog(title,content,date,classId) Values('"
strCmd &= TextBox1.Text + "','" + TextBox2.Text + "','" + DateTime.Now.ToString() + "','"
strCmd &= DropDownList1.SelectedValue + "')"
= strCmd

oleDbConn.Open()
Dim i As Integer = oleDbCmd.ExecuteNonQuery()(就说的是这句)
oleDbConn.Close()

Response.Redirect("NewsMag.aspx")
以上问题能回答几个就回答几个,急用!以上是我用visual studio 2005 做的,语言是vb.
2008-01-05 11:59
快速回复:有没有高手帮我修改一下下面的程序啊!急用!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020174 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved