מעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח **נפתר**
-
Dim order As Recordset Dim xhrRequset Dim url As String Dim res As String Set order = CurrentDb.OpenRecordset("'XXXXXXX") Set xhrRequest = CreateObject("MSXML2.XMLHTTP.6.0")Do Until order.EOF
'Url = "XXXXXXXXX?
xhrRequest.Open "GET", url, False
xhrRequest.Send
res = xhrRequest.responseText
Debug.Print url
Debug.Print xhrRequest.responseText -
@אליהו-בן הקוד שצירפת מבצע בקשות
GETלשרת אלמוניX, על פי רשימה מתוך הטבלה שנפתחת כ-order. במקרה שהנתונים בשרתXהשתנו, (ובהנחה הפשוטה שאין איזה שירותcacheמקומי פעיל), אתה אמור לקבל תוצאות עדכניות בכל פעם.אבל נראה לי שלא לכך התכוונת, אלא לשינויים שאתה עורך בטבלה שלך באקסס, ואינך רואה אותם משתקפים בשליחה (כלומר הרשימה לא מתעדכנת, ונשלחים אותם נתונים).
האם אני צודק?
-
פוסט זה נמחק!
-
@אליהו-בן אם אתה רוצה לרענן את הטופס כל כמה שניות/דקות, אתה יכול להגדיר בעיצוב טופס, במאפיין אירוע>בעת אירוע פסיקת שעון, את הקוד הבא:
me.form.refreshובמאפיין פסיקת שעון תכתוב כל כמה זמן אתה רוצה שזה יתרענן (זה עובד לפי מילישניות, כך שאם את רוצה שזה יקרה כל דקה אתה צריך לכתוב 60000)
-
@OdedDvir כתב במעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח:
@אליהו-בן הקוד שצירפת מבצע בקשות
GETלשרת אלמוניX, על פי רשימה מתוך הטבלה שנפתחת כ-order. במקרה שהנתונים בשרתXהשתנו, (ובהנחה הפשוטה שאין איזה שירותcacheמקומי פעיל), אתה אמור לקבל תוצאות עדכניות בכל פעם.אבל נראה לי שלא לכך התכוונת, אלא לשינויים שאתה עורך בטבלה שלך באקסס, ואינך רואה אותם משתקפים בשליחה (כלומר הרשימה לא מתעדכנת, ונשלחים אותם נתונים).
האם אני צודק?
כן אתה צודק, הרשימה בטבלאות לא מעדכנת את השרת!
האם יש מה לעשות? -
@אליהו-בן אתה צריך לגרום ל-Recordset לשקף את השינויים בנתונים תיכף כשהם קורים. יש כמה דרכים לעשות את זה, וזה תלוי באופן שבו השינויים בנתונים מתבצעים (האם זה עריכה בטופס, שינוי ישיר בטבלה או על ידי קוד שרץ ברקע), וגם באופן שבו הקוד האמור לעיל מופעל (לחיצה על פקד בטופס, וכו'). תפרט בבקשה במה מדובר ואנסה לעזור לך.
כדי שלא אעביר את זמני בניחושי סרק במה בדיוק מדובר, כמו שעשו כולם כאן, אני ממתין לגילוי אליהו
-
@OdedDvir כתב במעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח:
@אליהו-בן אתה צריך לגרום ל-Recordset לשקף את השינויים בנתונים תיכף כשהם קורים. יש כמה דרכים לעשות את זה, וזה תלוי באופן שבו השינויים בנתונים מתבצעים (האם זה עריכה בטופס, שינוי ישיר בטבלה או על ידי קוד שרץ ברקע), וגם באופן שבו הקוד האמור לעיל מופעל (לחיצה על פקד בטופס, וכו'). תפרט בבקשה במה מדובר ואנסה לעזור לך.
ראיתי את הקוד (דיברתי עם גילוי אליהו) והבעיה לכאורה נעוצה באובייקט -
Set xhrRequest = CreateObject("MSXML2.XMLHTTP.6.0")שמתקשר לדף האינטרנט.
לפי מה שהבנתי מאליהו השגיאה שם מתרחשת דווקא כשנתונים דומים מועלים לאתר פעמיים. כלומר שהשגיאה מתרחשת מחמת שהHTTP או השרת שם מבין שנתונים דומים לא אמורים להשלח ולכן הוא מתעלם מהבקשה.רענון הטופס או סגירה ופתיחה שלו לא עוזרים, רק סגירת אקסס ופתיחתו מחדש.
ראיתי את הקוד ולא הצלחתי לפתור...
-
@Y-Excel-Access ההסבר שהצעת לתופעה, שיש דחייה על ידי השרת של בקשות תדירות של נתונים דומים, לא מסביר מדוע סגירה ופתיחה מחדש של אקסס - כן מועילה?
לכן חשבתי שהבעייה היא בעדכון של הנתונים הקיימים באקסס.
אגב, הבקשה היאGETולא אמורה להעלות נתונים לשרת, רק למשוך ממנו. -
@OdedDvir כתב במעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח:
@Y-Excel-Access ההסבר שהצעת לתופעה, שיש דחייה על ידי השרת של בקשות תדירות של נתונים דומים, לא מסביר מדוע סגירה ופתיחה מחדש של אקסס - כן מועילה? לכן חשבתי שהבעייה היא בעדכון של הנתונים הקיימים באקסס.
אגב, הבקשה היא GET ולא אמורה להעלות נתונים לשרת, רק למשוך ממנו.אבל הRECORDSET עובד מצויין?
בזמנו בדקתי עם @אליהו-בן את השגיאה גם שורה אחר שורה... והכל עבד רק השרת פשוט לא עונה תשובה. -
@Y-Excel-Access מסתמא הRECORDSET עובד בדיוק כמו שהוא אמור לעבוד. השאלה היא מה אמרו לו לעשות... מה הכוונה במילים:
והכל עבד רק השרת פשוט לא עונה תשובה.
לא חזר כלום? חזרה אותה התגובה? חזרה שגיאה?
מתי יבוא אליהו ויתרץ? -
@OdedDvir כתב במעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח:
@Y-Excel-Access מסתמא הRECORDSET עובד בדיוק כמו שהוא אמור לעבוד. השאלה היא מה אמרו לו לעשות... מה הכוונה במילים:
והכל עבד רק השרת פשוט לא עונה תשובה.
לא חזר כלום? חזרה אותה התגובה? חזרה שגיאה?
מתי יבוא אליהו ויתרץ?אני מתנצל, אין לי כל הזמן גישה לפורום
לדעתי האקסס מחזיר את התשובה הקודמת הוא מחזיר מה שנאמר בפעם הקודמת -
@אליהו-בן כתב במעונין בקוד לאקסס שירענן נתונים כאילו סגר את האקסס ופתח:
לדעתי האקסס מחזיר את התשובה הקודמת הוא מחזיר מה שנאמר בפעם הקודמת
האם אתה יכול לוודא האם אתה אכן שולח בקשות שונות ועדיין מקבל עבורן תשובות זהות? קשה לי לקבל את הטענה שהשרת בודק האם הבקשות הרציפות דומות... הרבה יותר מסתבר לי לומר שהנתונים באקסס לא מתעדכנים בין השליחות, וממילא אתה שולח בדיוק את אותה הבקשה.
אם צדקתי, פרט את אופן העדכון והשליחה (כמו שציינתי בתגובה הראשונה שלי) ונוכל להתקדם.
-
@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") ...אני מציע שתנסה את הדרכים לעיל לפי הסדר, כי הראשונות עדיפות על האחרונות, ותעדכן אם הבעיה נפתרה ובאיזו דרך. בהצלחה!
-
