عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
صفحة 1 من اصل 1 • شاطر
عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
سبحان الله وبحمده سبحان الله العظيم
مسهمتى دى هى مكمله للموضوع [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
طبعا مش هنسا مجهود 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
ولو فى شىء مش واضح ف الكود انا مستعد اشرحه بس هو اكيد كود متواضع وبسيط ومفهوم ويارب اكون قدمت شىء كويس
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
شكرا علي مجهودك اخي الكريم
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
جزاك الله خىرا
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
انا الى مدين لكم بالشكر وانا والله قدمت مسهمتى دى عشان حاجتين اول شىء عشان يستفيد منها كل الى محتاجها
والشىء التانى عشان اشكر بالمسهمه المتوضعه دى كل الى ساعدنى وبيساعد باقى الاعضاء وانا بشكرك اخى [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] واشكرك اخى NEXT ,وانت لك الاسبقيه اعلم وفعلا الموضوع بشكل عام كان نادراً فشكرا للمبادرة اخى العالى NEXT
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
كنت متأكد أنك ستصل قبل ما يتم الرد عليك و أفضل شىء فيك انك عندما تصل الى تقوم بنشرة للجميع و اتمنى من جميع الاعضاء ان يحذو خطوك شكرا جزيلا لك
end.sub- .....
- تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 132
التقيم : 10
الدولة :
الجنس :
رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
والله انا الى اشكرك ومش هنسا فضلك وهو ان حضرتك كنت دافع ليا انا كنت فاقد الامل ف ان مكتبة doa انها تنفع اصلا للمشكره عبر الشبكات ..... لكن فعلا انت ليك الفضل الاكبر ...لكن بالنسبه للمسهمه هى والله بسيطه وكل عام وانت بالف الف خير لك ولكل اخواننا المسلمين
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
رد: عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa
مشكور اخى الفاضل
أبوسجود- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد