VB Code :: ค้นหาตัวอักษรอะไรก็ได้
VB Code :: ค้นหาตัวอักษรอะไรก็ได้
sb.Append(" WHERE (Goods_Des LIKE @Goods_Des)")
Dim sqlSearch As String = sb.ToString()
With com
.CommandType = CommandType.Text
.CommandText = sqlSearch
.Connection = Conn
.Parameters.Clear()
.Parameters.Add("@Goods_Des", SqlDbType.NVarChar).Value = "%" & txtSearch.Text.Trim() & "%"
dr = .ExecuteReader()
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
dgvGoods.DataSource = dt
txtGoodsID.Text = dt.Rows(0).Item("Goods_ID").ToString()
txtGoodsDes.Text = dt.Rows(0).Item("Goods_Des").ToString()
txtGoodsRate.Text = dt.Rows(0).Item("Goods_Rate").ToString()
Else
MessageBox.Show("ไม่มีข้อมูลที่ค้นหา", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
dgvGoods.DataSource = Nothing
ClearAllData()
txtSearch.Focus()
txtSearch.SelectAll()
End If
End With
dr.Close()
Dim sqlSearch As String = sb.ToString()
With com
.CommandType = CommandType.Text
.CommandText = sqlSearch
.Connection = Conn
.Parameters.Clear()
.Parameters.Add("@Goods_Des", SqlDbType.NVarChar).Value = "%" & txtSearch.Text.Trim() & "%"
dr = .ExecuteReader()
If dr.HasRows Then
dt = New DataTable()
dt.Load(dr)
dgvGoods.DataSource = dt
txtGoodsID.Text = dt.Rows(0).Item("Goods_ID").ToString()
txtGoodsDes.Text = dt.Rows(0).Item("Goods_Des").ToString()
txtGoodsRate.Text = dt.Rows(0).Item("Goods_Rate").ToString()
Else
MessageBox.Show("ไม่มีข้อมูลที่ค้นหา", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
dgvGoods.DataSource = Nothing
ClearAllData()
txtSearch.Focus()
txtSearch.SelectAll()
End If
End With
dr.Close()
Permissions in this forum:
คุณไม่สามารถพิมพ์ตอบ
|
|