24-04-18, 01:45 PM
السلام عليكم ورحمة الله وبركاته
الاخوة الاعزاء
انا عندي هذا الكود ولكن عند الاضافة بيطلع عندي خطا ورسالة الخطا التالية اترككم مع الكود ومنتظر ردودكم الكريمة وفقكم الله
اما رسالة الخطا هذه
الاخوة الاعزاء
انا عندي هذا الكود ولكن عند الاضافة بيطلع عندي خطا ورسالة الخطا التالية اترككم مع الكود ومنتظر ردودكم الكريمة وفقكم الله
كود :
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 اما رسالة الخطا هذه