درخواست راهنمایی برای Ado.net

[amir_3d_mad]

من میخوام وقتی کاربر وارد صفحه خبر میشه با یک تابع تعداد بازدید از اون خبر +1 بشه .
یعنی در تابع زیر :

[LEFT]    Private Sub AddHit(ByVal newsid As String)
        Dim Conn As New Data.OleDb.OleDbConnection("---")
        Conn.Open()
        Dim strSqlQuery As String = "UPDATE [coding_news] SET [newsCounter] =" & (???) & " WHERE [newsID] =" & newsid
        Dim objComm As New Data.OleDb.OleDbCommand(strSqlQuery, Conn)
        objComm.ExecuteNonQuery()
        Conn.Close()
        Conn.Dispose()
    End Sub[/LEFT]

به جای (???) چی قرار بدم تا این اتفاق بیفته ؟
در ضمن من شماره اون خبر رو از طریق QueryString دریافت میکنم و در اون صفحه فقط یک خبر وجود داره .
یعنی میخوام وقتی کاربر دکمه "ادامه خبر" رو کلیک میکنه ، وارد صفحه دیگه بشه و هنگام ورود ، شماره Counter اون خبر به اضافه ی 1 بشه .

 

[hoseinimajd]

[LTR]

select [newsCounter] from [coding_news] where WHERE [newsID] =@@@

[/LTR]​

این دستور رو اول اجرا کن و نتیجه رو بریز توی یک متغیر Integer
بعدش به اضافه 1 کن
بعد اون متغییر رو جایگزین ؟؟؟ کن
البته به جای @@@ باید newsID رو از Address bar بخونی
البته اگر از Sql استفاده می کردی توی یک درخواست می تونستی همه ی این کارها رو باهم انجام بدی
راستی یادت باشه چون خروجیت فقط یک عدد هستش برای اجرا کردن Command از دستور ExecuteScalar استفاده کن
موفق باشی

 

[amir_3d_mad]

[LEFT]"UPDATE [news] SET newsCounter = newsCounter + 1 WHERE [newsID] =" & newsid[/LEFT]

جواب داد . خیلی ممنون .
یه مشکل دیگه دارم :
برای اینکه بین اخبار جستجو بزارم از کد زیر استفاده کردم ، ولی کار نکرد :

[LEFT]    Private Sub fillrptsearch(ByVal SearchText As String)
        Dim conn As New Data.OleDb.OleDbConnection("---")
        conn.Open()
        Dim ds As New Data.DataSet
        Dim adapt As New Data.OleDb.OleDbDataAdapter("SELECT * FROM [news] WHERE ( newsText LIKE '%' +" & SearchText & "+ '%')", conn)
        adapt.Fill(ds, "coding_news")
        rptdetails.DataSource = ds
        rptdetails.DataBind()
    End Sub
    Protected Sub newsSearchButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim SearchText As String = newsSearch.Text.ToString
        fillrptsearch(SearchText)
    End Sub[/LEFT]

به نظرتون مشکلش چی میتونه باشه ؟
موقع جستجوی عدد این ارور رو میده :

[LEFT]
Operand type clash: int is incompatible with ntext[/LEFT]

موقع جستجوی حروف هم مینویسه :

[LEFT]Invalid column name 'رشته مورد جستجو'[/LEFT]