[thevirus]

(01-03-17, 11:32 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
عذرا أخي، المنتدى ليس للألغاز والحزازير، ضع الكود للإطلاع عليه وشكرا

---

كما أشير أخي العزيز، أنه لو تم طرح المشاركة بهذه الطريقة في موقع StackOverFlow  الشهير الإنذار الأول هو وضع الكود وبعد ذلك سيتم حذف المشاركة

انا اسف اخي العزيز 
لقد تم الحل 

كود :

Dim cmd As New SqlCommand
       cmd.CommandText = StordProce.Text
       cmd.Connection = con
       cmd.CommandType = CommandType.StoredProcedure
       Dim par(If(StordProce.Text = "UpdateStudentData", 19, 18)) As SqlParameter
       par(0) = New SqlParameter("@StudentFName", SqlDbType.NVarChar)
       par(0).Value = StudentFName.Text
       par(0).IsNullable = True
       par(1) = New SqlParameter("@StudentsName", SqlDbType.NVarChar)
       par(1).Value = StudentSName.Text
       par(1).IsNullable = True
       par(2) = New SqlParameter("@StudenttName", SqlDbType.NVarChar)
       par(2).Value = StudentTName.Text
       par(2).IsNullable = True
       par(3) = New SqlParameter("@StudentFoName", SqlDbType.NVarChar)
       par(3).Value = StudentFoName.Text
       par(3).IsNullable = True
       par(4) = New SqlParameter("@StudentLName", SqlDbType.NVarChar)
       par(4).Value = StudentLName.Text
       par(4).IsNullable = True
       par(5) = New SqlParameter("@StudentCLass", SqlDbType.Int)
       par(5).Value = StudentClass.Text
       par(5).IsNullable = True
       par(6) = New SqlParameter("@StudentPhone", SqlDbType.Int)
       par(6).Value = StudentPhone.Text
       par(6).IsNullable = True
       par(7) = New SqlParameter("@StudentPhoto", SqlDbType.Image)
       par(7).Value = StudentImage
       par(7).IsNullable = True
       par(8) = New SqlParameter("@StudentNatio", SqlDbType.NVarChar)
       par(8).Value = StudentNatio.Text
       par(8).IsNullable = True
       par(9) = New SqlParameter("@StudentSex", SqlDbType.NVarChar)
       par(9).Value = StudentSex.Text
       par(9).IsNullable = True
       par(10) = New SqlParameter("@StudentRel", SqlDbType.NVarChar)
       par(10).Value = StudentReli.Text
       par(10).IsNullable = True
       par(11) = New SqlParameter("@BirthIN", SqlDbType.Date)
       par(11).Value = BirthIn
       par(11).IsNullable = True
       par(12) = New SqlParameter("@FatherJob", SqlDbType.NVarChar)
       par(12).Value = FatherJob.Text
       par(12).IsNullable = True
       par(13) = New SqlParameter("@Place", SqlDbType.NVarChar)
       par(13).Value = Place.Text
       par(13).IsNullable = True
       par(14) = New SqlParameter("@Department", SqlDbType.NVarChar)
       par(14).Value = Department.Text
       par(14).IsNullable = True
       par(15) = New SqlParameter("@Mohafatha", SqlDbType.NVarChar)
       par(15).Value = Mohafatha.Text
       par(15).IsNullable = True
       par(16) = New SqlParameter("@FatherAddress", SqlDbType.NVarChar)
       par(16).Value = FatherAddress.Text
       par(16).IsNullable = True
       par(17) = New SqlParameter("@FatherNum", SqlDbType.Int)
       par(17).Value = FatherNum.Text
       par(17).IsNullable = True
       par(18) = New SqlParameter("@FatherName", SqlDbType.NVarChar)
       par(18).Value = FatherName.Text
       par(18).IsNullable = True
       If StordProce.EditValue = "UpdateStudentData" Then
           par(19) = New SqlParameter("@StudentIID", SqlDbType.Int)
           par(19).Value = StudentID.Text
       End If
       cmd.Parameters.AddRange(par)
       cmd.ExecuteNonQuery()

كنت استخدم تقنية الديف إكسبرس وكنت استخدم للتعبير عن القيمة TextEdit.EditValue تظهر الاخطاء لكن بعد ان وضعت TextEdit.Text لم تظهر الاخطاء