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

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

اذهب الى الأسفل

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

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

سبحان الله وبحمده سبحان الله العظيم
مسهمتى دى هى مكمله للموضوع [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
طبعا مش هنسا مجهود next ... بارك الله له وموضوعى هو مكمل واتمنا ان يكون فيه استفادة وهو 
انا حابب ازود حاجه كنت دايخ عليها وهى عمل نفس المشركه دى بس ببرنامج متصمم بمكتبه doa واكتشفت ان الموضوع داا نادر اوووى وخصوصا مع مكتبه  doa 
,وعشان كده حبيت اساهم بمشركتى دى عشان يستفاد كل الى يحتاج دا  ------------- 
دا شكل الكود الى كنت محتاجه وقدرت اوصله 
الكود:
dim DB as dao.database
set DB = opendatabase ("\\server\folder\name.mdb")

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

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

 عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa Egy-tech13810960111
 عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa Egy-tech13810960112
ودا الكود
 
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
torky1985
.....
.....

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

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

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

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

شكرا علي مجهودك اخي الكريم
VB.NET
VB.NET
المراقبين
المراقبين

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

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

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

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

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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
 عمل مشاركه على قاعدة بيانات اكسيس بمكتبة doa Do.php?imgf=154090993464951
NEXT
NEXT
الادارة
الادارة

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

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

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

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

انا الى مدين لكم بالشكر وانا والله قدمت  مسهمتى دى عشان حاجتين اول شىء عشان يستفيد منها كل الى محتاجها 
والشىء التانى عشان اشكر بالمسهمه المتوضعه دى كل الى ساعدنى وبيساعد باقى الاعضاء وانا بشكرك اخى [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] واشكرك اخى NEXT ,وانت لك الاسبقيه اعلم وفعلا الموضوع بشكل عام كان نادراً فشكرا للمبادرة اخى العالى NEXT Very Happy 
torky1985
torky1985
.....
.....

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

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

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

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

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

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

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

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

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

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

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

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

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

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

مشكور اخى الفاضل
avatar
أبوسجود
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 101
النقاط : 187
التقيم : 8
الجنس : ذكر

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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