API באקסס

clickone

דוד זו הייתה הבקשה הראשונית שלו......
אנחנו אלו שהלכו רחוק..

פורסם במקור בפורום CODE613 ב15/03/2017 13:22 (+02:00)

clickone

@מצפה לגדול

יש למישהו קוד API כל שהוא באקסס?
(ולא באקסל)

הנה משהו....
חיוב אשראי.zip

פורסם במקור בפורום CODE613 ב15/03/2017 13:33 (+02:00)

מצפה לגדול

@דוד ל.ט.

@מצפה לגדול
יש למישהו קוד API כל שהוא באקסס?

(ולא באקסל)

איייי... אתה יכול לשנות את שם הניק שלך... איכזבתני.

לאט לאט...

@ClickOne

דוד זו הייתה הבקשה הראשונית שלו......
אנחנו אלו שהלכו רחוק..

עכשיו יש לי משהו ספיציפי לעשות.
אבל, בעז"ה.

@ClickOne

@מצפה לגדול
יש למישהו קוד API כל שהוא באקסס?

(ולא באקסל)

הנה משהו....

תודה רבה!

אני צריך API רגיל, ולא מוצפן או מה שיש באשראי שמצריך להתקין DLL מיוחד.
איך אפשר לעשות באקסס API פשוט, כמו שיש בהדגמה הפשוטה פה
https://internet-israel.com/מדריכים/rest/rest-הקדמה/

פורסם במקור בפורום CODE613 ב15/03/2017 14:46 (+02:00)

clickone

מצפה לגדול,

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)

dovid

@מצפה לגדול

לאט לאט...
עכשיו יש לי משהו ספיציפי לעשות.
אבל, בעז"ה.

אני התכוונתי ספציפית לדבר הזה תלמד C#.

פורסם במקור בפורום CODE613 ב15/03/2017 17:03 (+02:00)

מצפה לגדול

@ClickOne

מצפה לגדול,
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)

softs

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

@מצפה לגדול

אני לא יודע מה זה SoapAction

@מצפה לגדול

איך אני מעלה קבצים ב multipart או form-data
ואיך אני מוריד אותם?

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

פורסם במקור בפורום CODE613 ב16/03/2017 13:55 (+02:00)

chagold

ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?

פורסם במקור בפורום CODE613 ב16/03/2017 20:44 (+02:00)

מצפה לגדול

@CHAGOLD

ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?

פונקציית VBA?
כן
מאוד.
תודה מראש!!

פורסם במקור בפורום CODE613 ב16/03/2017 21:21 (+02:00)

chagold

@מצפה לגדול

@CHAGOLD
ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?

פונקציית VBA?
כן
מאוד.
תודה מראש!!

שלח לי מייל באישי

פורסם במקור בפורום CODE613 ב16/03/2017 23:44 (+02:00)

clickone

@CHAGOLD

ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?

זה פונקצייה שמשתמשת בDLL או EXE חיצוני, או VBA טהור?

פורסם במקור בפורום CODE613 ב17/03/2017 12:19 (+02:00)

www 0

@מצפה לגדול

@CHAGOLD
ספציפית להעלות ולהוריד קבצים יש לי API של דרובוקס. מעניין אותך?

פונקציית VBA?
כן
מאוד.
תודה מראש!!

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

פורסם במקור בפורום CODE613 ב17/03/2017 12:30 (+02:00)

chagold

@ClickOne

@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)

chagold

הפרנציפ של המרת 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

JsonBag 2.4.zip

פורסם במקור בפורום CODE613 ב18/03/2017 21:05 (+02:00)

מצפה לגדול

@CHAGOLD

נ.ב. לענ"ד לא יעזור לך העלאת קבצים לדרובוקס, בשביל ימות המשיח.

כן יעזור.
אני רוצה להעלות קבצים.
(עם הקוד שהועלה פה הצלחתי רק להוריד קבצי טקסט)
או שמישהו יעזור לי להעלות קבצי טקסט עם הAPI הבא:

https://www.call2all.co.il/ym/api/UploadFile&token=XXXXXXXXXXXXXXX&path=1.TXT

למעשה גם להוריד קבצים זה יעזור, להורדת קבצי .WAV
תודה רבה

פורסם במקור בפורום CODE613 ב28/03/2017 16:25 (+03:00)

dovid

אם היית שועה לעצתי, היית מסודר כבר יומיים אחרי פתיחת האשכול.

פורסם במקור בפורום CODE613 ב28/03/2017 17:02 (+03:00)

מצפה לגדול

מסודר?...
הייתי תקוע ב-איך עושים משתנה String ...

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

פורסם במקור בפורום CODE613 ב28/03/2017 17:31 (+03:00)

dovid

אני אסביר לך.
כעת אתה משחק עם string וIf באקסס. כשתקלוט טוב איך משתמשים איתם, לא תצא מאקסס.
לכם אני רוצה שאת המשחקים האלה תעשה בC#.
לגבי איך תהיה מסודר, אני הייתי כותב לך את הקוד בחינם עם סיפוק שאני מצרף מישהו למועדון.
אבל לטרוח בשבילך לVB אני מרגיש גם פראייר (זה פורום תכנות לא טרמפיאדה) וגם שאני דוחף אותך לבור עמוק.

נ.ב. התוכנה ויזואל סטודיו מיטיבה לעזור לכתוב קוד פי עשרה מאשר הVBA של אקסס. אז גם בללמוד תכנות יהיה לך ייתרון.

פורסם במקור בפורום CODE613 ב28/03/2017 17:36 (+03:00)

מצפה לגדול

מה אני אוכל לעשות בשלב הראשון?
מה שאני עושה עכשיו או פחות?

פורסם במקור בפורום CODE613 ב28/03/2017 17:46 (+03:00)

תחומים - פורום חרדי מקצועי

API באקסס