goldenman100 كتب:

السلام عليكم ورحمه الله وبركاته
عملت برنامج بالفيجول بيسك 6 واريد عمل مشاركه على قاعدة البيانات اكسيس على اكثر من جهاز
ما هي الخطوات المطلوبه لعمل ذلك ( اسهل الطرق )
وجزاكم الله كل خير

أهلا وسهلا بك أخى الكريم ......اسهل الطرق هى مشاركة قاععدة البيانات بأستخدام بنظام الـWorkgroup ...ويتم ذلك على النحو التالى :
الخطوة الاولى : تفعيل نظام  Workgroup وذلك على النحو التالى
- أذهب الى My Computer ثم كليك شمال  ثم أختر Properties من النافذة التى سوف تظهر أختر التويب Computer Name ثم قم بالضغط على زر (Change ) سوف تظهر لك نافذة أخرى قم بالتأكد أن الخيار  Workgroup مفعل كما فى الصور التالية :
الخطوة الثانية: وضع قاعدة بيانات البرنامج فى مجلد معين
الخطوة الثالثة : عمل مشاركة للمجلد الذي فيه قاعدة البيانات المراد العمل عليه من خلال الشبكة وذلك على النحو التالى .
_ قم بتحديد هذا المجلد ثم كليك شمال ......سوف تظهر لك النافذة التالية :

الكود:


Public cn As ADODB.Connection
 Public rs As ADODB.Recordset
  
 Public Function DBConnect()
 On Error GoTo openErr

 Dim MSDatabase As String
 MSDatabase = "\\seif-3b669de8e6\SHARE_NAME\db.mdb"
 Set cn = New ADODB.Connection
 cn.CursorLocation = adUseClient
 cn.Provider = "Microsoft.Jet.OLEDB.4.0"
 cn.Open MSDatabase, Admin
 MsgBox "Database connected"
 Exit Function
openErr:
 MsgBox "Databae not connected"

End Function

اين يتم كتابة الكود بالضبط ؟؟؟

saadalhadi كتب:اين يتم كتابة الكود بالضبط ؟؟؟

أخى الكريم يمكنك أنشاء وحدة برمجية Module1 ووضع الكود بها ....بعد ذلك يمكنك الاتصال بالكود من أى مكان فى البرنامج ...فمثلا اذا اردت الاتصال بقاعدة البيانات عند تحميل النافذة فقط قم بكتابة الشفرة التالية فى حدث تحميل النافذة وذلك على النحو التالى :

الكود:

Private Sub Form_Load()
Call DBConnect
End Sub


حيث أن DBConnect هو اسم الوظيفة التى بها شفرة الاتصال بقاعدة البيانات على الشبكة المحلية كما كتبها الاخ next ....وعلى هذا يمكنك فتح الاتصال بقاعدة البيانات فى أى حدث أخر لاى عنصر وليكن مثلا زر الامر سيكون على النحو التالى :

الكود:

Private Sub Command1_Click()
Call DBConnect
End Sub


وهكذا ...أعتقد أن الامر سهل وواضح

جزاك الله خييييييييير وبارك الله فيك

طيب هو ينفع نستخدم نفس الطريقة مع الربط عن طريق dao
ولا الطريقه دى مقتصرة ع ادوو بس ؟؟

torky1985 كتب:طيب هو ينفع نستخدم نفس الطريقة مع الربط عن طريق dao
ولا الطريقه دى مقتصرة ع ادوو بس ؟؟

ينفع ...فقط بتديل نص الاتصال من ado الى dao

end.sub كتب:ينفع ...فقط بتديل نص الاتصال من ado الى dao

متشكرررررررررر اوووووووى وجارى التجربة وشكرا اوى لاهتمامك فى الرد

شكرا next على الدرس القيم

تسلم ومشكووووووووووووووووووووووووووووووووووور اخى

موضوع روعة وسهل - بس بالطريقه دى مش هينفع يشتغل على جهاز منفرد تانى الا بعد التعديل على المديول مره اخرى - صح ولا لا

وسؤال اخر - هل يعمل البرنامج على الجهاز الاصلى اللى عليه قاعده البيانات - لانه بالطريقه دى هنسميه جهاز السيرفير لانه سيرفير لباقية الاجهزه من حيث قاعدة البيانات

ahmedismayl كتب:موضوع روعة وسهل - بس بالطريقه دى مش هينفع يشتغل على جهاز منفرد تانى الا بعد التعديل على المديول مره اخرى - صح ولا لا

وسؤال اخر - هل يعمل البرنامج على الجهاز الاصلى اللى عليه قاعده البيانات - لانه بالطريقه دى هنسميه جهاز السيرفير لانه سيرفير لباقية الاجهزه من حيث قاعدة البيانات

اخى الغالى بعد السلام 
انظر للمشاركه دى جايز فيها رد ع اسئلتك لكن باختلاف نوع الاتصال فقم انت باخذ الفكره لا اكثر 
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

هل يمكن أستعمال نفس الطريقة مع SQL SERVER

GHERISSI كتب:هل يمكن أستعمال نفس الطريقة مع SQL SERVER

يمكنك تجربة ذلك و تخبرنا بالنتيجة