تعديل ارسال البراميتر

[عبد الله قدور]

السلام عليكم

في الكود التالي نقوم بالاتصال بقاعدة بيانات اس كيو ال ونقوم بتشغيل "اجراء مخزن"

لكن يتوقف  الكود عند تمرير البراميترات

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

Sub CallStoredProcedure()
    ' تحديد المتغيرات
    Dim conn As Object
    Dim cmd As Object
    
    ' اعدادات الاتصال
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;Integrated Security=SSPI;"
    
    ' إعداد كائن الأمر
    Set cmd = CreateObject("ADODB.Command")
    With cmd
        .ActiveConnection = conn
        .CommandType = 4 ' تحديد نوع الأمر كإجراء مخزن
        .CommandText = "AddDataToTable"
        
        ' تمرير قيم المعلمات
        .Parameters.Append .CreateParameter("@Param1", adInteger, adParamInput, , 123)
        .Parameters.Append .CreateParameter("@Param2", adVarChar, adParamInput, 50, "SampleValue")
        .Parameters.Append .CreateParameter("@Param3", adDate, adParamInput, , Date)
        
        .Execute ' تنفيذ الإجراء
    End With
    
    ' إغلاق الاتصال
    conn.Close
    
    MsgBox "تم إضافة البيانات بنجاح!"
End Sub

 

[أبو إبراهيم الغامدي]

وعليكم اسلام @عبد الله قدور

 

الغلط في القطعة التالية من الشفرة

' تمرير قيم المعلمات
        .Parameters.Append .CreateParameter("@Param1", adInteger, adParamInput, , 123)
        .Parameters.Append .CreateParameter("@Param2", adVarChar, adParamInput, 50, "SampleValue")
        .Parameters.Append .CreateParameter("@Param3", adDate, adParamInput, , Date)

 

عند إنشاء المحدد لا يجب أن يقترن بالمعامل (@). هذا الإقتران يكون عند إنشاء الإجراء فقط.. قم بإزالة المعامل فقط

' تمرير قيم المعلمات
        .Parameters.Append .CreateParameter("Param1", adInteger, adParamInput, , 123)
        .Parameters.Append .CreateParameter("Param2", adVarChar, adParamInput, 50, "SampleValue")
        .Parameters.Append .CreateParameter("Param3", adDate, adParamInput, , Date)

إذا أردت اعطاء المحددات قيمة جديدة لا تقم بإنشاءها مرة أخري.. فقط مرر القيم الجديدة بالطرية التالية

Param1.Value=Id
Param2.Value=Name
Param3.Value=Date

ComObj.Parametrs.Refresh