سؤال حول : طريقه محترفه في عمل تعبئه ال "DataSet" بالجداول ؟

يمكنك إنشاء فورم واحدة تكتب فيها كل ما يلزم من كود الاستعلام و تحديث البيانات... إلخ ثم بعد ذلك تقوم بإنشاء فورم على سبيل المثال الفورم الخاصة ببيانات الـ Customers و هذه الفورم تورث من الفورم الأولى مع مراعاة تعريف الـ Methods في الفورم الأولى بـ Overridesعند الحاجة لإضافة كود جديد في هذه الـ Methods في الفورم الثانية...

اشكرك على الرد رغم انه كان مختصر جداً ..

ممكن توضح الفكره بشرح أكثر يفهمه المبتدئ والمتوسط ..

أنا كنت أفكر في عمل Module أو Class للتصريح عن المتغيرات بحيث كل ما نجي نملى الداتا سيت بالبيانات نستدعيه . كما يلي في المثال التالي واللذي أخذته من مثال أرفقه الأخ Orasia ...

Imports System.Data.OleDb

Module Module_DB

	Public Function ConnectStringBuild() As String
		Try
			'================================================================			' Data Base Connection
			' للاتصال بقاعدة البيانات
			'================================================================			Dim strConn As String
			strConn = "provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & VB6.GetPath & "\SampleDataBase.mdb; Persist Security Info=False;Jet OLEDB:Database Password = cadcam"
			 Return strConn
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try
	End Function

	Public Function NoOfFields(ByVal StrSQL As String) As Integer
		Try
			'================================================================			' تقوم بارجاع عدد السجلات في قاعدة البيانات وتعتمد في عملها على دالة الاستعلام
			'================================================================			Dim oAdapter As OleDb.OleDbDataAdapter
			Dim oTable As DataTable = New DataTable
			Dim strConn As String
			Dim intLoop As Integer
			strConn = ConnectStringBuild()
			oAdapter = New OleDb.OleDbDataAdapter(StrSQL, strConn)
			oAdapter.Fill(oTable)
			intLoop = oTable.Rows.Count
			Return intLoop
		Catch oExcept As Exception
			MessageBox.Show(oExcept.Message)
		End Try
	End Function

	Public Function Get_Values(ByVal StrSQL As String) As Dataset
		Try
			'================================================================			' تعبئة البيانات من قاعدة البيانات الى البرنامج في داتا سيت
			'================================================================			Dim oAdapter As OleDb.OleDbDataAdapter
			Dim oDataset As Datadet = New Dataset
			Dim strConn As String
			strConn = ConnectStringBuild()
			oAdapter = New OleDb.OleDbDataAdapter(StrSQL, strConn)
			oAdapter.Fill(oDataset,"Customers")
			Return oDataset
		Catch oExcept As Exception
			MessageBox.Show(oExcept.Message)
		End Try
	End Function
End Module

اريد رأيك بالموضوع ولو فيه عمل احترافي أفضل من ذلك علمني ..

يا أخوان لدي مشروع واريد البدايه تكون صحيحه وسهلة التحديث فلا احتاج إلى كتابة الكثير من الاكواد بينما يمكن اختصارها بإجرائات نستدعيها وقت الحاجه ..

من لديه اسلوب جيد فليشاركنا باسلوبه ...

انا عن نفسي في الغالب اقوم بعمل Class للتعامل مع ال Database وتقريبا فيه كل العمليات اللت احتاجها للتعامل مع قاعدة البيانات من ال Connection String الى INSERT,UPDATE,DELETE,SELECt ، ومن ثم اقوم باستدعاء ما اريده من الخصائص او الدوال في اي Form

اقتباس

انا عن نفسي في الغالب اقوم بعمل Class للتعامل مع ال Database وتقريبا فيه كل العمليات اللت احتاجها للتعامل مع قاعدة البيانات من ال Connection String الى INSERT,UPDATE,DELETE,SELECt ، ومن ثم اقوم باستدعاء ما اريده من الخصائص او الدوال في اي Form

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

السلام عليكم

بالنسبة لي كمبتديء أنشات موديول أستدعيت فيها فضاءات الاسماء اللي أحتاجها

Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbDataAdapter

وعرفت متغير للاتصال بقاعدة البيانات والتعامل مع السجلات

  Public cn As New OleDb.OleDbConnection("Provider=Microsoft.jet.oleDB.4.0;Data Source=" & Application.StartupPath & "\Db1.mdb;")

 Public adapter As New OleDb.OleDbDataAdapter
	Public rs As New DataSet

وعند الحاجة لاجراء عملية على قاعدة البيانات

	sql = "select * from Table1"
			adapter = New OleDb.OleDbDataAdapter(sql, cn)
			rs = New DataSet
			adapter.Fill(rs)

والحمد احس انه كود بسيط

واتمنى اني افدتك

اخي المتميز بالطبع افدتني وانا شاكر لك على المعلومه التي قدمتها لي وعلى اهتمامك ..

ولكن لو يوجد طريقه لستخدام Class للتعامل مع ال Database وتقريبا فيه كل العمليات اللت احتاجها للتعامل مع قاعدة البيانات من ال Connection String الى INSERT,UPDATE,DELETE,SELECt لكان ذلك عمل محترف يسهل عملية تطوير الكود وتحديثه وتقليص عدد الأسطر ونحوه ...

لذلك ما زلت انتظر رد الأخ abd_albaset ... ارجو ان يلبي طلبي ..

هذا مثال صغير للكتب والمؤلفين، يحتوي على ثلاثه جداول وهي 1-جدول المؤلفين 2-جدول الكتب 3-جدول مؤلفين الكتب وهي على الترتيب BooksAuthors,Books,Authors

قاعدة البيانات Access

حاولت من خلال المثال عمل Class للتعامل مع قاعدة البيانات واطلقت عليه اسم Data ، عملت Object من ال Class عند عمل البرنامج ومن ثم قمت بتمريره كمعامل لبقية نماذج البرنامج، واللتي بدورها تتعامل مع دوال وطرق ال Class.

استميحكم عذرا اذا كان في المثال بعض الاخطاء، او اي ملاحظات لاحظتموها، لكن ربما بسبب العجلة وقلة الخبرة، فقد كان كل تركيزي يصب على عمل ال Class اللذي يتعامل مع قاعدة البيانات Data.

اتمنى من الاخوة ابداء ملاحظاتهم وتعليقاتهم على المثال حتى نستفيد جميعا من بعضنا البعض.

Authors_Books.rar

اخي abd_albaset أشكرك على ردك أولاً وعلى تلبيتك لطلبي ثانياً ..

والله العظيم لقد كنت أجن من الفرح لما رأيك أنك ارفقت مثال للتوضيح ، جعله الله في ميزان حسناتك ..

انا إطلعت على المثال على عجل كي ارد عليك واشكرك ، ومما يبدو أنني سوف اعتكف على دراسة مفرداته والتعلم منه ..

وبما أنك طرحته للنقاش فلن تسلم من السؤال والإستفسار ..

اقتباس

وبما أنك طرحته للنقاش فلن تسلم من السؤال والإستفسار

دائما على الرحب والسعة.