הודעות שפורסמו על ידי אריה

@613 דוקא היום? והאם התקלה הנ"ל דוקא או תקלות אחרות?
באיזה שרת אתה משתמש?

@יעקב139
זה קוד קצר ובסיסי לשליחת בקשת GET דרך אקסס
תשלח את ה URL כפרמטר לקוד

Sub SendURL(strURL)
Dim Http As Object
Set Http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Http.Open "GET", strURL, False
Http.send
Debug.Print Http.responseText
End Sub

@חוויה-טלפונית
תודה. ניסיתי לשלוח במקביל גם אליהם
רציתי לברר גם אצל הלקוחות אם הן נתקלו בדבר כזה

שלום וברכה
יש לי שרת שמבצע ביום כ-2000 קריאות API לימות
הקריאות מבוצעות באמצעות פונקציית file_get_contents ב PHP
היום כ-20 מהקריאות חזרו עם שגיאת תקשורת :
php_network_getaddresses: getaddrinfo failed: Temporary failure in name resolution
אני מנסה להבין אם הבעיה היתה בצד של ימות או בצד שלי, [זה ודאי לא בעיה בסטרינג של הבקשה עצמה, כי אותה בקשה עברה בסדר דקה אחרי זה]
לפי איך שזה נשמע מחיפוש בגוגל זה נראה תקלה ב DSN של השרת אליו מנסים להתחבר
יתכן שעוד מישהו חווה היום תקלות עם קריאות API ?

@הלי דוגמא של תיקיה במערכת שלי...

@הלי לפני הניתוב צריך להזין ivr2:

@הלי מה הפירוש? מציינים את הנתיב
לדוגמא אם זה בשלוחה 3>4>2 כותבים 3/4/2
אם באים להעביר קובץ מוסיפים גם את השם עם הסיומת לדוגמא
3/4/2/file.wav

@הלי
כמו שיש שם בדוגמאות
שם משתמש, סיסמה, סוג פעולה (העתקה-copy, העברה-move, מחיקה-delete), נתיב מקור, נתיב יעד
בהעתקת קובץ אפשר לציין נתיב יעד כולל השם של הקובץ, באם לא הוזן שם הקובץ, הוא יקבל את המספר המקסימלי בשלוחה
במחיקת של קובץ \ שלוחה אין צורך לציין שום דבר בנתיב יעד
בהצלחה

@שלומו
תראה אם זה יעזור לך
https://f2.freeivr.co.il/topic/9290/העתקת-שלוחה-מאה-פעמים/22

@מתעניין
תעשה החלפה של EnterHebrewDate# ל EnterHebrewDate%
ולא בהכרח שזה הבעיה היחידה

@שמואל-ש
לבקשת רבים, ובהמשך לבקשה שלך (שכבר נענתה..)
מצו"ב קובץ להרצת פעולות שונות על קבצים בימות המשיח
צריך להכניס את הפרמטרים בטבלת FileAction (הוספתי שם כמה דוגמאות כדי שיהיה ברור הקונספט)
זה פחות ידידותי, אבל יותר דינמי
כמו"כ לא קופצת הודעה על כל פעולה, אלא רק בסוף, וגם הפעולות נרשמות בטבלת log עם ה URL שנשלח
אם יש מישהו שמעוניין לקחת את זה ולעשות את זה ידידותי יותר, בהצלחה
FilaAction.accdb

@מתעניין
זו בעיה שקיבלתי כמה פניות לגבה
מסתבר שהיה באג מסוים לימות המשיח שהם שמרו ערכים לא לפי הקידוד הקבוע דהיינו מפריד % כפסיק, ו # כשווה, אלא בשניהם הם עשו סולמית
וכן כפילות של המפריד %% מה שיוצר באג בהמרה של זה ל JSON
אני אישית הוספתי למודולים שביקשו ממני שורה שמחליפה ומתקנת את הקידוד השגוי

@תן-חיוך-1
ידידי
כתבתי את זה

ymtImportFileFromServer "0773137770","1234","/Points","points_total.ymgr","Points"

החזיר לי את זה

תבדוק טוב איפה הבעיה אצלך

@תן-חיוך-1
בדקתי אצלי זה מוריד מצויין

@גבאי הקובץ תומך בקבצים שצירפת
יתכן ועשית שינוי ידני בקוד ולכן הוא מחזיר שגיאה
תעלה את הגירסה של הקובץ שלך, או שתנסה להוריד מחדש את הקובץ המקורי

@מנסה בפוסט הראשון
עדכנתי את הקובץ המקורי
https://f2.freeivr.co.il/topic/167/קודים-לתקשור-עם-מערכת-טלפונית-דרך-אקסס

@אליהו
טיפלתי בבעיה שציינת ועדכנתי את הקובץ

@גבאי לא הסברת את עצמך נכון, חשבתי שאתה מתכוין בפקודה אחת להוריד את כולם
בשביל מה שאתה צריך אתה צריך ליצור שני תיבות טקסט בטופס, strMonth ו - strYear
בפקודה שמופעלת בלחיצה על כפתור 'הורדה'
תחליף את השורה

ymtImportFileFromServer UserName, Password, Folder, FileName, TableName, OnExists, Nz(RowToStart, 0), Nz(RowToEnd, 0)

לזה

ymtImportFileFromServer UserName, Password, Folder, "points_log." & strYear & "-" & strMonth & ".ymgr", TableName, OnExists, Nz(RowToStart, 0), Nz(RowToEnd, 0)

כמו"כ אתה צריך להחליף את השורה הראשונה

If IsNull(UserName) Or IsNull(Password) Or IsNull(Folder) Or IsNull(FileName) Or IsNull(TableName) Then MsgBox "יש למלא את כל השדות": Exit Sub

בזה

If IsNull(UserName) Or IsNull(Password) Or IsNull(Folder) Or IsNull(strYear) Or IsNull(strMonth) Or IsNull(TableName) Then MsgBox "יש למלא את כל השדות": Exit Sub

@גבאי
תריץ את הקוד בלולאה

months = Array("שם של הקובץ חודש1","שם של הקובץ חודש2",....)
for f = 0 to Ubound(months)
ymtImportFileFromServer UserName, Password, Folder, months(f), TableName, OnExists, RowToStart, RowToEnd, 
next

תחליף את הערכים הבאים:
UserName - מספר מערכת, Password - סיסמה, Folder - שלוחה בה מאוחסנים הקבצים, TableName - שם הטבלה בה לאחסון הנתונים, OnExists - איך להתנהג אם הטבלה קיימת (במקרה שלך יקרה ודאי כיון שאתה מייבא כמה קבצים לאותה טבלה, תבחר ב-2 או 3): 1 - מחיקת הטבלה הקיימת 2 - הוספת מספר רץ לשם הטבלה 3 ייבוא לתוך הטבלה הקיימת. RowToStart - שורה להתחיל, הכנס 0 כדי לייבא הכל, RowToEnd - שורה לסיום, הכנס 0 כדי לייבא הכל

@גבאי
במודול ImportingFiles בקוד ImportTextToTable
צריך להחליף את השורה הזאת

NamesFildsFile = GetNameFilds(strText)

ל-

NamesFildsFile = Array("Folder","Type","id",....)

וכן הלאה את כל רשימת השדות מופרדות בפסיק
כמובן זה ישנה את כל הקובץ, כך שלא תוכל להוריד קבצים נוספים

אם יהיה לי זמן אשתדל להעלות תיקון לקובץ שיכסה גם את המקרה הזה