פונקציית vba & odbc

[dovid]

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

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

במהלך הגדרת החיבור (בדרך שעשית עד היום) יש אפשרות כמדומני לצפות ב"מחרוזת החיבור" (connection string).

לא בדיוק הבנתי את כוונתך
עד היום עשיתי, נתונים חיצונים>מקור חדש>קובץ odbc התכוונת לזה ?

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

[ליבל]

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

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

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

[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-מאקסס