API באקסס
-
מצפה לגדול,
Private Function SendRequest(ByVal strXML As String, ByVal strURL As String, ByVal strSoapAction As String) As Object 'Dim objDom As Object Dim objXmlHttp As Object Dim objRet As Object Dim strRet As String ' Create objects to DOMDocument and XMLHTTP Set objDom = CreateObject("MSXML2.DOMDocument") Set objRet = CreateObject("MSXML2.DOMDocument") Set objXmlHttp = CreateObject("MSXML2.XMLHTTP") ' Load XML objDom.async = False objDom.loadXML strXML ' Open the webservice objXmlHttp.open "POST", strURL, False ' Create headings 'objXmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8" 'objXmlHttp.setRequestHeader "SOAPAction", strSoapAction ' Send XML command On Error GoTo Err objXmlHttp.Send objDom.xml ' Get all response text from webservice strRet = objXmlHttp.responseText Debug.Print strRet If Not objRet.loadXML(strRet) Then Err.Raise objRet.parseError.ErrorCode, , objRet.parseError.reason End If ' Close object Set objXmlHttp = Nothing Set objDom = Nothing Set SendRequest = objRet Exit Function Err: ' SendRequest = Null Err.Raise 999, , "Err" End Functionכמו שדוד אמר בהתחלה, תצטרך קצת להכיר מושגים כמו פונקצייה, משתנה וכו'
זה יכול להיות התחלה מעניינת.רק שים לב שהקוד הנ"ל מתאים XML.
אם אתה רוצה JSON תצטרך לעשות קצת התאמה...(בזה (ולא רק בזה :)) אני מסכים עם דוד שיהיה שווה לממש עם דוטנט)
פורסם במקור בפורום CODE613 ב15/03/2017 15:00 (+02:00)
-
מצפה לגדול,
Private Function SendRequest(ByVal strXML As String, ByVal strURL As String, ByVal strSoapAction As String) As Object ... Err.Raise 999, , "Err" End Functionכמו שדוד אמר בהתחלה, תצטרך קצת להכיר מושגים כמו פונקצייה, משתנה וכו'
זה יכול להיות התחלה מעניינת.רק שים לב שהקוד הנ"ל מתאים XML.
אם אתה רוצה JSON תצטרך לעשות קצת התאמה...(בזה (ולא רק בזה :)) אני מסכים עם דוד שיהיה שווה לממש עם דוטנט)
תודה רבה!!
ניסיתי וזה עבד בערך...
(אני לא צריך XML, ואני לא יודע מה זה SoapAction)
תכלס, להחזיר מחרוזת, זה החזיר.
איך אני מעלה קבצים ב multipart או form-data
ואיך אני מוריד אותם?פורסם במקור בפורום CODE613 ב16/03/2017 13:13 (+02:00)
-
הרבה זמן לא ביקרתי פה, כל מיני טרדות, עיסוקים ונסיעות, תודה ששאלתם.
@מצפה לגדול
אני לא יודע מה זה SoapAction
@מצפה לגדול
איך אני מעלה קבצים ב multipart או form-data
ואיך אני מוריד אותם?אני ממליץ לך להתיידד בהקדם עם גוגל ועם השפה האנגלית הטכנית, מאופי השאלות נראה שאתה מתקדם מאוד לאט גם בהבנת המושגים.
אנחנו נשמח לעזור פה בפורום, ואקסס בכלל לא לצנינים בעינינו, אבל יותר מהיר ויעיל לדברים קטנים להשתמש בידע העצום שקיים ברשת.
בהצלחה מרובהפורסם במקור בפורום CODE613 ב16/03/2017 13:55 (+02:00)
-
ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?
פונקציית VBA?
כן
מאוד.
תודה מראש!!פורסם במקור בפורום CODE613 ב16/03/2017 21:21 (+02:00)
-
@מצפה לגדול
@CHAGOLD
ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?פונקציית VBA?
כן
מאוד.
תודה מראש!!אני יודע מה ה-API שאתה רוצה להשתמש בו.
נדמה לי שתכתוב אותו כאן שחור ע"ג לבן, כולל קישור לקובץ ההוא.
ואז יוכלו לעזור לך יותר.
בפרט שאחד הניקים שמגיבים לך כאן, ג"כ יודע במה מדובר.פורסם במקור בפורום CODE613 ב17/03/2017 12:30 (+02:00)
-
@CHAGOLD
ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?זה פונקצייה שמשתמשת בDLL או EXE חיצוני, או VBA טהור?
VBA טהור.
אם כי ההמרה מה-JSON שחוזר ל-VBA, לא מוצלחת במיוחד, אבל למה שהוא כנראה צריך זה עובד.. וגם אפשר לשפר אותו.פורסם במקור בפורום CODE613 ב17/03/2017 12:42 (+02:00)
-
לAPI של ימות המשיח.
לא רציתי להגיד כי זכרתי שיש על זה "צו איסור פרסום"
אבל ראיתי עכשיו, שהיום כבר זה פתוח לכולם.
למעשה, הצלחתי עם הקוד שהובא לעיל, לעשות פונקצייה של לוג-אין, ופונקציה שמעלה מספרים מטבלה במסד לרשימת תפוצה מסויימת.
מה שלא הצלחתי, זה להעלות קובץ (אפ' לא ב Advanced REST client) ולפענח איך אפשר לייבא JSON לאקסספורסם במקור בפורום CODE613 ב17/03/2017 13:14 (+02:00)
-
הפרנציפ של המרת json לקחתי מהקובץ הזה.
כיון שהJSON שמתקבל הוא שונה ממה שהאקסל הזה מקבל, הוספתי לזה המרה קטנה שיהיה יותר נח לעבוד איתו. (בכל מקרה הוא מקבל רק מערכים ברמה א' וזה לא מושלם). בהצלחה.
נ.ב. לענ"ד לא יעזור לך העלאת קבצים לדרובוקס, בשביל ימות המשיח.Public Function HAMARA(JSON_TEXT_IN As String) As String Dim TXTMP As String TXTMP = Replace(JSON_TEXT_IN, ": ", ":[") TXTMP = Replace(TXTMP, ": 0", ", 0") TXTMP = Replace(TXTMP, ": 1", ", 1") TXTMP = Replace(TXTMP, ": 2", ", 2") TXTMP = Replace(TXTMP, ": 3", ", 3") TXTMP = Replace(TXTMP, ": 4", ", 4") TXTMP = Replace(TXTMP, ": 5", ", 5") TXTMP = Replace(TXTMP, ": 6", ", 6") TXTMP = Replace(TXTMP, ": 7", ", 7") TXTMP = Replace(TXTMP, ": 8", ", 8") TXTMP = Replace(TXTMP, ": 9", ", 9") TXTMP = Replace(TXTMP, ",", "],") TXTMP = Replace(TXTMP, "}", "]},") HAMARA = TXTMP End Functionפורסם במקור בפורום CODE613 ב18/03/2017 21:05 (+02:00)
-
נ.ב. לענ"ד לא יעזור לך העלאת קבצים לדרובוקס, בשביל ימות המשיח.
כן יעזור.
אני רוצה להעלות קבצים.
(עם הקוד שהועלה פה הצלחתי רק להוריד קבצי טקסט)
או שמישהו יעזור לי להעלות קבצי טקסט עם הAPI הבא:https://www.call2all.co.il/ym/api/UploadFile&token=XXXXXXXXXXXXXXX&path=1.TXTלמעשה גם להוריד קבצים זה יעזור, להורדת קבצי .WAV
תודה רבהפורסם במקור בפורום CODE613 ב28/03/2017 16:25 (+03:00)
-
מסודר?...
הייתי תקוע ב-איך עושים משתנה String ...וודאי שזה משחק, ושם הדבר האמיתי,
אבל אתה לא מפרגן לי לשחק קצת?
אני מאמין שחלק מהמשתמשים כאן התחילו עם אקסס כדי להבין בכלל מה זה משתנה,
ואחרי שקלטו, הלכו ללמוד משהו שלא עושה חצי עבודה לבד (כל מה שקשור לצד הוויזואלי).
בכל אופן אני אוחז בלהבין מה זה IF.פורסם במקור בפורום CODE613 ב28/03/2017 17:31 (+03:00)
-
אני אסביר לך.
כעת אתה משחק עם string וIf באקסס. כשתקלוט טוב איך משתמשים איתם, לא תצא מאקסס.
לכם אני רוצה שאת המשחקים האלה תעשה בC#.
לגבי איך תהיה מסודר, אני הייתי כותב לך את הקוד בחינם עם סיפוק שאני מצרף מישהו למועדון.
אבל לטרוח בשבילך לVB אני מרגיש גם פראייר (זה פורום תכנות לא טרמפיאדה) וגם שאני דוחף אותך לבור עמוק.נ.ב. התוכנה ויזואל סטודיו מיטיבה לעזור לכתוב קוד פי עשרה מאשר הVBA של אקסס. אז גם בללמוד תכנות יהיה לך ייתרון.
פורסם במקור בפורום CODE613 ב28/03/2017 17:36 (+03:00)
-
מה אני אוכל לעשות בשלב הראשון?
מה שאני עושה עכשיו או פחות?פורסם במקור בפורום CODE613 ב28/03/2017 17:46 (+03:00)
-
לא בדיוק, בשלב הראשון תרגיש נמלה שלא יכולה לעשות כלום. כמה ימים אחרי זה אתה תוכל לעשות טיפה אבל אם תחושה שהרבה יותר פשוט באקסס, וכמה ימים אחרי זה תהיה משלנו... עד כאן התחזית
תתחיל. תוריד VS2017
תתקין (ברכיבים תעשה V על .Net desktop development וגם על ASP.NET and web development).פורסם במקור בפורום CODE613 ב28/03/2017 19:07 (+03:00)
-
סליחה על ההתערבות בנושא שלא קשור אלי, אבל זה מסקרן, פעם היו פה פוסטים שמשמיצים את דוטנט ומשבחים את אקסס, היום כל מי שמדבר על אקסס מקבל מיד המלצה לעבור לדוטנט, ואפילו גדולי המשמיצים דאז עובדים היום רק בדוטנט, מה קרה? דוטנט השתנתה או התפיסה השתנתה?
פורסם במקור בפורום CODE613 ב28/03/2017 20:48 (+03:00)
-
תראה, דוטנט ואקסס זה כמו השוואה אופניים ותפוזים כך שודאי שיש באקסס הרבה מה שאין בדוטנט. את אקסס הייתי מגדיר כתוכנה משרדית המאפשרת עבודה קלה מול נתונים - לאיש המשרד (לא למתכנת).
אבל למתכנת, וכאחד שרוצה להגיע לתוצאות גם אם עליו להישרף במדור המתכנתים אזי אני חושב שלכו"ע דוטנט היא המקום. גם גדולי האקסס פה לא טומנים ידם מלתכנת בדוטנט.
אפרופו, אתה גם מוזמן... להתקין את הVS2017, הIDE הטוב ביותר, גם לנוד...פורסם במקור בפורום CODE613 ב29/03/2017 00:13 (+03:00)
