קודים לתקשור עם מערכת טלפונית דרך אקסס

ביתר טהורה 0

מכיון ואני לא הצלחתי להבין מספיק את הפירוק של הטקסט לטבלה, לא הסתדרתי...

אשמח עם מישהו יעזור לי איך לייבא קובץ INI באמצעות האקסס הנל לטבלה במחשב
או שיעלה קובץ אקסס עם אפשרות לייבא קבצי INI (ולא רק קבצי ygmr)

THX

גבאי

@dudu כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:

@dudu אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:
@אריה אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:
במקרה בו רוצים לקבל את תוכן הטקסט ללא המרה לטבלה באקסס (כגון לקבצים שאינם בסיומת ymgr, קובץ ini למשל, אם רוצים 'לקרוא' הגדרות של שלוחה) אפשר לקרוא ישירות לפונקציה DownloadFile והופנקציה תחזיר את תוכן הקובץ
הפונקציה דורשת: מספר מערכת, סיסמה, כתובת הקובץ ושם הקובץ
דוגמא:
DownloadFile "0771234567","1234","/1","ext.ini"
@אריה היקר, אם אני רוצה אכן להוריד נתונים של קובץ ini אבל אני כן רוצה לאחסן אותם בטבלה, טבלה עם שדה אחד שבכל שורה מופיעה הגדרה אחת של הקובץ, וזאת כדי שאוכל לערות שינויים בקלות ולהעלות את הקובץ מחדש לאתר דרך הפונקציות המדהימות שבנית.
הבעיה שלי היא שלא הצלחתי ליצור טבלה כזו, הפונקציות שלך ליצירת טבלה מותאמות לקבצי ymgr המכילים % ו# האם יש לך אפשרות להעלות לכאן קוד היוצר טבלה מטקסט פשוט?

תודה רבה ויישר כח!!
כבר הסתדרתי, תודה.

סליחה על ההקפצה אבל אני צריך ג"כ כזה דבר להוריד קובץ ListAllInformation.ini לתוך טבלה
אריה נתן פונקציה של הורדת כזה קובץ אבל לא הסביר לאיפה נכנסים הנתונים אני מבין שאתה מצאת את התשובה אשמח אם תוכל לעזור לי בזה
תודה רבה

amp Software 0

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

Function importListAllInformation()

strtoken = "0770000000:1234"
Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0")
sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini"

xhrRequest.Open "GET", sURL, False
xhrRequest.Send
       
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write xhrRequest.ResponseBody
DoEvents

filePath = CurrentProject.Path & "\ListAllInformation.txt"
If Len(Dir(filePath)) Then Kill filePath
oStream.SaveToFile filePath
oStream.Close

filePath = CurrentProject.Path & "\ListAllInformation.txt"
DoCmd.SetWarnings False

TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'"))
If TableIsExists Then DoCmd.Rename "LAI_" & Now, acTable, "ListAllInformation"
DoCmd.TransferText acImportDelim, "", "ListAllInformation", filePath, True, , 65001
Kill filePath
MsgBox "בוצע בהצלחה", vbInformation, "בוצע"

End Function

תיצור כפתור בטופס כל שהוא שיקרא לפוקנציה, דוגמא:

Private Sub Import_Click()
importListAllInformation
End Sub

גבאי

@amp-Software-0 וואו
אין מילים
הצלת אותי

גבאי

@amp-Software-0 כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:

importListAllInformation

יש אפשרות שהטבלה תשאר אותה טבלה כל פעם ולא טבלה חדשה?
כי כרגע המערכת מזהה את הנתונים ומגדירה אותם כמספר ולא כטקסט. מה שגורם שאני לא יכול להשתמש בנתונים אלו להעלות אותם בחזרה כיון שהאקסס השמיט להם את הספרה 0
מה שצריך זה א. שכל הנתונים יוגדרו כטסקט. ב. שישאר על אותה טבלה כך אוכל לעשות גם העלאת הנתונים חזרה (אחרי שאעשה בהם הוספות וכדו')
תודה רבה רבה

amp Software 0

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

Function importListAllInformation()
 
strtoken = "0770000000:1234"
Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0")
sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini"
 
xhrRequest.Open "GET", sURL, False
xhrRequest.Send
       
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write xhrRequest.ResponseBody
DoEvents
 
filePath = CurrentProject.Path & "\ListAllInformation.txt"
If Len(Dir(filePath)) Then Kill filePath
oStream.SaveToFile filePath
oStream.Close
 
filePath = CurrentProject.Path & "\ListAllInformation.txt"
DoCmd.SetWarnings False
 
TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'"))
If TableIsExists Then  DoCmd.RunSQL "DELETE * FROM ListAllInformation"
DoCmd.TransferText acImportDelim, "", "ListAllInformation", filePath, True, , 65001
Kill filePath
MsgBox "בוצע בהצלחה", vbInformation, "בוצע"
 
End Function

גבאי

@amp-Software-0 עשיתי את זה וקיבלתי שגיאה האקסס הצהיב לי את השורה
DoCmd.RunSQL "SELETE * FROM ListAllInformation"

amp Software 0

@גבאי
היה לי שגיאת כתיב
תיקנתי כעת

גבאי

@amp-Software-0 תודה רבה רבה
אין לי מילים להודות לך
למעשה לא הצלחתי עדיין להתגבר על הבעיה שהוא משמיט את האפסים יש לך רעיון איך לפתור את זה? או שאני יסדר באקסס עצמו שיוסיף 0

תן חיוך 1

@גבאי
יכול להיות שזה יעזור לך

Function importListAllInformation()
 
strtoken = "0770000000:1234"
Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0")
sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini"
 
xhrRequest.Open "GET", sURL, False
xhrRequest.Send
       
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write xhrRequest.ResponseBody
DoEvents
 
filePath = CurrentProject.Path & "\ListAllInformation.txt"
If Len(Dir(filePath)) Then Kill filePath
oStream.SaveToFile filePath
oStream.Close
 
filePath = CurrentProject.Path & "\ListAllInformation.txt"
DoCmd.SetWarnings False
 
TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'"))
If TableIsExists Then  DoCmd.RunSQL "DELETE * FROM ListAllInformation"
DoCmd.TransferText acImportDelim , "", "ListAllInformation", filePath, True, , 65001, acImportText
Kill filePath
MsgBox "בוצע בהצלחה", vbInformation, "בוצע"
 
End Function

גבאי

@תן-חיוך-1 תודה רבה על העזרה
זה עושה לי שגיאה (שיניתי את המספר מערכת כמובן)

אליהו

אריה@
משום מה הורדת נתוני האזנה של כל החודש האקסס נתקע ולא זז וכן עשיתי הורדת נתונים עם המודול ymtImportFileFromServer וביקשתי להוריד את קובץ LogPlaybackPlayStop.2023.ymgr מהשלוחה שלו ואחרי קצת נהיה מסך שחור ונתקע

sararivka

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

sararivka

אני מקבל את השגיאה הבאה בקלאס WEBREESPONSE:

אליהו

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

תיקון טעות

@עמוד-הימני-פטיש-החזק זה לא עובד לשרת הרגיל