كيف يتم استخدام Oop مع ال Ado.net?

تستطيع عمل class يختصر عليك الكثير من كتابة الكود مثلا

Imports System.Data.OleDb
Public Class ado

	Private Str As String = "provider=Microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\DATABASENAME.mdb"
	Private Con As New OleDbConnection(Str)
	Private Dst As New DataSet
	Private cmn As OleDbCommand

	Public Sub OpenCon()
		If Con Is Nothing Or Con.State = ConnectionState.Closed Then Con.Open()
	End Sub

	Public Sub CloseCon()
		If Con.State = ConnectionState.Open Then Con.Close()
	End Sub


	Public Function DataSet(ByVal DB_tableName As String, ByVal DST_tableName As String) As DataSet

		Dim adp As OleDbDataAdapter = New OleDbDataAdapter("select * from " & DB_tableName & "", Con)

		OpenCon()
		adp.Fill(Dst, DST_tableName)
		CloseCon()

		Return Dst

	End Function

End Class

الآن إذا أردت استخدام الأمر select للاستعلام فكل ما عليك هو الآتي

Dim object_ado As New ado
		Dim ds As New DataSet

		ds = object_ado.DataSet("DB_tableName ", "DST_tableName ")

طبعا يمكنك صنع دوال أيضا لأوامر sql المتبقية فتصبح العملية مجرد تمرير للبارميترات

وكذلك على حسب علمي يمكنك من خلال ملفات dll لكن لا أجيد التعامل معها ..

أتمنى أني وضحت لك الصورة

مشكور اخي العزيز فعلا فهمت الفكرة...

ولكن بالنسبة لجمل الاضافة كيف يكون التعامل معها....

ونرجوا ان يشارك جميع الاخوة بخبراتهم....وجزاكم الله خيرا جميعا....

سأساعدك في طلبك لكن أتمنى أن تحاول أنت لأنك مبرمج ولابد أن تكون لك قدرة

على خلق حل للمشكلة التي تواجهك

هذه الدالة لجمل insert و update و delete وأتمنى منك محاولة فهمها

 Public Sub DB_proces(ByVal DB_sqlStat As String, ByVal ParamArray par() As Object)

		OpenCon()
		cmn = New OleDbCommand
		cmn.Connection = Con
		cmn.CommandType = CommandType.Text
		cmn.CommandText = DB_sqlStat

		Dim i As Integer
		For i = 0 To par.Length - 1
			cmn.Parameters.AddWithValue("?" + i.ToString(), par(i))
		Next
		cmn.ExecuteNonQuery()
		cmn.Dispose()
		CloseCon()

	End Sub

الآن عند الرغبة في الاضافة نقوم بالتالي

Dim ado As New Class1
		ado.DB_proces("insert into TABLENAME (FIRTITEM,SECONDITEM,....) values(?,?,....)", _
	  (FIRTITEM.Text), (SECONDITEM.Text),....)

ان شاء الله يكون واضح المثال

إطلع على المواضيع التالية للأخ باش مهندس

Three Tier Model Concepts, النظام ثلاثي الطبقات.. نظرة متمحصة

هل تريد أن تنسى تعقيدات الADO.net, خطوة بخطوة

الخطوة الأولى في رأيي هو أن تفهم بالتفصيل ما هو الـOOP.

كل الشكر فعلا للاخوان....وجزاكم الله خيرا...

System Down كتب:

الخطوة الأولى في رأيي هو أن تفهم بالتفصيل ما هو الـOOP.

بشكل عام معظم المبرمجين باعتقادي يفهمون ال oop من الدراسة الجامعية....حسب وجهة نظري .....

ولكن تجد القليل من يطبقها بشكلها الصحيح اقصد (بجميع مزايها مع ال ado.net ) للتخلص من الطريقة اليدوية والروتين ...وانا ارى جميع او معظم الموضوعات تكاد تخلوا من هذه النقطة ,وصراحة الان بعد هذين المثالين للاخوة بارك الله فيهم ,يمكن ان تقيس عليها جميع ماتعلمناه في الوراثة والموضوعات الاخرى ...

فبارك الله فيكم جميعا....