2
Answers

Search from database from multi-textbox !!

Mohit Kapoor

Mohit Kapoor

8y
1.3k
1
how to retrieve data from database using mutiple-texboxes ??
 
basically making  SQL query dynamically ?
(without LIKE operator)
example format this in image !!
as user may left some text-box empty but result must be show on basis of other filled text-boxes
 
Answers (2)
0
Nilesh Sawardekar

Nilesh Sawardekar

397 3.9k 400.3k 8y
  1. PrivateSubFilterData(strFilterAsString)
  2. DimiAsInteger
  3. DimjAsInteger
  4. DimstrSQLAsString
  5. DimfieldSQLAsString=""
  6. DimFldAsString=""
  7. DimsSampData()AsString
  8. DimstrSubSQLAsString=""
  9. DimcboFilter(6)AsString
  10. Dimcmb(6)AsString
  11. cboFilter(0)=cboMain.Text
  12. cboFilter(1)=cboCategory.Text
  13. cboFilter(2)=cboBrand.Text
  14. cboFilter(3)=cboDescription.Text
  15. cboFilter(4)=cboSize.Text
  16. cboFilter(5)=cboStyleCode.Text
  17. cboFilter(6)=cboColor.Text
  18. cmb(0)="MainCategory"
  19. cmb(1)="Category"
  20. cmb(2)="Brand"
  21. cmb(3)="Description"
  22. cmb(4)="sSize"
  23. cmb(5)="StyleCode"
  24. cmb(6)="Shade"
  25. Fori=0Tocmb.Count-1
  26. Ifcmb(i)=strFilterThen
  27. GoTodown
  28. EndIf
  29. Next
  30. :
  31. Forj=0Toi
  32. Ifj=0ThenfieldSQL=fieldSQL&","&"MainCategory='"&cboFilter(j)&"'"
  33. Ifj=1ThenfieldSQL=fieldSQL&","&"Category='"&cboFilter(j)&"'"
  34. Ifj=2ThenfieldSQL=fieldSQL&","&"Trim(Brand)='"&""&cboFilter(j)&"'"
  35. Ifj=3ThenfieldSQL=fieldSQL&","&"Description='"&cboFilter(j)&"'"
  36. Ifj=4ThenfieldSQL=fieldSQL&","&"sSize='"&cboFilter(j)&"'"
  37. Ifj=5ThenfieldSQL=fieldSQL&","&"StyleCode='"&cboFilter(j)&"'"
  38. Ifj=6ThenfieldSQL=fieldSQL&","&"Shade='"&cboFilter(j)&"'"
  39. Next
  40. sSampData=Split(fieldSQL,",")
  41. Forj=1ToUBound(sSampData)
  42. strSubSQL=strSubSQL&"AND"&sSampData(j)
  43. Next
  44. strSubSQL=Mid(strSubSQL,6)
  45. Forj=i+1TocboFilter.Count-1
  46. Ifj=0ThenFld="MainCategory"
  47. Ifj=1ThenFld="Category"
  48. Ifj=2ThenFld="Brand"
  49. Ifj=3ThenFld="Description"
  50. Ifj=4ThenFld="[sSize]"
  51. Ifj=5ThenFld="StyleCode"
  52. Ifj=6ThenFld="[Shade]"
  53. strSQL="SelectDistinct"&Fld&"FromProductMasterWhere"&strSubSQL
  54. Ifcmb(j)="MainCategory"ThenCallFillCombo(cboMain,strSQL,Fld,0)
  55. Ifcmb(j)="Category"ThenCallFillCombo(cboCategory,strSQL,Fld,0)
  56. Ifcmb(j)="Brand"ThenCallFillCombo(cboBrand,strSQL,Fld,0)
  57. Ifcmb(j)="Description"ThenCallFillCombo(cboDescription,strSQL,Fld,0)
  58. Ifcmb(j)="sSize"ThenCallFillCombo(cboSize,strSQL,Fld,0)
  59. Ifcmb(j)="Stylecode"ThenCallFillCombo(cboStyleCode,strSQL,Fld,0)
  60. Ifcmb(j)="Shade"ThenCallFillCombo(cboColor,strSQL,Fld,0)
  61. Next
  62. EndSub
Update your code using above logic
Accepted
0
Krishna Rajput Singh

Krishna Rajput Singh

NA 4.9k 5.1m 8y