API באקסס
-
יש למישהו קוד API כל שהוא באקסס?
(ולא באקסל)פורסם במקור בפורום CODE613 ב15/03/2017 12:56 (+02:00)
-
@מצפה לגדול
יש למישהו קוד API כל שהוא באקסס?
(ולא באקסל)הנה משהו....
חיוב אשראי.zipפורסם במקור בפורום CODE613 ב15/03/2017 13:33 (+02:00)
-
@דוד ל.ט.
@מצפה לגדול
יש למישהו קוד API כל שהוא באקסס?(ולא באקסל)
איייי... אתה יכול לשנות את שם הניק שלך... איכזבתני.
לאט לאט...
דוד זו הייתה הבקשה הראשונית שלו......
אנחנו אלו שהלכו רחוק..עכשיו יש לי משהו ספיציפי לעשות.
אבל, בעז"ה.@מצפה לגדול
יש למישהו קוד API כל שהוא באקסס?(ולא באקסל)
הנה משהו....
תודה רבה!
אני צריך API רגיל, ולא מוצפן או מה שיש באשראי שמצריך להתקין DLL מיוחד.
איך אפשר לעשות באקסס API פשוט, כמו שיש בהדגמה הפשוטה פה
https://internet-israel.com/מדריכים/rest/rest-הקדמה/פורסם במקור בפורום CODE613 ב15/03/2017 14:46 (+02:00)
-
מצפה לגדול,
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)
