01.
02.
03. Dim sb As New StringBuilder()
04. sb.Remove(0, sb.Length)
05. sb.Append("SELECT pro_id,name,unit_price,categories,detail,stock")
06. sb.Append(" FROM Products")
07. sb.Append(" WHERE (name LIKE '%" & txtserchtxt.Text & "%')")
08.
09. Dim sqlproducts As String = sb.ToString()
10.
11. Dim com As New OleDbCommand()
12. Dim dr As OleDbDataReader
13.
14. With com
15. .CommandType = CommandType.Text
16. .CommandText = sqlproducts
17. .Connection = Conn
18.
19. .Parameters.Clear()
20. .Parameters.Add("name", OleDbType.VarChar).Value = txtserchtxt.Text.Trim()
21. dr = .ExecuteReader()
22. If dr.HasRows Then
23. dr.Read()
24. txtpro_id.Text = dr.GetString(dr.GetOrdinal("pro_id"))
25. txtname_p.Text = dr.GetString(dr.GetOrdinal("name"))
26. txtcategories_p.Text = dr.GetString(dr.GetOrdinal("categories"))
27. txtprice_p.Text = dr.GetString(dr.GetOrdinal("unit_price"))
28. txtdetail_p.Text = dr.GetString(dr.GetOrdinal("detail"))
29. txtstock_p.Text = dr.GetString(dr.GetOrdinal("stock"))
30.
31. Else
32.
33. MessageBox.Show("ไม่มีชื่อสินค้า ตามที่คุณต้องการ !!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)
34.
35. End If
36. End With
37. dr.Close()
