[khodor1985]

أرى أن قاعدة البيانات تحتوي على أكثر من جدول (3 جداول) ، والأخ الكريم يعتمد طريقة الإتصال اليدوي مع قاعدة البيانات وهذا بطبيعة الحال يستدعي كتابة الكثير من الأكواد وخاصة الأكواد التي لها علاقة بجمل الإستعلام (للقراء فقط أو للتنفيذ) أو الجمل التي لها علاقة بجملة الإتصال وفتح الإتصال وإغلاق الإتصال إلى آخره ... ولنفترض أيضا أن الأخ الكريم يريد أن يضيف على المشروع جداول أخرى فهذا أيضا يستدعي مجهود أكبر.
فما رأيكم في إنشاء كلاس يتضمن عملية الإتصال مع قاعدة البيانات بالإضافة إلى جمل الإستعلام.
وشكرا

---

قبل البدء في تطبيق المشروع أحب أن أذكر أن الحديث يقول: الله الله في نظم أمركم" وأهم شيء في إنشاء أي مشروع مهما كان حجمه كبيرا أو صغيرا لا بد من تنظيم الملفات داخل المشروع لكي نتمكن من العودة إليها لأي سبب كان (تعديل - خطأ - تطوير) هذا من الأمور المهمة جدا.
أخي العزيز يرحمكم الله، هيا بنا نتعلم معاً....
أولا :
- قم بإنشاء مشروع جديد بالعنوان الذي وضعته أنت MultiColumns
- بطبيعة الحال عندما يفتح المشروع سترى أنه قد أنشأ في واجهة Solution Explorer نموذج بعنوان Form1، إعمل على حذف النموذج ثم قم بإضافة مجلدين الأول بعنوان Forms والثاني بعنوان CLS وهو اختصار لكلمة Class، وبالتالي سوف نضيف النماذج إلى المجلد Froms والكلاسس إلى المجلد CLS.
جميل...
- قم بإضافة كلاس إلى المشروع بعنوان DAL ثم ضع بداخله الأكواد التالية :
أولا سوف نقوم بكتابة الإجراء العام لعملية الإتصال والتي سوف تؤثر على المشروع بأكمله

PHP كود :

]Dim Con As OleDBConnection 


ثم ضع الكود التالي :

PHP كود :

ٍSub New()
Con = New OledbConnection("Set Connection String her") 


ثم نقوم بإنشاء دالة جديدة تتضمن جملة الإستعلام Select:

كود :

Public Function SelectData(cmdtxt as string) as DataTable
Dim cmd as new oledbconnection()
with cmd
.CommandType = Commandtype.Text
.CommandText = cmdtxt
.Connection = con
end with
dim da as new oledbadapter(cmd)
dim dt as new DataTable
da.Fill(dt)
Return dt
End Function

ثم نقوم بإنشاء إجراء جديد أيضا له يتضمن الجمل التنفيذية (insert/Update/Delete)

كود :

Sub EditData(insertdata as string)
dim cmd as new oledbCommsnd()
with cmd
.Commandtype = CommandType.Text
.CommandText = insertdata
.Connection = con
End with
If (Con.State = ConnectionState.OPen Then Con.Close()
con.Open()
cmd.ExecuteNonQuery()
con.close()
End Sub

بعد ذلك إنشاء الله سوف ننتقل للتطبيق في المشروع بحسب قاعدة البيانات التي تفضلت بها