[VB.NET] การค้นหาข้อมูลอย่างรวดเร็วทันใจ (Quick Search)

thongkorn

สำหรับบทความนี้ แอดมินขอนำเสนอวิธีการค้นหาข้อมูลอย่างรวดเร็ว โดยการกดคีย์ หรือคำที่ต้องการ ระบบมันก็จะทำการประมวลผล Query ใหม่ เพื่อทำการค้นหาคำที่มีลักษณะใกล้เคียงกัน ด้วยคำสั่ง LIKE ... Visual Basic จะมีหลักการที่สำคัญ คือ Event/Driven ...
Event คือ เหตุการณ์ ในตัวอย่างนี้จะเกิดเหตุการณ์ที่ txtSearch_TextChanged โดยมีการกดคีย์ลงในช่อง TextBox แล้วเกิดการเปลี่ยนแปลงค่า
Driven คือ เมื่อเกิดเหตุการณ์ในการกดคีย์ แล้วจะให้มันไปทำอะไร ... นั่นคือ ค้นหาข้อมูล


LIKE Syntax
SELECT column1, column2, ...
FROM table_name
WHERE columnN LIKE pattern;

ตัวอย่าง การค้นหาคำที่ขึ้นต้นด้วยอะไรก็ได้ แต่ตามด้วย 'a'
SELECT * FROM Customers
WHERE CustomerName LIKE '%a';


ตัวอย่าง การค้นหาคำที่ขึ้นต้น หรือลงท้ายด้วยอะไรก็ได้ แต่มี 'a' อยู่ภายในนั้น
SELECT * FROM Customers
WHERE CustomerName LIKE '%a%';

เช่น '12a6599XYZ' หรือ 'a2222'  

หมายเหตุ: การที่เครื่องหมาย Single Quote ' ปิดหัวท้าย หมายความว่าเป็นการค้นหาข้อมูลแบบ String


ตัวอย่างของการใช้งานจริง ...

1.         Dim Statement As String = _
   
2.             " Select * FROM ProvinceData WHERE " & _
   
3.             " ProvinceName LIKE '%" & txtSearch.Text & "%'" & _
   
4.             " OR " & _
   
5.             " ShortThai LIKE '%" & txtSearch.Text & "%'" & _
   
6.             " OR " & _
   
7.             " ShortEng LIKE '%" & txtSearch.Text & "%'" & _
   
8.             " ORDER BY ProvincePK, ProvinceName "

คัดลอกไปที่คลิปบอร์ด

เป็นการค้นหาชื่อจังหวัด (ProvinceName) หรือ ชื่อจังหวัดไทยแบบย่อ (ShortThai) หรือ ชื่อจังหวัดอังกฤษแบบย่อ (ShortEng) ไปพร้อมๆกัน โดยมีการต่อเชื่อมเงื่อนไขด้วย OR (หรือ) โดยที่ Users ไม่จำเป็นที่จะมาเลือกก่อนว่า ต้องการค้นหาข้อมูลแบบไหน ...

มาดูโค้ดกันเถอะ ...

1. ' / --------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Quick search database by specifying the ProvinceName, ShortThai and ShortEng keyword.
   
8. ' / Microsoft Visual Basic .NET (2010) SP1
   
9. 
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------
    
13. 
    
14. Imports System.Data.OleDb
    
15. 
    
16. Public Class frmQuickSearch
    
17.     Dim Conn As OleDb.OleDbConnection
    
18. 
    
19.     Private Sub frmQuickSearch_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
20.         Me.CenterToScreen()
    
21.         txtSearch.Text = ""
    
22.         '/ Configure my DataBase Path
    
23.         Dim strPath As String = Application.StartupPath
    
24.         '/ strPath to Lower Case and Replace.
    
25.         strPath = strPath.ToLower.Replace("\bin\debug", "")
    
26. 
    
27.         '/ Connection String
    
28.         Dim strConn As String = _
    
29.             " Provider=Microsoft.ACE.OLEDB.12.0;" & _
    
30.             " Data Source = " & strPath & "ProvinceData.accdb; " & _
    
31.             " Persist Security Info=False;"
    
32. 
    
33.         Try
    
34.             '/ Connect DataBase
    
35.             Conn = New OleDb.OleDbConnection(strConn)
    
36.             '/ Conn.Open()
    
37.         Catch ex As Exception
    
38.             MsgBox(ex.Message, MsgBoxStyle.Information)
    
39.         End Try
    
40. 
    
41.     End Sub
    
42. 
    
43.     Private Sub txtSearch_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSearch.TextChanged
    
44.         '/ Cut off the characters unwanted.
    
45.         txtSearch.Text = txtSearch.Text.Replace("%", "").Replace("'", "").Replace("*", "")
    
46. 
    
47.         '/ Skip this sub if null value.
    
48.         If Trim(txtSearch.Text) = "" Or Len(Trim(txtSearch.Text)) = 0 Then Exit Sub
    
49.         '/ Set SQL statements
    
50.         Dim Statement As String = _
    
51.             " Select * FROM ProvinceData WHERE " & _
    
52.             " ProvinceName LIKE '%" & txtSearch.Text & "%'" & _
    
53.             " OR " & _
    
54.             " ShortThai LIKE '%" & txtSearch.Text & "%'" & _
    
55.             " OR " & _
    
56.             " ShortEng LIKE '%" & txtSearch.Text & "%'" & _
    
57.             " ORDER BY ProvincePK, ProvinceName "
    
58.         '/ Connect already in Form_Load
    
59.         If Conn.State = ConnectionState.Closed Then Conn.Open()
    
60. 
    
61.         Dim Cmd = New OleDbCommand(Statement, Conn)
    
62.         Dim DR As OleDbDataReader = Cmd.ExecuteReader
    
63.         Dim DT As New DataTable
    
64.         DT.Load(DR)
    
65.         dgvData.DataSource = DT
    
66.         DR.Close()
    
67.         Conn.Close()
    
68. 
    
69.     End Sub
    
70. 
    
71.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
    
72.         Me.Close()
    
73.     End Sub
    
74. 
    
75.     Private Sub frmQuickSearch_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
76.         Conn.Close()
    
77.         Me.Dispose()
    
78.         Application.Exit()
    
79.     End Sub
    
80. 
    
81. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