דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. נתונים לאקסס מאנדרואיד

נתונים לאקסס מאנדרואיד

מתוזמן נעוץ נעול הועבר תוכנה
18 פוסטים 7 כותבים 700 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א מנותק
    א מנותק
    ארי
    כתב ב נערך לאחרונה על ידי ארי
    #1

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

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

    צדיק תמיםצ A0533057932A 2 תגובות תגובה אחרונה
    0
    • dovidD מנותק
      dovidD מנותק
      dovid ניהול
      כתב ב נערך לאחרונה על ידי
      #2

      https://tchumim.com/topic/10748
      זה אפשרי, בסיבוכים כנראה
      אני לא מוצא מקום שמדבר על זה כהצלחה, אבל אני זוכר שזה שייך

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

      מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

      בכל נושא אפשר ליצור קשר dovid@tchumim.com

      א תגובה 1 תגובה אחרונה
      0
      • א מנותק
        א מנותק
        ארי
        השיב לdovid ב נערך לאחרונה על ידי
        #3

        @dovid כתב בנתונים לאקסס מאנדרואיד:

        אתה צריך ללמוד קצת תכנות לאינטרנט

        איזה סוג של תכנות?
        נשמע לי קצת מורכב לבנות אתר/אפליקציה בשביל זה.

        תגובה 1 תגובה אחרונה
        0
        • dovidD מנותק
          dovidD מנותק
          dovid ניהול
          כתב ב נערך לאחרונה על ידי dovid
          #4

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

          מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

          בכל נושא אפשר ליצור קשר dovid@tchumim.com

          א תגובה 1 תגובה אחרונה
          1
          • א מנותק
            א מנותק
            ארי
            השיב לdovid ב נערך לאחרונה על ידי
            #5

            @dovid כתב בנתונים לאקסס מאנדרואיד:

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

            זה נשמע מעניין בהחלט.
            מאיפה להתחיל?

            תגובה 1 תגובה אחרונה
            0
            • dovidD מנותק
              dovidD מנותק
              dovid ניהול
              כתב ב נערך לאחרונה על ידי
              #6

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

              מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

              בכל נושא אפשר ליצור קשר dovid@tchumim.com

              תגובה 1 תגובה אחרונה
              1
              • צדיק תמיםצ מנותק
                צדיק תמיםצ מנותק
                צדיק תמים
                השיב לארי ב נערך לאחרונה על ידי
                #7

                @ארי כתב בנתונים לאקסס מאנדרואיד:

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

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

                Don’t comment bad code — rewrite it." — Brian W. Kernighan and P. J. Plaugher"
                טיפים

                תגובה 1 תגובה אחרונה
                1
                • A מנותק
                  A מנותק
                  avi rz
                  כתב ב נערך לאחרונה על ידי
                  #8

                  לגבי Google Forms הייתי ממליץ על AppSheet שהוא יכול לייצר לך טפסים אם פעולות מגוונות (אוטומציות)- חשוב לציין גם בחינמי זה מספק מאוד ומרשים.
                  במאמר מוסגר (אם כבר מדברים על AppSheet הייתי ממליץ לך לעבור לגמרי לזה. אממה יכול להיות שאתה מפיק הרבה דוחות עם מגוון שאילתות ופעולות מורכבות - א"כ מובן מאליו להישאר בקונספציה - בנימה אישית אני גם סובל מזה)
                  תכלס': הייתי ממליץ לך לבדוק את הקוד של Google Script אני חושב שתוכל לייצר לינק שמביא לך נתונים מ Google Sheets - א"כ תוכל לייצר קוד כזה של כמה שורות בקלות, ותוכל אפי' להיעזר ב ChatGPT
                  בהצלחה.

                  תגובה 1 תגובה אחרונה
                  1
                  • א מנותק
                    א מנותק
                    ארי
                    כתב ב נערך לאחרונה על ידי
                    #9

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

                    @dovid אתה חושב שקוד נוד יהיה יעיל יותר מVBA? איפה לכתוב אותו - בגוגל סקריפט?
                    אפשר בבקשה מראי מקומות שאני אתחיל לבדוק מה אני מבין לבד.

                    שוב תודה!

                    תגובה 1 תגובה אחרונה
                    0
                    • dovidD מנותק
                      dovidD מנותק
                      dovid ניהול
                      כתב ב נערך לאחרונה על ידי dovid
                      #10

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

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

                      מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

                      בכל נושא אפשר ליצור קשר dovid@tchumim.com

                      תגובה 1 תגובה אחרונה
                      1
                      • א מנותק
                        א מנותק
                        ארי
                        כתב ב נערך לאחרונה על ידי
                        #11

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

                        Public Function GetNewData()
                        Dim XL As Excel.Application, WB As Excel.Workbook
                        Dim WKS As Excel.Worksheet
                        Dim path As String
                        
                        'קובץ האקסל עם חיבור לגוגל שיטס
                        path = "C:\Users\1\Downloads\חוברת1.xlsm"
                        
                        'פתח את קובץ האקסל כדי לרענן את הנתונים
                        Set XL = New Excel.Application
                        XL.Visible = False
                        Set WB = XL.Workbooks.Open(path)
                        Set WKS = WB.Worksheets(1)
                        WKS.QueryTables.Item(1).Refresh
                        
                        'המתן לסיום הריענון
                        Sleep (2000)
                        
                        'יבא את הנתונים לטבלה חדשה זמנית
                        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "חדשים", path, True
                        
                        'סגור את הקובץ ונקה את המשתנים
                        WB.Close False
                        
                        Set XL = Nothing
                        Set WB = Nothing
                        Set WKS = Nothing
                        
                        'יבא נתונים חדשים מהטבלה הזמנית לטבלת הנתונים
                        CurrentDb.Execute "INSERT INTO נתונים SELECT חדשים.* FROM חדשים LEFT JOIN נתונים ON (חדשים.תאריך = נתונים.תאריך) AND (חדשים.טלפון = נתונים.טלפון) AND (חדשים.[שם פרטי] = נתונים.[שם פרטי]) AND (חדשים.[שם משפחה] = נתונים.[שם משפחה]) AND (חדשים.[חותמת זמן] = נתונים.[חותמת זמן]) WHERE (((נתונים.[חותמת זמן]) Is Null))"
                        
                        'מחק את הטבלה הזמנית
                        DoCmd.DeleteObject acTable, "חדשים"
                        
                        End Function
                        

                        כמו שאמרתי, ברור שזה לא דרך המלך, אבל כרגע זה מה שאני יודע.
                        מה דעתכם על זה?
                        תודה.

                        A תגובה 1 תגובה אחרונה
                        2
                        • dovidD מנותק
                          dovidD מנותק
                          dovid ניהול
                          כתב ב נערך לאחרונה על ידי dovid
                          #12

                          @ארי זכרתי שכבר היו דברים מעולם,
                          מצאתי את זה https://tchumim.com/topic/5853
                          https://tchumim.com/topic/12436
                          הפעם באמת נזהרת ופתחת נושא בקטגוריה תוכנות ולא בתכנות 🙂
                          אגב הAppSheet שהביא @avi-rz אכן שווה בדיקה.

                          מנטור אישי למתכנתים (ולא רק) – להתקדם לשלב הבא!

                          בכל נושא אפשר ליצור קשר dovid@tchumim.com

                          תגובה 1 תגובה אחרונה
                          1
                          • A מנותק
                            A מנותק
                            avi rz
                            השיב לארי ב נערך לאחרונה על ידי
                            #13

                            @ארי כתב בנתונים לאקסס מאנדרואיד:

                            עשיתי במחשב קובץ אקסל עם חיבור נתונים לשיטס

                            איך? ע"י פרסום באינטרנט? להוי ידוע שזה פתוח לכל מאן דבעי - בלי הרשאות גישה.

                            אגב, ("הצעה רעיונית - ללא נסיון") אם מדובר במחשב יחיד שמשתמש אפשר לנסות להתקין את הGoggleDrive על המחשב ולנסות לייבא את הקובץ (אם הוא יצליח למרות שהוא לא בפורמט xlsx כנראה - אולי בפורמט txt או html)

                            א תגובה 1 תגובה אחרונה
                            1
                            • א מנותק
                              א מנותק
                              ארי
                              השיב לavi rz ב נערך לאחרונה על ידי
                              #14

                              @avi-rz כתב בנתונים לאקסס מאנדרואיד:

                              איך? ע"י פרסום באינטרנט?

                              אכן

                              @avi-rz כתב בנתונים לאקסס מאנדרואיד:

                              להוי ידוע שזה פתוח לכל מאן דבעי - בלי הרשאות גישה.

                              אני יודע. אבל בשביל להכנס לקובץ צריך לדעת את הURL שלו. לא? ולמה שמישהו ינחש אותו?

                              @avi-rz כתב בנתונים לאקסס מאנדרואיד:

                              צעה רעיונית - ללא נסיון"

                              מעניין. ננסה.

                              תגובה 1 תגובה אחרונה
                              0
                              • מנחםמ מנותק
                                מנחםמ מנותק
                                מנחם
                                כתב ב נערך לאחרונה על ידי מנחם
                                #15

                                מצורף קוד שמוריד את הנתונים מגוגל שיטס שפורסם באינטרנט כקובץ CSV

                                שימו לב לשנות את הדברים הבאים

                                1. כתובת הקובץ כמובן
                                2. שם הטבלה
                                3. לייצר את הטבלה
                                Option Compare Database
                                
                                
                                Public Function CorrectHebrew(gibberish As String) As String
                                
                                  Dim inStream As ADODB.Stream
                                
                                  Set inStream = New ADODB.Stream
                                  inStream.Open
                                  inStream.Charset = "ISO-8859-1"
                                  inStream.WriteText gibberish
                                  inStream.Position = 0 ' bring it back to start preparing for the ReadText
                                  inStream.Charset = "UTF-8"
                                  CorrectHebrew = inStream.ReadText ' return the corrected text
                                  inStream.Close
                                
                                End Function
                                
                                
                                
                                
                                Private Function GetFileFromWeb2(ByVal sURL As String) As String
                                
                                    '* Requires Tools->References->Microsoft WinHTTP Services, version 5.1
                                
                                    Dim oWinHttp As WinHttp.WinHttpRequest
                                    Set oWinHttp = New WinHttp.WinHttpRequest
                                
                                
                                    oWinHttp.Open "GET", sURL, False
                                    
                                    oWinHttp.SetRequestHeader "Accept-Language", "he-IL,he;q=0.9,en-US;q=0.8,en;q=0.7"
                                    oWinHttp.SetRequestHeader "Content-Type", "text/csv"
                                    
                                    oWinHttp.Send
                                   
                                    GetFileFromWeb2 = CorrectHebrew(oWinHttp.ResponseText)
                                
                                
                                End Function
                                
                                
                                
                                
                                
                                Private Sub פקודה38_Click()
                                
                                    Dim db As DAO.Database
                                    Dim rs As DAO.Recordset
                                    Dim strSQL As String
                                    Dim strURL As String
                                    Dim strTableName As String
                                    Dim objStream As Object
                                    Dim strData As String
                                    Dim arrData() As String
                                    Dim arrFields() As String
                                    Dim arrRow() As String
                                    Dim i As Long
                                
                                    ' Set the URL of the CSV file
                                    strURL = "https://docs.google.com/spreadsheets/d/e/2PACX-1vSrdzm22JIw1yW-D00DEtB_IrbujA6VHujfhV82BSkrGF-Oo2roVgnxSDWPrvo7QdXVWpfLhHDK4xDO/pub?gid=0&single=true&output=csv"
                                
                                    ' Set the name for the new table
                                    strTableName = "NewTable"
                                
                                    ' Set up a new database object
                                    Set db = CurrentDb
                                
                                
                                    strData = GetFileFromWeb2(strURL)
                                
                                
                                    ' Split the CSV data into rows and fields
                                    arrData = Split(strData, vbCrLf)
                                    arrFields = Split(arrData(0), ",") ' Assumes the first row contains field names
                                
                                    ' Import the CSV data into the new table
                                    Set rs = db.OpenRecordset(strTableName)
                                    For i = 1 To UBound(arrData)
                                        arrRow = Split(arrData(i), ",")
                                        rs.AddNew
                                        For j = 0 To UBound(arrFields)
                                            rs.Fields(j).Value = arrRow(j)
                                        Next j
                                        rs.Update
                                    Next i
                                    rs.Close
                                
                                    ' Close the recordset and database objects
                                    Set rs = Nothing
                                    Set db = Nothing
                                
                                    MsgBox "Table created and data imported successfully!"
                                End Sub
                                
                                
                                א תגובה 1 תגובה אחרונה
                                2
                                • א מנותק
                                  א מנותק
                                  ארי
                                  השיב למנחם ב נערך לאחרונה על ידי ארי
                                  #16

                                  @מנחם תודה.
                                  זה הרבה יותר יעיל ממה שאני כתבתי.

                                  עריכה: סתם בשביל הסקרנות בדקתי...
                                  הקוד שלי לקח על 50 רשומות משיטס 4 שניות, ושלך 3 שניות.
                                  אז בזמן זה לא כ"כ משמעותי (לא אמור להיות בקובץ יותר מכמה עשרות רשומות), אבל זה בהחלט יותר פשוט ויעיל.

                                  תגובה 1 תגובה אחרונה
                                  2
                                  • A0533057932A מנותק
                                    A0533057932A מנותק
                                    A0533057932
                                    השיב לארי ב נערך לאחרונה על ידי
                                    #17

                                    @ארי האם אין אופציה להשתמש באופיס פורמס לאקסל ומשם לייבא על ידי כלי הייבוא הרגיל?

                                    אבייא תגובה 1 תגובה אחרונה
                                    0
                                    • אבייא מנותק
                                      אבייא מנותק
                                      אביי
                                      השיב לA0533057932 ב נערך לאחרונה על ידי
                                      #18

                                      @A0533057932 כתב בנתונים לאקסס מאנדרואיד:

                                      אופיס פורמס

                                      https://forms.office.com/

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

                                      ניתן ליצור עימי קשר 8140hp+t@gmail.com | קטלוג מוצרים
                                      הלינקיה שלי https://abaye.co/link.html

                                      תגובה 1 תגובה אחרונה
                                      2

                                      בא תתחבר לדף היומי!
                                      • התחברות

                                      • אין לך חשבון עדיין? הרשמה

                                      • התחברו או הירשמו כדי לחפש.
                                      • פוסט ראשון
                                        פוסט אחרון
                                      0
                                      • דף הבית
                                      • קטגוריות
                                      • פוסטים אחרונים
                                      • משתמשים
                                      • חיפוש
                                      • חוקי הפורום