פונקציית vba & odbc

dovid

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

ליבל

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

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

פוסט זה נמחק!

OdedDvir

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

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

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

ליבל

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

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

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

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

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

?

OdedDvir

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

?

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

ליבל

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

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

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

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

dovid

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

ליבל

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

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

פונקציית vba & odbc