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

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

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

פונקציית vba & odbc

מתוזמן נעוץ נעול הועבר תכנות
50 פוסטים 4 כותבים 1.9k צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • OdedDvirO OdedDvir

    @ליבל אמר בפונקציית vba & odbc:

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

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

    ליבלל מנותק
    ליבלל מנותק
    ליבל
    כתב ב נערך לאחרונה על ידי
    #28

    @OdedDvir אמר בפונקציית vba & odbc:

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

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

    @OdedDvir אמר בפונקציית vba & odbc:

    מה בדיוק אתה צריך לעשות עם הקובץ הזה?

    ?

    OdedDvirO תגובה 1 תגובה אחרונה
    0
    • ליבלל ליבל

      @OdedDvir אמר בפונקציית vba & odbc:

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

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

      @OdedDvir אמר בפונקציית vba & odbc:

      מה בדיוק אתה צריך לעשות עם הקובץ הזה?

      ?

      OdedDvirO מנותק
      OdedDvirO מנותק
      OdedDvir
      כתב ב נערך לאחרונה על ידי
      #29

      @ליבל אמר בפונקציית vba & odbc:

      ?

      נראה לי שלא הבנתי את כוונתך. אתה מעוניין שקישור הטבלאות ייעשה אוטומטית?

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

        אני רוצה שהטבלאות יקושרו ע"י VBA באופן נורמלי - לפי הבנתי הקוד שכעת עובד לי זה רק מייבא לי את הטבלאות לאקסס, אני צריך שיהיה מקושר.

        @ליבל אמר בפונקציית vba & odbc:

        אם אין לך גישה למודלים אתה לא יכול לכתוב קוד VBA...

        התכוונתי לקובץ שקיבלתי מהחברה הנ"ל

        dovidD תגובה 1 תגובה אחרונה
        0
        • ליבלל ליבל

          אני רוצה שהטבלאות יקושרו ע"י VBA באופן נורמלי - לפי הבנתי הקוד שכעת עובד לי זה רק מייבא לי את הטבלאות לאקסס, אני צריך שיהיה מקושר.

          @ליבל אמר בפונקציית vba & odbc:

          אם אין לך גישה למודלים אתה לא יכול לכתוב קוד VBA...

          התכוונתי לקובץ שקיבלתי מהחברה הנ"ל

          dovidD מחובר
          dovidD מחובר
          dovid
          ניהול
          כתב ב נערך לאחרונה על ידי
          #31

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

          • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
          • בכל נושא אפשר ליצור קשר dovid@tchumim.com
          תגובה 1 תגובה אחרונה
          2
          • ליבלל מנותק
            ליבלל מנותק
            ליבל
            כתב ב נערך לאחרונה על ידי ליבל
            #32

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

            OdedDvirO תגובה 1 תגובה אחרונה
            0
            • ליבלל ליבל

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

              OdedDvirO מנותק
              OdedDvirO מנותק
              OdedDvir
              כתב ב נערך לאחרונה על ידי
              #33

              @ליבל האם אתה יכול לכתוב קוד VBA?

              ליבלל תגובה 1 תגובה אחרונה
              0
              • OdedDvirO OdedDvir

                @ליבל האם אתה יכול לכתוב קוד VBA?

                ליבלל מנותק
                ליבלל מנותק
                ליבל
                כתב ב נערך לאחרונה על ידי
                #34

                @OdedDvir עדיין לא כ"כ 😞

                OdedDvirO תגובה 1 תגובה אחרונה
                0
                • ליבלל ליבל

                  @OdedDvir עדיין לא כ"כ 😞

                  OdedDvirO מנותק
                  OdedDvirO מנותק
                  OdedDvir
                  כתב ב נערך לאחרונה על ידי
                  #35

                  @ליבל התכוונתי האם אתה יכול להוסיף קוד לקובץ..

                  ליבלל תגובה 1 תגובה אחרונה
                  0
                  • OdedDvirO OdedDvir

                    @ליבל התכוונתי האם אתה יכול להוסיף קוד לקובץ..

                    ליבלל מנותק
                    ליבלל מנותק
                    ליבל
                    כתב ב נערך לאחרונה על ידי
                    #36

                    @OdedDvir כן

                    OdedDvirO תגובה 1 תגובה אחרונה
                    0
                    • ליבלל ליבל

                      @OdedDvir כן

                      OdedDvirO מנותק
                      OdedDvirO מנותק
                      OdedDvir
                      כתב ב נערך לאחרונה על ידי
                      #37

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

                      ליבלל תגובה 1 תגובה אחרונה
                      1
                      • OdedDvirO OdedDvir

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

                        ליבלל מנותק
                        ליבלל מנותק
                        ליבל
                        כתב ב נערך לאחרונה על ידי
                        #38

                        @OdedDvir כן, בדקתי וזה עובד.

                        OdedDvirO תגובה 1 תגובה אחרונה
                        0
                        • ליבלל ליבל

                          @OdedDvir כן, בדקתי וזה עובד.

                          OdedDvirO מנותק
                          OdedDvirO מנותק
                          OdedDvir
                          כתב ב נערך לאחרונה על ידי
                          #39

                          @ליבל אוקי, עכשיו האם נכון לעכשיו הטבלאות המקושרות מופיעות כבר ברשימת האובייקטים, או שצריך ליצור קישור חדש?

                          ליבלל תגובה 1 תגובה אחרונה
                          0
                          • OdedDvirO OdedDvir

                            @ליבל אוקי, עכשיו האם נכון לעכשיו הטבלאות המקושרות מופיעות כבר ברשימת האובייקטים, או שצריך ליצור קישור חדש?

                            ליבלל מנותק
                            ליבלל מנותק
                            ליבל
                            כתב ב נערך לאחרונה על ידי
                            #40

                            @OdedDvir עדיין לא קישרתי את הכול

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

                              @OdedDvir נתחיל קודם לעשות חדש

                              תגובה 1 תגובה אחרונה
                              0
                              • ליבלל ליבל

                                @OdedDvir עדיין לא קישרתי את הכול

                                OdedDvirO מנותק
                                OdedDvirO מנותק
                                OdedDvir
                                כתב ב נערך לאחרונה על ידי OdedDvir
                                #42

                                @ליבל תפתח מודל חדש ותדביק את הקוד הבא (מאתר מייקרוסופט)

                                '//Name     :   AttachDSNLessTable
                                '//Purpose  :   Create a linked table to SQL Server without using a DSN
                                '//Parameters
                                '//     stLocalTableName: Name of the table that you are creating in the current database
                                '//     stRemoteTableName: Name of the table that you are linking to on the SQL Server database
                                '//     stServer: Name of the SQL Server that you are linking to
                                '//     stDatabase: Name of the SQL Server database that you are linking to
                                '//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
                                '//     stPassword: SQL Server user password
                                Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String)
                                    On Error GoTo AttachDSNLessTable_Err
                                    Dim td As TableDef
                                    Dim stConnect As String
                                
                                For Each td In CurrentDb.TableDefs
                                        If td.Name = stLocalTableName Then
                                            CurrentDb.TableDefs.Delete stLocalTableName
                                        End If
                                    Next
                                
                                If Len(stUsername) = 0 Then
                                        '//Use trusted authentication if stUsername is not supplied.
                                        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
                                    Else
                                        '//WARNING: This will save the username and the password with the linked table information.
                                        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
                                    End If
                                    Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect)
                                    CurrentDb.TableDefs.Append td
                                    AttachDSNLessTable = True
                                    Exit Function
                                
                                AttachDSNLessTable_Err:
                                
                                AttachDSNLessTable = False
                                    MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.Description
                                
                                
                                End Function
                                

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

                                AttachDSNLessTable("dbo_myTable", "dbo.myTable", "SERVER_IP", "dbName", "user", "password")
                                
                                ליבלל תגובה 1 תגובה אחרונה
                                1
                                • OdedDvirO OdedDvir

                                  @ליבל תפתח מודל חדש ותדביק את הקוד הבא (מאתר מייקרוסופט)

                                  '//Name     :   AttachDSNLessTable
                                  '//Purpose  :   Create a linked table to SQL Server without using a DSN
                                  '//Parameters
                                  '//     stLocalTableName: Name of the table that you are creating in the current database
                                  '//     stRemoteTableName: Name of the table that you are linking to on the SQL Server database
                                  '//     stServer: Name of the SQL Server that you are linking to
                                  '//     stDatabase: Name of the SQL Server database that you are linking to
                                  '//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
                                  '//     stPassword: SQL Server user password
                                  Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String)
                                      On Error GoTo AttachDSNLessTable_Err
                                      Dim td As TableDef
                                      Dim stConnect As String
                                  
                                  For Each td In CurrentDb.TableDefs
                                          If td.Name = stLocalTableName Then
                                              CurrentDb.TableDefs.Delete stLocalTableName
                                          End If
                                      Next
                                  
                                  If Len(stUsername) = 0 Then
                                          '//Use trusted authentication if stUsername is not supplied.
                                          stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
                                      Else
                                          '//WARNING: This will save the username and the password with the linked table information.
                                          stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
                                      End If
                                      Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect)
                                      CurrentDb.TableDefs.Append td
                                      AttachDSNLessTable = True
                                      Exit Function
                                  
                                  AttachDSNLessTable_Err:
                                  
                                  AttachDSNLessTable = False
                                      MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.Description
                                  
                                  
                                  End Function
                                  

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

                                  AttachDSNLessTable("dbo_myTable", "dbo.myTable", "SERVER_IP", "dbName", "user", "password")
                                  
                                  ליבלל מנותק
                                  ליבלל מנותק
                                  ליבל
                                  כתב ב נערך לאחרונה על ידי
                                  #43

                                  @OdedDvir בקריאה לפנקציה איזה פרמטרים הם 2 הראשונים ?

                                  OdedDvirO תגובה 1 תגובה אחרונה
                                  0
                                  • ליבלל ליבל

                                    @OdedDvir בקריאה לפנקציה איזה פרמטרים הם 2 הראשונים ?

                                    OdedDvirO מנותק
                                    OdedDvirO מנותק
                                    OdedDvir
                                    כתב ב נערך לאחרונה על ידי
                                    #44

                                    @ליבל הראשון הוא השם המקומי שאתה רוצה לתת לטבלה. השני הוא השם האמיתי של הטבלה בdb

                                    ליבלל תגובה 1 תגובה אחרונה
                                    0
                                    • OdedDvirO OdedDvir

                                      @ליבל הראשון הוא השם המקומי שאתה רוצה לתת לטבלה. השני הוא השם האמיתי של הטבלה בdb

                                      ליבלל מנותק
                                      ליבלל מנותק
                                      ליבל
                                      כתב ב נערך לאחרונה על ידי ליבל
                                      #45

                                      @OdedDvir הגדרתי לחצן וקראתי לפונקציה ע"י call זה נכון ? (יש שגיאה)

                                      OdedDvirO תגובה 1 תגובה אחרונה
                                      0
                                      • ליבלל ליבל

                                        @OdedDvir הגדרתי לחצן וקראתי לפונקציה ע"י call זה נכון ? (יש שגיאה)

                                        OdedDvirO מנותק
                                        OdedDvirO מנותק
                                        OdedDvir
                                        כתב ב נערך לאחרונה על ידי
                                        #46

                                        @ליבל מה השגיאה?

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

                                          פונקציה לא נמצאת
                                          6e2ef1eb-192a-4471-9a51-2a6864de9e87-image.png

                                          OdedDvirO תגובה 1 תגובה אחרונה
                                          0
                                          תגובה
                                          • תגובה כנושא
                                          התחברו כדי לפרסם תגובה
                                          • מהישן לחדש
                                          • מהחדש לישן
                                          • הכי הרבה הצבעות


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

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

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