סורק צקים - אקסס

[clickone]

או שתעשה dll interop

https://docs.microsoft.com/en-us/dotnet/articles/visual-basic/programming-guide/com-interop/introduction-to-com-interop

פורסם במקור בפורום CODE613 ב21/05/2017 13:40 (+03:00)

[dovid]

@אבי

תודה, זו אכן אפשרות, אבל בצירוף בדיקות וסנכרונים נוספים עם אקסס זה יהיה ממש לא אלגנטי..

זה ברור שזה מעצבן לתחזק שתי קודים, אבל סנכרון אני לא חושב שזה בעיה כיון שהדוטנט יכול לכתוב ולקרוא ישירות לטבלאות.
וכמובן לשמור מרחק מinterpo...

פורסם במקור בפורום CODE613 ב21/05/2017 14:30 (+03:00)

[clickone]

דוד, מ interpo אכן תשמור מרחק (גדול...)
אבל ל interop אתה יכול להתקרב... כמובן בזהירות כי כאב הראש כשיש שם בעיות יכול להיות דיי גדול.
אבל כדי לפתור בעיות הוא בהחלט מתאים.

אולי הפיתרון שלו זה לייצר EXE בדוטנט ולתקשר איתו בבקשות http listener או TCP

דוגמא לקוד
https://social.msdn.microsoft.com/Forums/vstudio/en-US/b7f476d1-3147-4b18-ba5e-0b3ce8f8a918/want-to-make-a-webserver-with-httplistener?forum=vbgeneral

פורסם במקור בפורום CODE613 ב21/05/2017 14:51 (+03:00)

[אבי]

לפני שאני מתחיל עם interop או בקשות http listener או TCP
ישנה עוד תיקייה בדוגמאות קוד שהם נותנים שבה הם משתמשים עם קובץ OCX ופקד activeX בתוך הטופס של VB.
חשבתי אולי זה יעבוד לי באקסס, רשמתי את הקובץ OCX, הוספתי רפרנס בעורך קוד של אקסס, אבל לא מופיע לי פקד activeX כזה בטפסי אקסס, איך אני מוסיף אותו?

ניסיתי להוסיף באמצעות פקודת המאקרו RegisterActiveXControls והוא מוציא שגיאה:

מצ"ב התייקיה

OCXDemo.rar

פורסם במקור בפורום CODE613 ב21/05/2017 20:34 (+03:00)

[clickone]

אני לא בטוח שאני עושה מה שרצית.
אבל תבדוק אם האקסס המצורף עובד לך.
(כנראה אצלי חסרה ההתקנה)

אתה לא צריך לשים קובץ, תראה בקוד של הטופס שם איך אני פונה לאובייקט שלו
OCXDemo.rar

פורסם במקור בפורום CODE613 ב21/05/2017 22:22 (+03:00)

[אבי]

@דוד ל.ט.

אז תבנה EXE בדוטנט ותריץ אותו מאקסס עם פרמטרים.
כיון שהדוטנט יכול לכתוב ולקרוא ישירות לטבלאות.

אם אני מפעיל EXE חיצוני, איך אני יכול לקבל אישור לתוך האקסס שהסריקה הסתיימה?

פורסם במקור בפורום CODE613 ב21/05/2017 22:28 (+03:00)

[אבי]

@ClickOne

אני לא בטוח שאני עושה מה שרצית.
אבל תבדוק אם האקסס המצורף עובד לך.
(כנראה אצלי חסרה ההתקנה)

אתה לא צריך לשים קובץ, תראה בקוד של הטופס שם איך אני פונה לאובייקט שלו

אני מקבל את השגיאה הזו:

פורסם במקור בפורום CODE613 ב21/05/2017 22:47 (+03:00)

[dovid]

@אבי

@דוד ל.ט.
אז תבנה EXE בדוטנט ותריץ אותו מאקסס עם פרמטרים.

כיון שהדוטנט יכול לכתוב ולקרוא ישירות לטבלאות.

אם אני מפעיל EXE חיצוני, איך אני יכול לקבל אישור לתוך האקסס שהסריקה הסתיימה?

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

פורסם במקור בפורום CODE613 ב21/05/2017 23:33 (+03:00)

[clickone]

