文章点击次数怎么没有用?
我在上面加上了
Dim MyCommand2 As OleDbDataAdapter=new OleDbDataAdapter("update news set 点击=点击+1 where id="&id,MyCon1)
当然,变量我全部已经定义过了,是不是没有执行sql语句,那么执行sql语句的语言又是什么呢?
谢谢高手的指点,我.net是一点都不懂的啊!
问题点数:20、回复次数:19Top
1 楼smx717616(又笨又不努力)回复于 2004-05-04 08:35:34 得分 5
Dim MyCommand2 As OleDbDataAdapter=new OleDbDataAdapter("update news set 点击=点击+1 where id='" & id & "'",MyCon1)
Top
2 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-04 08:39:26 得分 0
和刚才的效果一样啊,没有什么区别!
是不是缺少执行语句~>?>????Top
3 楼smx717616(又笨又不努力)回复于 2004-05-04 08:46:05 得分 0
哦,这就是你的语句吗?
没有别的了?
还得有
dim ds as dataset
MyCommand2.fill(ds,"dd")
Top
4 楼smx717616(又笨又不努力)回复于 2004-05-04 08:47:19 得分 0
哦哦,可能不对,你把代码都贴上来,我看看Top
5 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-04 08:48:25 得分 0
全部代码:
<html>
<head>
<% @import namespace = "system.data"%>
<% @import namespace = "system.data.oledb"%>
<%
id=request("id")
dim time as string
dim hit as string
dim i as integer
dim title as string
dim sql as string
dim sqlcount as string
Dim ds as Dataset = New DataSet()
dim content as string
dim mycon1 as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("news/news.mdb"))
mycon1.open()
sql="select * from news where id="&id
Dim MyCommand2 As OleDbDataAdapter=new OleDbDataAdapter("update news set 点击=点击+1 where id='" & id & "'",MyCon1)
Dim Adapter2 as New OleDbDataAdapter( sql, mycon1)
Adapter2.Fill(ds, "news")
Dim dtable1 As DataTable = ds.Tables("news")
Dim row1 as DataRow = dtable1.NewRow()
title=ds.Tables("news").Rows(0)("标题").ToString
content=ds.Tables("news").Rows(0)("内容").ToString
time=ds.Tables("news").Rows(0)("时间").ToString
hit=ds.Tables("news").Rows(0)("点击").ToString
%>
<title>00</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFFF" link="#000000">
<table width="400" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
<td width="316" height="16" background="mmto.gif">
<table width="256" border="0" cellpadding="0" cellspacing="0" background="image/mmto.gif">
<tr>
<td width="241" background="image/mmto.gif">>>>02教技在线新闻中心 </td>
<td width="15" background="image/mmto.gif">
<div align="right"></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td >
<table width="499" border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<td width="498" class="p3"><br>
<%=title%></td>
</tr>
<tr align="center">
<td>
<div >
<hr size="1" width="85%">
<br>
</div>
<div align="center"></div>
</td>
</tr>
<tr>
<td> <div align="center"></div><br><br>
<%=content%> </td>
</tr>
<tr>
<td height="56">
<div align="center"><br>
<br>
</div>
</td>
</tr>
<tr>
<td>
<div align="center"><font color="#666666"><font color="#999999">[<%=time%>]</font></font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="17">
<table width="421" border="0" cellpadding="0" cellspacing="0" background="mmto.gif">
<tr>
<td width="170" background="image/mmto.gif">本条消息被浏览了<font color="#FF3333">[<%=hit%>]</font>回</td>
<td width="9" background="image/mmto.gif">
<div align="center"></div>
</td>
<td width="242" background="image/mmto.gif">
<p align="right"><a href="javascript:window.close()">关闭本窗口 </a></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<center>
程序制做: <a href=http://www.soonhost.com target="blank">02教技 浪子</a></div>
</body>
</html>
<%mycon1.Close()
mycon1=Nothing %>
Top
6 楼smx717616(又笨又不努力)回复于 2004-05-04 09:02:43 得分 0
没全看你的代码。不过,感觉你是明显的 asp
的写法,在.net中最好不要用你这种方法,一定要前台
后台分开
<% runnat=server ‘加上这个看看Top
7 楼smx717616(又笨又不努力)回复于 2004-05-04 09:03:54 得分 0
<%mycon1.Close()
mycon1=Nothing %>
与上面的都放在一起 还有language=vbTop
8 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-04 09:09:29 得分 0
我是在asp的基础上改的~
所以看上去是asp的写法!
Top
9 楼smx717616(又笨又不努力)回复于 2004-05-04 09:16:10 得分 0
你必须了解两者的不同
在 .net 中是不支持这样的写法的Top
10 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-04 09:20:07 得分 0
呵呵,我现在是初学者,我曾经在vs.net里稍微弄了点程序,生成的代码都看不懂~
Top
11 楼smx717616(又笨又不努力)回复于 2004-05-04 09:24:16 得分 0
我也是刚学的,呵呵
多看看书就好了Top
12 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-04 10:18:56 得分 0
up,
期待 解决~Top
13 楼njxiaod(宁静小豆)回复于 2004-05-04 10:31:09 得分 5
OleDbConnection MyConnection = new OleDbConnection(MyConnString);
OleDbDataAdapter MyComm1 = new OleDbDataAdapter(strComm1,MyConnection);
OleDbCommandBuilder cb = new OleDbCommandBuilder(MyComm1);//添加这个 你试一下 如果不可以我就不知道
Top
14 楼aspdonnet()回复于 2004-05-04 11:34:24 得分 0
看看vs.net的web配置(Application)Top
15 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-04 17:01:40 得分 0
没有用啊,
Top
16 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-04 22:46:21 得分 0
UPTop
17 楼erlzj(徐州师大--皮皮鲁)回复于 2004-05-05 16:47:31 得分 0
22Top
18 楼gd301chb(天蓝)回复于 2004-05-05 16:59:05 得分 5
好像没有执行MyCommand2的语法啊!
感觉很乱,要我肯定用一个存储过程实现点击+1的功能,在页面里再调用以下存储过程.
你试试:
oledbconnection.open();
MyCommand2.ExecuteNonQuery();
oledbconnection.close();Top
19 楼tiannet(http://tiannet.yculblog.com)回复于 2004-05-05 17:43:06 得分 5
就一个更新数据库的操作,楼主何必搞得这么复杂呢?
dim strSql as string
dim myRead as OleDbDataReader
dim mycon1 as new oledbconnection("provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("news/news.mdb"))
mycon1.open()
sql="select * from news where id="&id
dim myCommand as OleDBCommand
myCommand = myCon1.CreateCommand()
myCommand.CommandText = strSql
myRead = myCommand.ExecuteReader()
while(myRead.Read())
'读取数据
myRead.Close()
strSql = "update news set 点击=点击+1 where id='" & id & "'"
myCommand.CommandText = strSql
myCommand.ExecuteNonQuery();
myConn1.Close()Top




