عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

مُساهمة من طرف torky1985 في الأحد أكتوبر 06, 2013 11:36 pm

سبحان الله وبحمده سبحان الله العظيم
مسهمتى دى هى مكمله للموضوع http://egy-tech.forumegypt.net/t300-topic?watch=topic
طبعا مش هنسا مجهود next ... بارك الله له وموضوعى هو مكمل واتمنا ان يكون فيه استفادة وهو 
انا حابب ازود حاجه كنت دايخ عليها وهى عمل نفس المشركه دى بس ببرنامج متصمم بمكتبه doa واكتشفت ان الموضوع داا نادر اوووى وخصوصا مع مكتبه  doa 
,وعشان كده حبيت اساهم بمشركتى دى عشان يستفاد كل الى يحتاج دا  ------------- 
دا شكل الكود الى كنت محتاجه وقدرت اوصله 
الرمز:
dim DB as dao.database
set DB = opendatabase ("\\server\folder\name.mdb")

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


ودا الكود
 
Private Sub Command1_Click()

If Option1.Value = True Then
On Error GoTo openErr:
   
     Set Db = OpenDatabase("Works.mdb", False, False, ";PWD =agcalxieee")
'False, False, ";PWD =agcalxieee الجزء دا خاص بقاعدة البيانات دا عشان قاعدة بياناتى معمولها باسورد بالاسم دا agcalxieee
 MsgBox "تم الربط المباشر بقاعدة البيانات"
Form1.Show
 Exit Sub
openErr:
 MsgBox "لم يتم العثور ع قاعدة البيانات"
End If
If Option2.Value = True Then

On Error GoTo openErr1:
    Set Db = OpenDatabase("\\karimtorky-PC\New folder (2)\Works.mdb", False, False, ";PWD =agcalxieee")
 MsgBox "تم الربط مع الشبكة"
Form1.Show
 Exit Sub
openErr1:
 MsgBox (" هناك مشكلة فى الاتصال بالشبكة او الجهاز السيرفير      ")
x = MsgBox("     إنكنت تمتلك قاعدى البينات بجهازك ..فهل تنوى الاتصال بقاعدة البيانات بشكل مباشر؟     ", vbMsgBoxRtlReading + vbYesNo, "")
If x = vbYes Then
Option1.Value = True
        Set Db = OpenDatabase("Works.mdb", False, False, ";PWD =agcalxieee")
 MsgBox "Êã ÇáÑÈØ ãÈÇÔÑ ãä ÇáÞÇÚÏÉ"
Form1.Show
    End If
End If
End Sub
ولو فى شىء مش واضح ف الكود انا مستعد اشرحه بس هو اكيد كود متواضع وبسيط ومفهوم ويارب اكون قدمت شىء كويس Rolling Eyes bounce 

torky1985
.....
.....

تاريخ التسجيل : 25/05/2013
المساهمات : 81
النقاط : 114
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

مُساهمة من طرف VB.NET في الإثنين أكتوبر 07, 2013 4:25 pm

شكرا علي مجهودك اخي الكريم

VB.NET
المراقبين
المراقبين

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 185
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

مُساهمة من طرف NEXT في الإثنين أكتوبر 07, 2013 5:41 pm

جزاك الله خىرا

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

مُساهمة من طرف torky1985 في الإثنين أكتوبر 07, 2013 6:19 pm

انا الى مدين لكم بالشكر وانا والله قدمت  مسهمتى دى عشان حاجتين اول شىء عشان يستفيد منها كل الى محتاجها 
والشىء التانى عشان اشكر بالمسهمه المتوضعه دى كل الى ساعدنى وبيساعد باقى الاعضاء وانا بشكرك اخى VB.NET واشكرك اخى NEXT ,وانت لك الاسبقيه اعلم وفعلا الموضوع بشكل عام كان نادراً فشكرا للمبادرة اخى العالى NEXT Very Happy 

torky1985
.....
.....

تاريخ التسجيل : 25/05/2013
المساهمات : 81
النقاط : 114
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

مُساهمة من طرف end.sub في الثلاثاء أكتوبر 08, 2013 7:50 am

كنت متأكد أنك ستصل قبل ما يتم الرد عليك و أفضل شىء فيك انك عندما تصل الى تقوم بنشرة للجميع و اتمنى من جميع الاعضاء ان يحذو خطوك شكرا جزيلا لك

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

مُساهمة من طرف torky1985 في الأربعاء أكتوبر 09, 2013 2:26 pm

والله انا الى اشكرك ومش هنسا فضلك وهو ان حضرتك كنت دافع ليا انا كنت فاقد الامل ف ان مكتبة doa انها تنفع اصلا للمشكره عبر الشبكات ..... لكن فعلا انت ليك الفضل الاكبر ...لكن بالنسبه للمسهمه هى والله بسيطه وكل عام وانت بالف الف خير لك ولكل اخواننا المسلمين 

torky1985
.....
.....

تاريخ التسجيل : 25/05/2013
المساهمات : 81
النقاط : 114
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa

مُساهمة من طرف أبوسجود في الأحد مارس 16, 2014 11:13 am

مشكور اخى الفاضل

أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى