文章点击次数怎么没有用?

Dim MyCommand2 As OleDbDataAdapter=new OleDbDataAdapter("update news set 点击=点击+1 where id='" & id & "'",MyCon1)

解决方案 »

  1.   

    和刚才的效果一样啊,没有什么区别! 是不是缺少执行语句~>?>????
      

  2.   

    哦，这就是你的语句吗？
    没有别的了？
    还得有
    dim ds as dataset
    MyCommand2.fill(ds,"dd")
      

  3.   

    全部代码:
    <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">&gt;&gt;&gt;02教技在线新闻中心 &nbsp;&nbsp;&nbsp;</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>
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <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> 
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;程序制做: <a href=http://www.soonhost.com target="blank">02教技  浪子</a></div>
    </body>
    </html>
    <%mycon1.Close()
    mycon1=Nothing %>
      

  4.   

    没全看你的代码。不过，感觉你是明显的 asp 
    的写法，在.net中最好不要用你这种方法，一定要前台
    后台分开
    <% runnat=server ‘加上这个看看
      

  5.   

    <%mycon1.Close()
    mycon1=Nothing %>
    与上面的都放在一起 还有language=vb
      

  6.   

    我是在asp的基础上改的~
    所以看上去是asp的写法!
      

  7.   

    你必须了解两者的不同
    在 .net 中是不支持这样的写法的
      

  8.   

    呵呵,我现在是初学者,我曾经在vs.net里稍微弄了点程序,生成的代码都看不懂~
      

  9.   

    OleDbConnection MyConnection = new OleDbConnection(MyConnString);
    OleDbDataAdapter MyComm1 = new OleDbDataAdapter(strComm1,MyConnection);
    OleDbCommandBuilder cb = new OleDbCommandBuilder(MyComm1);//添加这个 你试一下 如果不可以我就不知道  
      

  10.   

    好像没有执行MyCommand2的语法啊!
    感觉很乱,要我肯定用一个存储过程实现点击+1的功能,在页面里再调用以下存储过程.
    你试试:
    oledbconnection.open();
    MyCommand2.ExecuteNonQuery();
    oledbconnection.close();
      

  11.   

    就一个更新数据库的操作，楼主何必搞得这么复杂呢？
    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()