السلام عليكم ورحمة الله وبركاته جميعا
انا ودي اطلب منكم طلب صغيرون خاص للمبرمجين الذين يتعاملون بالفيجوال
وطلبي كالتالي :
اود ان احد يشرح كيفية ربط الجدوال التي هي في الاكسيس بالفيجوال بيسك
وذلك عن طريق اداة ADO اتمنى ان تشرحولي هذا الطلب اذا امكن بالصورة
معليش انا حا اغلبكم معايا ولكن ضروري ومهم هذا الطلب للأنني محتاجة للمشروع التخرج
اسفة وضعت موضوع في المنتدى الغير المخصص له اتمنى من اخواني المشرفين نقل الموضوع على المنتدى الخاص لموضوعي
تحياتي اختكم cute flower
أختي العزيزة
يوجد منتدى خاص بالفيجوال بيسك.
فلو عرضتي مشكلتك عليهم قد يفيدونكي أكثر
تحياتي خلودي
السلام عليكم ورحمة الله وبركاته
طريقة الربط بين ADO و Database سهله جدا
من خلال السؤال يتضح أنك على علم بطريقه الحصول على ADO
بعد وضعك للADo على form قم بنقر عليها بالفأره ثم في الخصائص قم بتغير الخاصية connection string سيظهر لك مربع خيارات أضغط على built ثم أختار microsoft Jet 4.0 ole DB Provider
تضغط على next وربط قاعدة البيانات التي تريدها مع البرنامج وأخيرا أضغط على OK .
الخطوه الثانيه أذهب إلى الخاصيه Recordsourse أضغط عليها سيظهر لك مربع خيارات أيضا قم بأختيار Table من القائمه ثم أختر أسم الجدول الموجود في قاعدة البيانات الخاصة بك .
بذلك تكون قد هيئت النموذج للأرتباط بالقاعده البيانية
وما عليك الأن ألا ان تعما على وضع أزرار التحكم وText أو Datagraid كما ترغب ، وقد أرسلت لك برنامجين يحتويان على طريقه كتابة code
مع البيانات من خلال النموذج .
أتمنى أن تكون إجابتي وافيه
والسلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمة الله وبركاته
طريقة الربط بين ADO و Database سهله جدا
من خلال السؤال يتضح أنك على علم بطريقه الحصول على ADO
بعد وضعك للADo على form قم بنقر عليها بالفأره ثم في الخصائص قم بتغير الخاصية connection string سيظهر لك مربع خيارات أضغط على built ثم أختار microsoft Jet 4.0 ole DB Provider
تضغط على next وأربط قاعدة البيانات التي تريدها مع البرنامج وأخيرا أضغط على OK .
الخطوه الثانيه أذهب إلى الخاصيه Recordsourse أضغط عليها سيظهر لك مربع خيارات أيضا قم بأختيار Table من القائمه ثم أختر أسم الجدول الموجود في قاعدة البيانات الخاصة بك .
بذلك تكون قد هيئت النموذج للأرتباط بالقاعده البيانية
وما عليك الأن ألا ان تعما على وضع أزرار التحكم وText أو Datagraid كما ترغب ، و طريقه كتابة code لتحكم في البيانات من خلال النموذج
كالتالي مع تغير بسيط في زر البحث
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
End Sub
Private Sub Command4_Click()
Prompt$ = "enter the new record then click first button"
reply = MsgBox(Prompt$, vbOKCancel, "additem")
If reply = vbOK Then
Adodc1.Recordset.AddNew
End If
End Sub
Private Sub Command5_Click()
Prompt$ = "do you relly want to delet this record "
reply = MsgBox(Prompt$, vbOKCancel, "delet item")
If reply = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command6_Click()
Dim SearchStr As String
SearchStr = InputBox(" Enter The full ( Complete) Course Title", " Course Search ")
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "[اسم الحيوان] ='" & SearchStr & "'"
If Adodc1.Recordset.EOF Then
MsgBox " Record not Found"
Adodc1.Recordset.MoveFirst 'go to First record
End If
End Sub
لاحظ في البرنامج هنا علامة اليساوي يجب أن تكتب جهة اليمين
والسلام عليكم ورحمة الله وبركاته
كيفية ربط قاعدة بيانات أكسيس 2000 مع الفيجوال بيسيك بطريقة DAO
الملف المرفق به شرح وشفرات .
مشكور اخوي محمود_علي على مساعدتك ليا و على جهودك في الشرح وكتابة الكود
انا فعلا ممنونة لك (f)(f)
تحياتي
العفو ..
هذا الموضوع مغلق.