رسالة خطاء عند تحديث حقل في الداتا بيز
''' <summary>
''' This Method For Update Aouthor
''' </summary>
Public Function Update_Aouthor(ByVal Name As String, ByVal Specialization As String, ByVal Birth_Date As Date, ByVal Death_Date As Date, ByVal Status As String, ByVal Photo As Image, ByVal Note As String, ByVal Number As Integer) As String
con.ConnectionString = Class1.con
con.Open()
Dim cmd2 As New SqlCommand
cmd2.CommandText = "update Author set Name=@Name,Specialization=@Specialization,Birth_Date=@Birth_Date,Death_Date=@Death_Date,Status=@Status,Photo=@Photo,Note=@Note where Number=(@Number)"
cmd2.Connection = con
cmd2.Parameters.Add("@Name", SqlDbType.NVarChar)
cmd2.Parameters("@Name").Value = Name
cmd2.Parameters.Add("@Specialization", SqlDbType.NVarChar)
cmd2.Parameters("@Specialization").Value = Specialization
cmd2.Parameters.Add("@Birth_Date", SqlDbType.DateTime)
cmd2.Parameters("@Birth_Date").Value = Birth_Date
cmd2.Parameters.Add("@Death_Date", SqlDbType.DateTime)
cmd2.Parameters("@Death_Date").Value = Death_Date
cmd2.Parameters.Add("@Status", SqlDbType.NVarChar)
cmd2.Parameters("@Status").Value = Status
cmd2.Parameters.Add("@Photo", SqlDbType.Image)
cmd2.Parameters("@Photo").Value = Photo
cmd2.Parameters.Add("@Note", SqlDbType.NText)
cmd2.Parameters("@Note").Value = Note
cmd2.Parameters.Add("@Number", SqlDbType.Int)
cmd2.Parameters("@Number").Value = Number
cmd2.ExecuteNonQuery()
con.Close()
End Functionمع الاتصال صح
وكل اشي تمتام
