ماهو الفرق بين Recordset وبين Parameter وبين Property

1- Recordset Object :

أبحث بالمنتدي وسوف تجد شروحات كثيرة به ، ولكن سريعاً هو كائن البيانات الخاص بجلب البيانات المخزنة بقاعدة بيانات ، وكذلك إجراء المعالجات عليها سواء الحذف أو التعديل أو الإدراج أو التحديد ( DML ) .

2- Parameter Object :

هذا الكائن مسئول عن إرسال قيم لباراميتر إجراء Procedure أو غرض Function مخزن داخل قاعدة البيانات ، وهذا مستخدم بكثرة في قواعد بيانات غير Access مثل أوراكل وسيكوال .

ولكن يمكننا إدراج مثال بسيط علي أكسيس !!!

نفرض أن لديك جدول للموظفين Emp ، هذا الجدول يحتوي علي الحقول Emp_ID,Emp_Code, Emp_Name ، المطلوب إيجاد مجموعة معينة من الموظفين وذلك حسب إسم الموظف ، أولاً قم بإنشاء عارض داخل قاعدة البيانات Access ومن ثم أكتب بداخلة الكود التالي :

Parameters ID_Name  Text(50);
Select *
From Emp
Where Emp_Name Like '*' & ID_Name & '*';

من هنا يمكننا إنشاء Parameter وإرسالة كما يلي :

Dim Cmd As New ADODB.Command
Dim Rs As New ADODB.Recordset

Set Cmd.ActiveConnection = Cn
Cmd.CommandText = "VName"
Cmd.Parameters(0).Value = "Ahmed"

Set Rs = Cmd.Execute

أما بخصوص المعرف Parameter فتستخدم لتبسيط الأمور لا أكثر ولا أقل

3- Property Object :

علي فكرة ، هناك خصائص كثيرة بكائن الـ Recordset ، ولكن ما يتم إستخدامة بكثرة يظهر لك مباشرتاً من خلال كتابة إسم الكائن ومن ثم إدراج بعدها علامة Dot أو ( . ) ، أما إذا كنت تحتاج الي إمكانيات إضافية فيمكنك إستخدام خاصية propertys ، وإليك مثال :

نفرض أنك تحتاج الي إنشاء Bar أثناء جلب البيانات بـ Recordset كيف يتم ذلك !!!

 

Private WithEvents Rs As ADODB.Recordset

Private Sub Command1_Click()
	Dim strCnn As String
	strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB "
	Set Rs = New ADODB.Recordset
	Rs.CursorLocation = adUseClient
	Rs.Properties("Initial Fetch Size") = 1	''ÈÏÇíÉ ÇáÚÏ.
	Rs.Properties("Background Fetch Size") = 1 ''ÍÌã ÇáÚÏ.
	Rs.Open "SELECT Authors.* FROM Authors", strCnn, , , adAsyncFetch
End Sub

Private Sub Rst_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal Rs As ADODB.Recordset)
	Static X As Long
	X = X + 1
	Me.Caption = X
	DoEvents
End Sub

ويمكن معرفة كافة الخصائص المتاحة بالكود التالي :

Dim X As Long
Dim Rs As New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Properties.Refresh
For X = 0 To Rs.Properties.Count - 1
	List1.AddItem Rs.Properties(X).Name & " = " & Rs.Properties(X).Value
Next

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

شكراً