מעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח **נפתר**
-
@OdedDvir
בדקתי את זה שוב מול מי שפיתח את האקסס
להלן נתוני הבדיקה שהעלנו, וזה נותר בגדר תעלומה:יש לי לינק מסויים שכאשר אני שולח אותו הוא מוחק נתון מטבלה כל שהיא על השרת,
כאשר אני שולח אותו דרך הדפדפן שוב ושוב הוא מוחק אותו ללא כל בעיה
כאשר אני שולח אותו דרך האקסס, אז בפעם הראשונה שאני שולח אחרי פתיחת הקובץ הוא עובד מצויין, כלומר שולח את הבקשה, ומחזיר לי אישור שהפעולה בוצעה
החל מהפעם השניה הוא שולח את אותה בקשה בדיוק (בדקנו על ידי דיבוג) ומחזיר את אותה תגובה בדיוק אבל הנתון לא נמחק
רק אחרי סגירה של הקובץ ופתיחתו מחדש הוא עובד שוב כראוי, פעם אחת..נקודות חשובות:
- אם אני משכפל את הקובץ ושולח מקובץ A ואח"כ שולח מקובץ B זה עובד כראוי (שוב, פעם אחת בקובץ B), כלומר לא הנקודה סגירת הקובץ, אלא יותר פתיחה ואתחול שלו מחדש
- אם אני משכפל את הטופס עצמו זה עדיין לא עובד טוב בפעם השניה
- גם אחרי הפעלה פעם אחת דרך האקסס, עדיין מתאפשר לשלוח דרך הדפדפן את הבקשה וזה עובד כראוי
- כמו שאפשר לראות אני משתמש לשליחת הבקשות באובייקט MSXML2.XMLHTTP
אין לי אפשרות לשאול את בעל השרת.. צריך לנחש מה עומד מאחורי התנהגות מוזרה זו..
זה נשמע שהוא חוסם את ביצוע הפעולה אחרי שהיא נשלחה מהפעלת אקסס כלשהיא (למרות שהוא כן שולח אישור שהפעולה בוצעה..) ומאפשר רק כאשר יש הפעלה אחרת של אקסס -
@אליהו-בן השאלה שלך סיקרנה אותי לחפור קצת בנידון.
כנראה שהאובייקט שלMSXML2.XMLHTTPמפעיל מנגנון מטמון של הבקשות והתגובות, מה שמסביר את התופעה לעיל בדיוק, כי כל מופע של אקסס משוייך לאותו סשן על ידי המערכת.יש כמה הצעות לפיתרון, מהקל לכבד:
- להוסיף את הכותרות הבאות לאובייקט כשאתה יוצר אותו, בתקווה שהשרת יכבד אותן:
Set xhrRequest = CreateObject("MSXML2.XMLHTTP.6.0") xhrRequest.setRequestHeader "pragma", "no-cache" xhrRequest.setRequestHeader "Cache-Control", "no-cache, no-store" Do Until order.EOF ...- להשתמש באובייקט החלופי
WinHttp.WinHttpRequest.5.1, שלא משתמש במטמון. שמות המתודות הנדרשות בו זהים לשמות שבאובייקטMSXML2.XMLHTTP.6.0, דהיינו:
Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") Do Until order.EOF 'Url = "XXXXXXXXX? httpRequest.Open "GET", url, False httpRequest.Send res = httpRequest.responseText- "לעבוד" על המנגנון של המטמון, ולגרום לו לחשוב שבכל פעם מדובר בבקשה שונה לחלוטין, על ידי הוספה של פרמטר "בובה" (dummy) המכיל מספר אקראי, כך:
' תריץ את הפקודה הזו פעם אחת בתחילת ההפעלה של התוכנה שלך Randomize ... ' ואז בקוד של השליחה ' יצירת מספר מ-1 עד 100000 Dim dummyNumber As Long dummyNumber = Int((99999) * Rnd) + 1 ' הוספת הפרמטר לבקשה xhrRequest.Open "GET", url, False & "&dummy=" & dummyNumber- אם כלו כל הקיצין: תוכל לנקות את המטמון לפני כל הפעלה (על ידי קריאה ל-API של Windows) וכך לכפות יצירת סשן חדש בכל פעם.
תדביק את הקוד הבא במודול חדש:
Public Declare PtrSafe Function InternetSetOptionStr Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer Public Sub ClearInternetCache() InternetSetOptionStr 0, 42, 0, 0 End Subובקוד של השליחה תקרא למתודה שיצרת לעיל, לפני השליחה:
ClearInternetCache Set xhrRequest = CreateObject("MSXML2.XMLHTTP.6.0") ...אני מציע שתנסה את הדרכים לעיל לפי הסדר, כי הראשונות עדיפות על האחרונות, ותעדכן אם הבעיה נפתרה ובאיזו דרך. בהצלחה!
-
-
@OdedDvir כתב במעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח **נפתר**:
כנראה שהאובייקט של MSXML2.XMLHTTP מפעיל מנגנון מטמון של הבקשות והתגובות, מה שמסביר את התופעה לעיל בדיוק, כי כל מופע של אקסס משוייך לאותו סשן על ידי המערכת.
@OdedDvir אלוף!
הסימנים והרמזים היו לשם... אבל רק אחד מצא את המטמון!
