Mời các bạn đam mê VBA cùng nhau giải bài toàn Tìm Kiếm và Lọc dưới đây để giúp một bạn trong Forum
1/ Cấu trúc File
- Table tblCustomer chỉ có một field CompanyName chứa danh sách khách hàng thân thuộc của Công ty
- Table tblResult chỉ có một field Match
- Form frmFinter có một textbox txtValue và một button btnFind
2/ Yêu cầu bài toán và lời giải
- Nhập một cụm từ khóa vào ô textbox txtValue trên form. Cụm từ khóa có độ dài bất kỳ tư 1 đến 5 từ, Sau khi nhấn button btnFind thì Lọc tắt cả các khách hàng có các từ trùng với tất cả các từ của cụm từ khóa dù cho nó nằm ở bất kỳ vị trí nào rồi append vào tblRessult
3/ Ví dụ : Cụm từ khóa "xây dựng Bình An" thì kết quả sau append là
Công ty TNHH xây dựng Bình An
Công ty đâu tư xây dựng và thương mại An Binh Nam
Công ty cổ phần dịch vụ xây dựng Hoàng Bình An
....
P/s : Đưa ra biện pháp (Thuật toán ) để giải và viết code cho btnFind

Phải thừa nhận bài toán của bác khó thật.

Giải thuật chưa test nhé anh Thanh.

- Đưa tất cả từ khoá vô mảng (dùng hàm Split).
- Duyệt từng phần tử mảng và nối chuỗi SQL tìm kiếm.
Vd: 

(08-09-21, 10:43 PM)ongke0711 Đã viết: Giải thuật chưa test nhé anh Thanh.

- Đưa tất cả từ khoá vô mảng (dùng hàm Split).
- Duyệt từng phần tử mảng và nối chuỗi SQL tìm kiếm.
Vd: 

Mã PHP:

arrTuKhoa = Split(txtValue, " ")
sSQL = Select CompanyName From tblCustomer Where 1=1"
sWhere = ""
For i=0 to Ubound(arrTuKhoa)
    sWhere = sWhere &  " AND CompanyName  Like '*" & arrTuKhoa(i) & "*'"
Next i
sSQL = sSQL & sWhere

CurrentDB.Execute "INSERT INTO tblResult " &  sSQL, dbFailOnError 


Bài toán này sao cụ Xuân thanh không tư vấn cho bạn ý dùng listbox, vì thực sự chạy query như vậy sẽ làm tốn tài nguyên, vì listbox có thuộc tính recordsource hiện ngay lên!

(08-09-21, 11:12 PM)paulsteigel Đã viết: Ông Kẹ phải dùng OR mới đúng chứ, sao lại là AND

Tại thấy đề bài có ghi "có các từ trùng với tất cả các từ của cụm từ khóa dù cho nó nằm ở bất kỳ vị trí nào" nên em suy ra là phải cùng lúc có đủ các từ => AND

(08-09-21, 11:34 PM)ongke0711 Đã viết:

(08-09-21, 11:12 PM)paulsteigel Đã viết: Ông Kẹ phải dùng OR mới đúng chứ, sao lại là AND

Tại thấy đề bài có ghi "có các từ trùng với tất cả các từ của cụm từ khóa dù cho nó nằm ở bất kỳ vị trí nào" nên em suy ra là phải cùng lúc có đủ các từ => AND

Tôi xóa câu comment đó rùi - mắt nhanh hơn não! giờ già nên đọc mà não không kịp kiểu ông Kẹ ạ!

(08-09-21, 10:43 PM)ongke0711 Đã viết: Giải thuật chưa test nhé anh Thanh.

- Đưa tất cả từ khoá vô mảng (dùng hàm Split).
- Duyệt từng phần tử mảng và nối chuỗi SQL tìm kiếm.
Vd: 

Mã PHP:

arrTuKhoa = Split(txtValue, " ")
sSQL = Select CompanyName From tblCustomer Where 1=1"
sWhere = ""
For i=0 to Ubound(arrTuKhoa)
    sWhere = sWhere &  " AND CompanyName  Like '*" & arrTuKhoa(i) & "*'"
Next i
sSQL = sSQL & sWhere

CurrentDB.Execute "INSERT INTO tblResult " &  sSQL, dbFailOnError 


Giải thuật thì OK rồi nhưng hình như cái sSQL có vấn đề, ongke nói rõ hơn cho bạn í hiểu không?

(08-09-21, 11:12 PM)paulsteigel Đã viết: Bài toán này sao cụ Xuân thanh không tư vấn cho bạn ý dùng listbox, vì thực sự chạy query như vậy sẽ làm tốn tài nguyên, vì listbox có thuộc tính recordsource hiện ngay lên!

Dùng Listbox thì hiện ngay kết quả nhưng chắc vì bạn í muốn dùng cho công việc khác nữa nên mới phải Insert vô table khác để dùng

(09-09-21, 12:31 AM)Xuân Thanh Đã viết: Giải thuật thì OK rồi nhưng hình như cái sSQL có vấn đề, ongke nói rõ hơn cho bạn í hiểu không?

Code:


Không biết nó báo lỗi gì về biến sSQL vậy anh Thanh?

Giải thích code:
- Muốn tìm tên Cty có chứa từ khoá thì dùng Like "*Từ khoá*". Do đó tìm lần lượt từng Record xem record nào có từ khoá đang gõ.
- Muốn tìm tên Cty trùng với tất cả các từ khoá đã gõ thì dùng toán tử AND nối từng chuỗi SQL 
- Sau khi nối chuỗi thì câu lệnh SQL nó ra như sau:

(09-09-21, 11:04 AM)ongke0711 Đã viết:     arrTuKhoa = Split(Me.txtValue)
    sSQL = "Select CompanyName From tblCustomers Where 1=1"
    

Ông kẹ ơi, không cần thiết phải có 1=1 đâu, chỉ cần sqlWhere = mid(sqlWhere,4) để bỏ từ khóa AND đầu chuỗi đi. Nếu để 1=1 thì tốc độ sẽ bị chậm chút ít. Lệnh execute sẽ chạy theo điều kiện mà ông kẹ làm rồi! Có tìm được thì đẩy vào, không có thì thôi!