كيفية التعامل مع داتا بروسيجر للاوراكل

1- نص الإتصال :

نفرض أننا لدينا مستخدم تحت إسم DB وكلمة المرور DB

Cn.Open "Provider=MSDAORA.1;Password=DB;User ID=DB;Data Source=ProOra"

2- طريقة إستدعاء Procedure :

حسب الـ Procedure المدرج ، ففي حالة إدراج إجراء يحتوي علي باراميترات In يتم إستدعائة كما يلي :

Cn.Execute "Call INS_EMP('001','Ahmed','Male',1500,'24/9/1981')"

أما في حالة إستدعاء إجراء يحتوي علي باراميترات Out فهناك طريقة أخري

نفرض مثلاً أننا لدينا إجراء يستقبل قيمة المفتاح الرئيسي لجدول الموظف ومن ثم إرتجاع باقي البيانات كـ Out ، أنظر الكود التالي :

Create Or Replace Procedure Get_Emp(ID_Serial  In Number,ID_Code 
				 Out VarChar2,ID_Name Out VarChar2)
As
Begin
   Select Emp_Code,Emp_Name
	Into ID_Code,ID_Name
	From Emp
	Where Emp_ID = ID_Serial;
End;
/

كيفية إستدعاء الإجراء السابق

Set Cmd.ActiveConnection = Cn
Cmd.CommandType = adCmdText
Cmd.CommandText = "{Call LEmp(?,?,?)}"
Cmd.Parameters.Refresh
Cmd.Parameters(0).Value = 15
Cmd.Execute
txtData(1).Text = Cmd.Parameters(1).Value
txtData(2).Text = Cmd.Parameters(2).Value

أما إذا كنت ترغب في بناء Function أو Procedure يقوم بإرتجاع مجموعة من السجلات ، فهناك طرق كثيرة

شكراً

مشكور اخي

راح احاول افهم الكود لأني مبتدأ في ال vb6