הוא יכול להמתין לקוד יציאה של הEXE.
(וכמובן לעקוב אחרי הקוד שהחזיר)

אבל לדעתי הכי טוב להשתמש בבקשות TCP או HTTP מול האפליקציה החיצונית שיכתוב.

פורסם במקור בפורום CODE613 ב22/05/2017 00:25 (+03:00)

[אבי]

@אבי

@ClickOne
אני לא בטוח שאני עושה מה שרצית.

אבל תבדוק אם האקסס המצורף עובד לך.
(כנראה אצלי חסרה ההתקנה)

אתה לא צריך לשים קובץ, תראה בקוד של הטופס שם איך אני פונה לאובייקט שלו

אני מקבל את השגיאה הזו:

לשגיאה הזו אין פתרון?
הוא מצפה ל set למשתנה שהגדרת, איך מכניסים ערך למשתנה מסוג activeX?

פורסם במקור בפורום CODE613 ב22/05/2017 00:39 (+03:00)

[ארכיטקט]

למה לא להרים שרת HTTP וזהו. תתקשר איתו באקסס במה שאתה רוצה.

פורסם במקור בפורום CODE613 ב22/05/2017 00:44 (+03:00)

[dovid]

להקים שרת http זה דורש הרשאות ומוסיף די הרבה סיבוך ביחס לשאלה המקורית: לכתוב כמה שורות באקסס.

clickone, אפשר בVBA בקלות להמתין לקוד יציאה של תוכנית אחרת? הבנתי שחייבים API.

פורסם במקור בפורום CODE613 ב22/05/2017 01:09 (+03:00)

[clickone]

דוד, להקים שרת HTTP בתוך דוטנט נראה לי שלא צריך הרשאות.
זה רק מממש את המחלקה של http listener

לגבי להמתין לקוד יציאה בלי API:

Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Long

errorCode = wsh.Run("notepad.exe", windowStyle, waitOnReturn)

If errorCode = 0 Then
    MsgBox "Done! No error to report."
Else
    MsgBox "Program exited with error code " & errorCode & "."
End If

מקור:
http://stackoverflow.com/questions/8902022/wait-for-shell-to-finish-then-format-cells-synchronously-execute-a-command

פורסם במקור בפורום CODE613 ב22/05/2017 01:20 (+03:00)

[dovid]

clickPne זה הכי טוב, בשביל מה הוא צריך להשתגע עם http.

פורסם במקור בפורום CODE613 ב22/05/2017 08:39 (+03:00)

[אבי]

תודה לכל החברים שהקדישו מזמנם

לא תמיד אני רוצה להמתין לקוד יציאה כדי להתעדכן (סריקה של כמה צ'קים לדוגמא)
חשבתי להפעיל מאקרו עם הפונקציה "RunCode" שמפעילה פונקציית קוד שמעדכנת את הטבלה / הטפסים וכל דבר אחר.
הפעלת מאקרו מVB:

'Start Access and open the database.
  oAccess = New Microsoft.Office.Interop.Access.Application
  oAccess.Visible = False
  oAccess.OpenCurrentDatabase("c:\OfficeMacroTest.accdb", False)
  oAccess.DoCmd().RunMacro("Macro1")

אנסה ואעדכן

פורסם במקור בפורום CODE613 ב22/05/2017 09:35 (+03:00)

[clickone]

אבי, זה רעיון הפוך, אבל טוב.
עשיתי אותו בעבר בשביל משהו אחר.

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

פורסם במקור בפורום CODE613 ב22/05/2017 10:12 (+03:00)

[אבי]

@ClickOne

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

אני מבצע כמה בדיקות לפני ההוספה לטבלה, ויותר נוח לעשות כבר הכל מתוך אקסס.

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

תודה לכל העוזרים והמסייעים.

פורסם במקור בפורום CODE613 ב22/05/2017 18:24 (+03:00)

[clickone]

את הבדיקות אתה עושה מול ועם recordset?
שים לב שאת האובייקט הזה וכל השאר אתה יכול לבצע גם בתוך האינטראופ של האקסס שעשית.

בכל מקרה, בהצלחה

פורסם במקור בפורום CODE613 ב23/05/2017 00:35 (+03:00)