اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

هل يوجد كود لربط الأكسس من خلال الشبكة المحلية


alsajy

الردود الموصى بها

السلام عليكم ورحمة الله

بحثت في قوووقل عن طرق ربط الأكسس عبر الشبكة المحلية وليس عبر السيرفر فلا يوجد لدي سيرفر

حيث لدي ما يقارب ال 20 جهاز بعضها في نفس المبنى وأخرى في مبنى مستقل وبعيده جداً ولكن تربطها شبكة داخلية إنترا نت

أريد عمل ربط بقاعدة بيانات أكسس

حيث سأعمل على تقسيم قاعدة البيانات إلى front End و Back End ثم عمل مجلد مشاركة

ثم توزيعها على بقية الأجهزة

ولكن من السهل فتح مجلد المشارة من طرف أي جهاز آخر وحذف البرنامج

وهناك طريقة ال UDL وعملت ملف حسب المرفق

ولكن ما هي الخطوة التالية أين أضع رباط هذا الملف ؟؟؟

ثانياً :

كيف مل هذا الكود :



للاستخدام المشترك (أكثر من مستخدم):

plain text

"C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE" "XXXXXXXX.mde" /WRKGRP "XXXXXXX.mdw"[/size][/b][/font]

[font=arial,helvetica,sans-serif][b][size=4]وللتعديل (للفتح الحصري ويجب أن يكون مغلق لدى جميع المستخدمين):

plain text

"C:\Program Files\Microsoft Office\Office11\MSACCESS.EXE" "XXXXXXXXX.mde" /EXCL /WRKGRP "XXXXXXXXX.mdw"[/size][/b][/font]

[font=arial,helvetica,sans-serif][b][size=4]

ثم ما المقصود بهذا الإمتداد XXXXXXX.mdw ومن هو ؟؟

ConnString.rar

رابط هذا التعليق
شارك

أخي العزيز

نبدأ من حيث انتهيت

ملف mdw : ملف صلاحيات المستخدمين الذي يتم انشاؤه لتحديد الصلاحيات لمجموعات المستخدمين

ملف udl الذي أنشأته هو بداية الطريق

فيما أعرف ، وان كنت قد أحسنت الفهم عنك ، فالطريقة التي تفكر بها تعتمد باجمالها على استخدام ADODB ، لتحديد مصادر السجلات لجميع كائنات التطبيق ، وهي ليست صعبة جدا ولكنها ليست سهلة ، واعتمادها لكامل التطبيق يحتاج لخبرة جيدة لاكتساح الكودات و التعامل معا ، ولا بد ان تكون متمكنا من أدواتك البرمجية ، ومتأكدا من تحليلك للنظام بشكل سليم ، وموضحا لحاجاتك ، حيث أنك وبعد فترة بسيطة من البداية بالتطبيق ، ستجد نفسك امام حجم هائل من الكودات و ما لم تكن متمكنا مما تفعل ، ستضيع بين تلال من التشعبات و التعقيدات.

مارست هذه الطريقة كثيرا وارتاح اليها ، ولكنها لا تناسب الكثيرين ، وتحتاج لخبرة جيدة ورصيد معقول من الخبرة ، ولا أدعي ذلك لنفسي ، ولكنها ليست سهلة ...

رابط هذا التعليق
شارك

مثلا


Dim cnnSQL As ADODB.Connection

Dim rstEmployees As New ADODB.Recordset


Set cnnSQL = New ADODB.Connection

cnnSQL.Open "File Name=" & "C:\Test\Server.udl"


Debug.Print cnnSQL.ConnectionString

rstEmployees.Open "Employees", cnnSQL, adOpenKeyset, adLockOptimistic

Do While Not rstEmployees.EOF

  Debug.Print rstEmployees![FirstName] & " " & rstEmployees![LastName]

  rstEmployees.MoveNext

Loop

rstEmployees.Close

cnnSQL.Close

Set rstEmployees = Nothing

Set cnnSQL = Nothing

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information