שאילתה בשימוש פקד ADO
רשמתי את הקוד הבא dept = InputBox("הקש סוג התמחות של הרופא", "סוג התמחות") dept = Trim(dept) If dept <> "" Then Adodoc.RecordSource = "SELECT * FROM doctors WHERE special =" & dept & "" Adodoc.Refresh If Adodoc.Recordset.EOF = True Then Adodoc.RecordSource = "SELECT * FROM doctors" Adodoc.Refresh MsgBox "!!!הרשומה לא נמצאה", vbExclamation Else MsgBox " הרשומה התמחות " & dept & " נמצאה!!! ", vbExclamation End If Else MsgBox "!!!תיבת הקלט ריקה נסה שנית", vbExcl כשהוא מבצע את פקודת הרענון בשאילתה הראשונה נותן הודעת שגיאה "לא ניתן ערך עבור אחד או יותר מבין הפרמטרים הדרושים" מה המשמעות ואיך אני פותר את הבעיה?
רשמתי את הקוד הבא dept = InputBox("הקש סוג התמחות של הרופא", "סוג התמחות") dept = Trim(dept) If dept <> "" Then Adodoc.RecordSource = "SELECT * FROM doctors WHERE special =" & dept & "" Adodoc.Refresh If Adodoc.Recordset.EOF = True Then Adodoc.RecordSource = "SELECT * FROM doctors" Adodoc.Refresh MsgBox "!!!הרשומה לא נמצאה", vbExclamation Else MsgBox " הרשומה התמחות " & dept & " נמצאה!!! ", vbExclamation End If Else MsgBox "!!!תיבת הקלט ריקה נסה שנית", vbExcl כשהוא מבצע את פקודת הרענון בשאילתה הראשונה נותן הודעת שגיאה "לא ניתן ערך עבור אחד או יותר מבין הפרמטרים הדרושים" מה המשמעות ואיך אני פותר את הבעיה?