מישהו מכיר Remoting Provider
חברים יקרים אני מנסה להתחבר למאגר שאמור לשבת במחשב אחר שמחובר לאינטרנט. הלכתי לפי הספר וכל מיני הסברים ואני מקבל שגיאה לא צפויה שמספרה 2147024891 0x80070005 שרת האינטרנט עובד ומצליח להפעיל דפים אבל ברגע שאני מנסה לקבל מידע ב-RS אז מופיעה השגיאה: רצ"ב הדוגמה :
חברים יקרים אני מנסה להתחבר למאגר שאמור לשבת במחשב אחר שמחובר לאינטרנט. הלכתי לפי הספר וכל מיני הסברים ואני מקבל שגיאה לא צפויה שמספרה 2147024891 0x80070005 שרת האינטרנט עובד ומצליח להפעיל דפים אבל ברגע שאני מנסה לקבל מידע ב-RS אז מופיעה השגיאה: רצ"ב הדוגמה :
Public Sub DbConnect() On Error GoTo errh Set Con = New ADODB.Connection Set rs = New ADODB.Recordset Con.ConnectionTimeout = 15 rs.CursorLocation = adUseClient 'Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.ActiveWorkbook.Path & "\" & Application.ActiveWorkbook.Name & ";Extended Properties=Excel 8.0;" Con.ConnectionString = "Provider=MS Remote;Internet Timeout=5000;" & _ "Remote Server=http://x.x.x.x;" & _ "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Application.ActiveWorkbook.Path & "\" & Application.ActiveWorkbook.Name & ";Extended Properties=Excel 8.0;" Con.Open Exit Sub errh: MsgBox (Err.Number & Chr(13) & Err.Description & Chr(13) & Err.Source & Chr(13) & Err.HelpContext): Exit Sub End Sub הקטע הנ"ל עובד Public Sub RunSql(sql) On Error GoTo errh Dim a As Object Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.ActiveConnection = Con rs.Open sql, Con, adOpenStatic, adLockOptimistic Exit Sub errh: MsgBox (Err.Number & Chr(13) & Err.Description & Chr(13) & Err.Source & Chr(13) & Err.HelpContext): Exit Sub End Sub
כפי שאתם רואים הבעיה ב-RS אשמח לקבל סיוע או דוקומנטציה לעניין. אם אני מבין נכון טכנית לא אמורה להיות לי בעייה לחיבור עם חוברת אקסאל הרי האקסס ואקסל עובדים באותו ה-provider. בברכה LJ101