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

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

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

פונקציית vba & odbc

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

    @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
                                • ליבלל ליבל

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

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

                                  @ליבל צריך לדבג ולראות אם הקוד כתוב נכון (שמתי לב שבאתר הוא מוסיף {1} בהתחלה של כמה שורות)
                                  בעורך הVBA תבחר בתפריט Debug>Compile ותראה אם הוא נותן לך שגיאה

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

                                    @ליבל צריך לדבג ולראות אם הקוד כתוב נכון (שמתי לב שבאתר הוא מוסיף {1} בהתחלה של כמה שורות)
                                    בעורך הVBA תבחר בתפריט Debug>Compile ותראה אם הוא נותן לך שגיאה

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

                                    @OdedDvir תודה רבה זה הצליח !!!

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

                                      @OdedDvir תודה רבה זה הצליח !!!

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

                                      @ליבל נהדר!

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


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

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

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