تعبيئة الداتا قريد

السلام عليكم ورحمة الله وبركاته

يمكنك عمل دالة تقوم بإرجاع كائن DataTable وتسنده كمصدر بيانات للـ DataGrid

ماهي نوع قاعدة البيانات التي تتعامل معها ؟؟ سأقوم بكتابة الدالة بإفتراض التالي :

1 - هنالك جدول في قاعدة بيانات SQL Server إسمه Test ويحتوي علي حقلين علي سبيل المثال ID,Name

2- إسم قاعدة البيانات هو : TestDB

3- قاعدة البيانات موجوده علي نفس جهاز التطوير

4- إستخدام اسم المستخدم sa للإتصال بقاعدة البيانات بدون كلمة مرور

5- كائن الـ DataGridView إسمه dgv

الدالة :

 
Public Function GetData(ByVal _sqlStatement As String) As DataTable
		Dim _toReturn As New DataTable
		Dim _con As New SqlClient.SqlConnection("data source=(local);initial catalog=TestDB;UID=sa;PWD=;")
		Dim _cmd As New SqlClient.SqlCommand
		_cmd.Connection = _con
		_cmd.CommandType = CommandType.Text
		_cmd.CommandText = _sqlStatement
		Dim _ad As New SqlClient.SqlDataAdapter(_cmd)
		_ad.Fill(_toReturn)
		Return _toReturn
	End Function

لإستخدام هذه الداله حسب الفرضيات أعلاه فقط قم بمناداتها في الحدث الذي تريده علي الشكل التالي:

dgv.DataSource=GetData("Select ID,Name From Test")

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

والله الموفق

شكراً جزيلاً لك

تحياتي

الكود شغال 100 100