急！！！

[imports]

用VB写，使用参数查询，该怎样写？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Conn.Open()
Dim strSel As String = "select vcEvent from diary where vcEvent like @vcEvent"
Dim Cmd As New SqlCommand(strSel, Conn)
Cmd.Parameters.Add(New SqlParameter("@vcEvent", SqlDbType.VarChar))
Cmd.Parameters("@vcEvent").Value = txtValue.Text
Cmd.Parameters("@vcEvent").Size = 5
Dim Dreader As SqlDataReader
Dreader = Cmd.ExecuteReader
Dim DT As New DataTable()
Dim DR As DataRow

DT.Columns.Add(New DataColumn("Event"))
While Dreader.Read
DR = DT.NewRow
DR(0) = Dreader("vcEvent")
DT.Rows.Add(DR)
End While
DataGrid1.DataSource = DT
DataGrid1.DataBind()
End sub

[saucer]

Conn.Open()
Dim strSel As String = "select vcEvent from diary where vcEvent like '%" & txtValue.Text & "%'"
Dim Cmd As New SqlCommand(strSel, Conn)
Dim Dreader As SqlDataReader = Cmd.ExecuteReader

[hammerng00]

可以看看这个:
http://chs.gotdotnet.com/quickstart/aspplus/doc/webdataaccess.aspx#param

[spring_ok]

同saucer(思归) 的方法。非常简洁。
当然，如果要避免用户输入单引号而引起问题，可以这样做:
Dim strSel As String = "select vcEvent from diary where vcEvent like '%" & Replace(txtValue.Text,"'","''") & "%'"

[imports]

系统公告 发送时间 2003-5-8 18:58:23

下周一（5月12号）将进行强制结帖，作用范围是2003年1月1日以前发的未结帖子，一个

未结帖子扣帖主总信誉分1分，同时扣帖子所在版块信誉分1分。