[فراس الغزي]

السلام عليكم ورحمة الله وبركاته 

الاخوة الاعزاء 

 انا عندي هذا الكود ولكن عند الاضافة بيطلع عندي خطا ورسالة الخطا التالية اترككم مع الكود ومنتظر ردودكم الكريمة وفقكم الله 

     

كود :

If Textname.Text = String.Empty Or Textphohaf.Text = String.Empty Or Textphonc.Text = String.Empty Or Textbaqa.Text = String.Empty Or Textmdfoa.Text = String.Empty Or Textloc.Text = String.Empty Or Textloct.Text = String.Empty Or Textnum.Text = String.Empty Or Textnumq.Text = String.Empty Then
            MsgBox("جميع الحقول مطلوبة يا صديقي العزيز ", MsgBoxStyle.Information, "تحذير")
            Exit Sub

 
End If


        Try

            Dim query As String
            If ToDo = "add" Then
                query = "insert into cus ( username, phon, loction, working, numhwoa, imguser, kafelname, kafelphon, kafelhowaa, kafelwork, servicen, serivcenum, serivcetype, serivcepric, serivcetak, serivceqsd,qsad, dategat, note,baqe,mdfoa) values(@username,@phon,@loction,@working,@numhwoa,@imguser,@kafelname,@kafelphon,@kafelhowaa,@kafelwork,@servicen,@serivcenum,@serivcetype,@serivcepric,@serivcetak,@serivceqsd,@qsad,@dategat,@note,@baqe,@mdfoa) "
            Else
                query = "update cus set username=@username ,phon=@phon ,loction=@loction ,working=@working ,numhwoa=@numhwoa ,imguser=@imguser ,kafelname=@kafelname ,kafelphon=@kafelphon ,kafelhowaa=@kafelhowaa ,kafelwork=@kafelwork ,servicen=@servicen ,serivcenum=@serivcenum ,serivcetype=@serivcetype ,serivcepric=@serivcepric ,serivcetak=@serivcetak ,serivceqsd=@serivceqsd ,qsad=@qsad ,dategat=@dategat ,note@note ,baqa=@baqa ,mdfoa=@mdfoa where id = " & id

            End If
            

            Dim filesize As UInt32
            Dim mstrem As New System.IO.MemoryStream

            Picturcus.Image.Save(mstrem, System.Drawing.Imaging.ImageFormat.Jpeg)
            Dim arrimage() As Byte = mstrem.GetBuffer
            filesize = mstrem.Length
            mstrem.Close()

            '  Dim filesize2 As UInt32
            '  Dim mstrem2 As New System.IO.MemoryStream

            ' Picturekaf.Image.Save(mstrem2, System.Drawing.Imaging.ImageFormat.Jpeg)
            ' Dim arrimage2() As Byte = mstrem2.GetBuffer
            'filesize2 = mstrem2.Length
            'mstrem2.Close()

            cmd = New MySqlCommand(query, con)
            cmd.Parameters.Add("@username", MySqlDbType.VarChar, 200).Value = Textname.Text
            cmd.Parameters.Add("@phon", MySqlDbType.VarChar, 200).Value = Textphonc.Text
            cmd.Parameters.Add("@loction", MySqlDbType.VarChar, 200).Value = Textloct.Text
            cmd.Parameters.Add("@working", MySqlDbType.VarChar, 200).Value = Textloc.Text
            cmd.Parameters.Add("@numhwoa", MySqlDbType.VarChar, 200).Value = Textnumhowa.Text
            cmd.Parameters.Add("@imguser", MySqlDbType.Blob).Value = arrimage
            cmd.Parameters.Add("@kafelname", MySqlDbType.VarChar, 200).Value = Textnkaf.Text
            cmd.Parameters.Add("@kafelphon", MySqlDbType.VarChar, 200).Value = Textphohaf.Text
            cmd.Parameters.Add("@kafelhowaa", MySqlDbType.Blob).Value = arrimage
            cmd.Parameters.Add("@kafelwork", MySqlDbType.VarChar, 200).Value = kfwork.Text
            cmd.Parameters.Add("@servicen", MySqlDbType.VarChar, 200).Value = Texttyp.Text
            cmd.Parameters.Add("@serivcenum", MySqlDbType.VarChar, 200).Value = Textnum.Text
            cmd.Parameters.Add("@serivcetype", MySqlDbType.VarChar, 200).Value = CheckB.Text
            cmd.Parameters.Add("@serivcepric", MySqlDbType.VarChar, 200).Value = Textprice.Text
            cmd.Parameters.Add("@serivcetak", MySqlDbType.VarChar, 200).Value = Texttotal.Text
            cmd.Parameters.Add("@serivceqsd", MySqlDbType.VarChar, 200).Value = Textnumq.Text
            cmd.Parameters.Add("@qsad", MySqlDbType.VarChar, 200).Value = Textqasd.Text
            cmd.Parameters.Add("@dategat", MySqlDbType.Date).Value = DateT.Value.Date
            cmd.Parameters.Add("@note", MySqlDbType.VarChar, 200).Value = Textnot.Text
            cmd.Parameters.Add("@baqa", MySqlDbType.VarChar, 200).Value = Textbaqa.Text
            cmd.Parameters.Add("@mdfoa", MySqlDbType.VarChar, 200).Value = Textmdfoa.Text

        con.Open()



            cmd.ExecuteNonQuery()

            MsgBox("تم حفظ البيانات بنجاح شكرا لكم", MsgBoxStyle.Information, "الاضافة")
            textclaer()
        Catch ex As Exception
            MsgBox(ex.Message)

        Finally

            con.Close()

        End Try   

اما رسالة الخطا هذه 

[فراس الغزي]

معقولة  صعبة  اخوان  ارجو  منكم  المساعدة

[فراس الغزي]

تم حل  المشكلة  حيث  وجدت  انني  قمت بكتابة  بعض المدخلات  مرتين لذلك بيحصل  عندي  خطا في  الكومونت