[Motaz Alnuweiri]

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

السطر الأول:

كود :

Public Function fill_DataToGrid(ByVal DG As DataGridView, ByVal SqlStatment As String) As DataTable

تعريف اقتران اسمه fill_DataToGrid يأخذ متغيران الأول DG من نوع DataGridView والثاني SqlStatment من نوع نص وهذا الاقتران يرجع ناتج من نوع DataTable.

السطر الثاني والثالث:

كود :

Dim cmd As New SqlCommand(SqlStatment, SqlConnect)
Dim ad As New SqlDataAdapter(cmd)

السطران يستخدمان لعمل اتصال بقاعدة بيانات

السطر الثاني: تعريف متغير اسمه cmd من نوع SqlCommand حيث أنه يأخذ متغيران الأول SqlStatment وهو أحد مدخلات الأقتران fill_DataToGrid ومتغير ثاني اسمه SqlConnect.

السطر الثالث: تعريف متغير اسمه ad وهو من نوع SqlDataAdapter وهو يأخذ قيمته من متغير السطر الثاني cmd.

السطر الرابع:

كود :

Dim tb As New DataTable

تعريف متغير اسمه tb من نوع DataTable.