[ابراهيم ايبو]

بالمناسبة مازال لديك خطأ حتى تكون صيغة كتابة الباراميتر صحيحة ولايظهر لك اخطاء

انظر الى هذا السطر  وانهج مثله لباقي الحقول

كود :

cmd.Parameters.Add(New SqlParameter("@PatientTitle", SqlDbType.VarChar)).Value = PatientTitle

تفضل كود الحفظ خاصتك هكذا

PHP كود :

 Public Sub Insert_Patient(ByVal Code As Integer, ByVal RegistrationDate As Date, ByVal ResultDate As Date, ByVal RegistrationTime As Date, ByVal ResultTime As Date, ByVal PatientTitle As String, ByVal PatientName As String)
        'إضافة البيانات
        Dim cmd As New SqlCommand("Insert into Patients (Code,RegistrationDate,ResultDate,RegistrationTime,ResultTime,PatientTitle,PatientName) values(@Code,@RegistrationDate,@ResultDate,@RegistrationTime,@ResultTime,@PatientTitle,@PatientName)", connSQL)
        cmd.Parameters.Add(New SqlParameter("@Code", SqlDbType.Int)).Value = Max_Code_Form_Patients() + 1
        cmd.Parameters.Add(New SqlParameter("@RegistrationDate", SqlDbType.Date)).Value = RegistrationDate
        cmd.Parameters.Add(New SqlParameter("@ResultDate", SqlDbType.Date)).Value = ResultDate
        cmd.Parameters.Add(New SqlParameter("@RegistrationTime", SqlDbType.VarChar)).Value = RegistrationTime
        cmd.Parameters.Add(New SqlParameter("@ResultTime", SqlDbType.VarChar)).Value = ResultTime
        cmd.Parameters.Add(New SqlParameter("@PatientTitle", SqlDbType.VarChar)).Value = PatientTitle
        cmd.Parameters.Add(New SqlParameter("@PatientName", SqlDbType.VarChar)).Value = PatientName

        If connSQL.State = 1 Then connSQL.Close()
        connSQL.Open()
        cmd.ExecuteNonQuery()
        connSQL.Close()
        cmd = Nothing
    End Sub