פונקציית vba & odbc

[OdedDvir]

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

אצלי אין
אופיס 2016

אתה יכול לראות בטבלה MSysObjects בשדה Connect את מחרוזת החיבור

[ליבל]

@OdedDvir רשום לי DSN=tast
כלומר מצביע לקובץ החיבור tast

[OdedDvir]

@ליבל תוכל לפתוח את הקובץ בכל עורך טקסט ולראות את המחרוזת שם

[ליבל]

@OdedDvir לא מצאתי את הקובץ כדי לראות
איך אפשר לראות מכאן ?

@dovid @OdedDvir נדמה לי שאתם מנסים לרמז לי אבל עדיין לא הבנתי

[chagold]

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

[ליבל]

@chagold תודה אכן נתן לי את הנתיב.
עדיין יש לי שגיאה לא מבין מדוע,

Private Sub Form_Current()
Dim oConn As ADODB.Connection
Private Sub ConnectDB()
    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=51.51.51.51;UID=sss;PWD=XXXXXX;DATABASE=jjjj;PORT=3306;"


End Sub

חוץ מ DRIVER={MySQL ODBC 8.0 Unicode Driver} שזה חייב להיות נכון, הכול היה בתיעוד הנתיב

[dovid]

@ליבל נשמח לדעת מה השגיאה.

[ליבל]

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

@ליבל נשמח לדעת מה השגיאה.

[dovid]

@ליבל על איזו שורה זה?

[ליבל]

oConn As ADODB.Connection

[ליבל]

מותקן לי גם דרייבר של 32 bit וגם 64 bit, יתכן שזה הבעיה
השאלה האם אפשר להגדיר שישתמש דווקא של 32 ?

[dovid]

תלחץ על התפריט Tools שם בחר בReferences...
חפש ברשימה פריט שמתחיל ככה Microsoft ActiveX Data Objects
אם יש כמה נסה את החדש ביותר,
אשר ונסה שוב.

[ליבל]

@dovid אכן עכשיו זה כבר שגיאה אחרת דווקא על המילה dim

[OdedDvir]

@ליבל נראה ששכחת לסגור את הקוד של הפונקציה. בקוד למעלה כתבת פונקציה בתוך פונקציה. אי אפשר לעשות את זה בVBA

[ליבל]

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

Sub j()
    Dim oConn As ADODB.Connection
    Private Sub ConnectDB()
    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=222.000.333.22;UID=s555r;PWD=55555;DATABASE=ggggggg;PORT=3306;OPTION=3;"
End Sub

[ליבל]

ב"ה נראה לי שהצלחתי אבל עדיין אין לי אינדקציה לזה (פשוט אין שגיאות...)
איך אני צריך להביא את הטבלאות ע"י sql ?

[OdedDvir]

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

ב"ה נראה לי שהצלחתי אבל עדיין אין לי אינדקציה לזה (פשוט אין שגיאות...)
איך אני צריך להביא את הטבלאות ע"י sql ?

תלוי מה שיטת העבודה שלך. אם אתה רק רוצה לגשת לנתונים דרך VBA יש פונקציות לקרוא Recordset
אבל -
אם יש לך טפסים שמבוססים על טבלאות תצטרך לאכלס אותם על ידי VBA או להשתמש בטבלאות מקושרות DAO ובפונקציה שכתבתי לך למעלה

[chagold]

@ליבל יש אשכול ישן שיתכן ובשאיזשהו שלב יעזור לך
https://tchumim.com/topic/332/קוד-לדוגמא-פנייה-ישירה-ומהירה-לsql-server-מאקסס

[ליבל]

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

[chagold]

פוסט זה נמחק!