API באקסס

מצפה לגדול

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

האם יש סיכוי שמישהו מסביר לי כאן,

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

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

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

אבי

יש הרבה מדריכים על API, אם אתה מחפש דווקא בעברית אתה יכול להתחיל מכאן.
יש כאן ספרייה שעושה הכל עם VBA מאקסס או אקסל, יש שם גם דוגמאות יפות ללמידה.

בהצלחה רבה

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

dovid

מה אתה יודע בVBA? אם אתה יודע לכתוב פרוצדורה (sub) ולהצהיר משתנים (dim) אז זה הזמן לגדול... ולעבור לשפת תכנות של ממש.
איזה? יהיה פה ויכוחים בין ההרים הרמים ואז תצא קרח מכאן ומכאן. אז לפני שיתעורר הויכוח רוץ ללמוד C#.

תוריד את הIDE (עורך הקוד) של Visual Studio 2017 ותתקין אותו.
תשאל פה או בגוגל איך עושים שלום עולם ותתקדם לאט לאט...

מצפה לראות אותך שרוף.
בהצלחה!

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

clickone

דוד, אני מניח שהוא רוצה לסלוק אשראי בAPI. (זו התחושה שלי...)
הנה מקום להתחיל בו....
http://code.613m.org/viewtopic.php?f=1&t=236

לגבי ההמשך, יכול להיות ש"מצפה לגדול" רוצה להישאר בינתיים שם, אז זה בסדר גמור. (אפשר לעשות דברים מקסימים עם אקסס [אם כי בתפיסה יש דברים הרבה יותר מוצלחים ונפלאים בשפות ופלטפורמות אחרות] יש דברים שפשוט אין טעם ללכת על משהו אחר מאקסס [ויסלחו לי החולקים עלי כאן...] )
וכמובן כשתרצה לגדול באמת אז C# מקום מצויין להתחיל בו. (גם NodeJs ועוד...)

אם לא התכוונת לסליקת אשראי, כמובן תוכל להעלות לכאן את הAPI וישתדלו לכוון אותך.... (יש כאן אנשים מדהימים )

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

dovid

אני מהמר שאפי' לסלוק לטבלאות אקסס, בלי ידע מוקדם, יגמרו את העבודה מהר יותר בC# מאשר בVBA.

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

clickone

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

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

dovid

לא הבנת. הכל על טהרת האקסס - הדוח יוצג שם.
אלא שללא קוד VBA (מלבד מה שנורא קשור לשם כמו סידור חזותי והעברת הפוקוס...).
כל קוד אחר לזוז לC#.

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

clickone

עם interop
נכון...
תקופה ארוכה הייתי עושה ככה. בהמון דברים.
עד שהתייאשתי מה regasm והתלות בפריימורק....
עדיין יש דברים שאני עושה ככה גם במערכות אקסס (לדוגמא ניתוח כל הברקודים בדף סרוק...)

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

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

dovid

שום אינטרפו (הארור...), אני מדבר על טבלאות (ע"י מרחב השמות Data.OleDbXxxx). מילוי שלהם וכל לוגיקה שקשורה אליהם.
למשל לשדר ולסלוק טבלה שלמה של חיובים ולרשום את התוצאות.

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

clickone

למי שאין ידע בדוט נט ואין הדברים עובדים שם, לדעתי זה יהיה ארוך משמעותי...

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

מצפה לגדול

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

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

dovid

@ClickOne

למי שאין ידע בדוט נט ואין הדברים עובדים שם, לדעתי זה יהיה ארוך משמעותי...

דיברתי ללא ידע מוקדם' ולהכיר את ADO של VBA לוקח לדעתי יותר זמן מלהכיר את ADO.NET.

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

dovid

@מצפה לגדול

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

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

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

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)

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

API באקסס