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

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

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

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

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

@OdedDvir כן

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

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

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

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

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

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

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

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

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

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

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

?

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

@אמן אמר בE3300:

E3300

אם אתם רוצים יד 2 פנו באישי

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

וואו אני באמת חדש ב 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

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

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

oConn As ADODB.Connection

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

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

@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} שזה חייב להיות נכון, הכול היה בתיעוד הנתיב

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

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

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