عندي قاعدة بيانات SQL وstored proceder لعملية التحديث
بس المشكلة انة دائما يعطيني خطاء في الجملة synatx مع انو مافي اي حطاء وهذا كود البروسيجر
CREATE PROCEDURE [update_Employee_1] (@Employee_ID_1 [int], @Employee_ID_2 [int], @Employee_Name_E_3 [nvarchar](50), @Employee_Name_A_4 [nvarchar](50), @Department_5 [nvarchar](50), @Resigned_6 [nvarchar](50), @Date_Of_Resignation_7 [datetime], @Photo_8 [image], @Birth_Day_9 [datetime], @Jobtitle_10 [nvarchar](50), @Date_Of_Appointment_11 [datetime], @Nationality_12 [nvarchar](50), @Bank_13 [nvarchar](50), @Bank_Account_Number_14 [int], @Bank_Branch_15 [nvarchar](50), @Mobile_16 [int]) AS UPDATE [Salary].[dbo].[Employee] SET [Employee_ID] = @Employee_ID_2, [Employee_Name_E] = @Employee_Name_E_3, [Employee_Name_A] = @Employee_Name_A_4, [Department] = @Department_5, [Resigned] = @Resigned_6, [Date_Of_Resignation] = @Date_Of_Resignation_7, [Photo] = @Photo_8, [Birth_Day] = @Birth_Day_9, [Jobtitle] = @Jobtitle_10, [Date_Of_Appointment] = @Date_Of_Appointment_11, [Nationality] = @Nationality_12, [Bank] = @Bank_13, [Bank_Account_Number] = @Bank_Account_Number_14, [Bank_Branch] = @Bank_Branch_15, [Mobile] = @Mobile_16 WHERE ( [Employee_ID] = @Employee_ID_1) GO
وهذا كود vb.netv
'''' <summary>
'''' This Method For Update Emloyee
'''' </summary>
Public Function Update_Employee(ByVal Employee_ID_1 As Integer, ByVal Employee_Name_E As String, ByVal Employee_Name_A As String, ByVal Department As String, ByVal Resigned As String, ByVal Date_Of_Resignation As Date, ByVal photo As System.Drawing.Image, ByVal Birth_Day As Date, ByVal Jobtitle As String, ByVal Date_Of_Appointment As Date, ByVal Nationality As String, ByVal Bank As String, ByVal Bank_Account_Number As Integer, ByVal Bank_Branch As String, ByVal Mobile As Integer) As String
conn.ConnectionString = con
Dim m As New IO.MemoryStream()
Dim cmd2 As New SqlCommand
conn.Open()
cmd2.CommandText = "Update_Employee_1 '@Employee_ID_1','@Employee_ID_2','@Employee_Name_E','@Employee_Name_A','@Department','@Resigned','@Date_Of_Resignation','@Photo','@Birth_Day','@Jobtitle','@Date_Of_Appointment','@Nationality','@Bank','@Bank_Account_Number','@Bank_Branch','@Mobile'"
cmd2.Connection = conn
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' 1
cmd2.Parameters.Add("@Employee_ID_1", SqlDbType.Int, 4)
cmd2.Parameters("@Employee_ID_1").Value = Employee_ID_1
'' 2
cmd2.Parameters.Add("@Employee_ID_2", SqlDbType.NVarChar, 4)
cmd2.Parameters("@Employee_ID_2").Value = Employee_ID_1
'' 3
cmd2.Parameters.Add("@Employee_Name_E", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Employee_Name_E").Value = Employee_Name_E
'' 4
cmd2.Parameters.Add("@Employee_Name_A", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Employee_Name_A").Value = Employee_Name_A
'' 5
cmd2.Parameters.Add("@Department", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Department").Value = Department
'' 6
cmd2.Parameters.Add("@Resigned", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Resigned").Value = Resigned
'' 7
cmd2.Parameters.Add("@Date_Of_Resignation", SqlDbType.DateTime, 8)
cmd2.Parameters("@Date_Of_Resignation").Value = Date_Of_Resignation
'' 8
cmd2.Parameters.Add("@Photo", SqlDbType.Image, 16)
cmd2.Parameters("@Photo").Value = photo
photo.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
cmd2.Parameters("@Photo").Value = m.GetBuffer
'' 9
cmd2.Parameters.Add("@Birth_Day", SqlDbType.DateTime, 8)
cmd2.Parameters("@Birth_Day").Value = Birth_Day
'' 10
cmd2.Parameters.Add("@Jobtitle", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Jobtitle").Value = Jobtitle
'' 11
cmd2.Parameters.Add("@Date_Of_Appointment", SqlDbType.DateTime, 8)
cmd2.Parameters("@Date_Of_Appointment").Value = Date_Of_Appointment
'' 12
cmd2.Parameters.Add("@Nationality", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Nationality").Value = Nationality
'' 13
cmd2.Parameters.Add("@Bank", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Bank").Value = Bank
'' 14
cmd2.Parameters.Add("@Bank_Account_Number", SqlDbType.Int, 4)
cmd2.Parameters("@Bank_Account_Number").Value = Bank_Account_Number
'' 15
cmd2.Parameters.Add("@Bank_Branch", SqlDbType.NVarChar, 50)
cmd2.Parameters("@Bank_Branch").Value = Bank_Branch
'' 16
cmd2.Parameters.Add("@Mobile", SqlDbType.Int, 4)
cmd2.Parameters("@Mobile").Value = Mobile
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
cmd2.ExecuteNonQuery()
conn.Close()
End Functionوهذي صورة الخطاء


