[AnyDesk]

(27-01-23, 08:22 PM)ali_ahmed12 كتب : السلام عليكم ورحمة الله وبركاته
لدي كود حفظ تالي يحفظ البيانات لكن في حالة عدم اختيار صورة من اداة pictures box  يظهر خطا 
اريد حتا في حالة عدم اختيار صورة يحفظ بيانات 
لاريد فكره وهيا جعل صورة افتراضيه في اداة pictures box  
هل من طريقه 

كود :

  If fullname.Text = "" Then
           MessageBox.Show("الرجاء ادخال اسم العميل")

           Exit Sub
       End If


       Dim sql = "select *from tbl_customers where cus_id=N'" & Val(customer_code.Text) & "'"
       Dim adp As New SqlDataAdapter(sql, Module1.con)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       If dt.Rows.Count > 0 Then
           MessageBox.Show("اسم عميل موجود مسبقا")
       Else

           Dim DR = dt.NewRow
           DR!CUS_ID = customer_code.Text
           DR!FullName = fullname.Text
           DR!TEL = tel.Text
           DR!Email = email.Text
           DR!country = ComboBox1.Text
           DR!city = ComboBox2.Text
           DR!status = True
           If ofd.FileName <> "" Then
               Dim imgbytearray() As Byte
               Dim stream As New MemoryStream
               PictureBox1.Image.Save(stream, ImageFormat.Jpeg)
               imgbytearray = stream.ToArray()
               stream.Close()
               DR!picture = imgbytearray


           End If
           dt.Rows.Add(DR)
           Dim cmd As New SqlCommandBuilder(adp)
           adp.Update(dt)

           MessageBox.Show("تم حفظ بنجاح")

           btn_close_Click(sender, e)
       End If

باعتبار العمود CUS_ID من نوع ترقيم تلقائي وإلا قم لإضافته في الكود

PHP كود :

If fullname.Text.Trim = "" Then
    MessageBox.Show("الرجاء ادخال اسم العميل")
    Exit Sub
End If

Dim cmd As SqlCommand
If Module1.con.State <> ConnectionState.Open Then Module1.con.Open()

cmd = New SqlCommand("SELECT [CUS_ID] FROM [tbl_customers] WHERE [CUS_ID]=@cus_id", Module1.con)
cmd.Parameters.AddWithValue("@cus_id", Val(customer_code.Text))
Dim a = cmd.ExecuteScalar
If IsNothing(a) = False Then
    MessageBox.Show("اسم عميل موجود مسبقا")
Else
    cmd = New SqlCommand("INSERT INTO [tbl_customers] ([FullName],[TEL],[Email],[country],[city],[status],[picture]) VALUES (@fullname,@tel,@email,@country,@city,@status,@picture)", Module1.con)
    cmd.Parameters.AddWithValue("@FullName", fullname.Text)
    cmd.Parameters.AddWithValue("@tel", tel.Text)
    cmd.Parameters.AddWithValue("@email", email.Text)
    cmd.Parameters.AddWithValue("@country", ComboBox1.Text)
    cmd.Parameters.AddWithValue("@city", ComboBox2.Text)
    cmd.Parameters.AddWithValue("@status", CheckBox1.Checked)
    If IsNothing(PictureBox1.Image) Then
        cmd.Parameters.Add(New SqlParameter("@picture", SqlDbType.Image) With {.Value = DBNull.Value})
    Else
        cmd.Parameters.AddWithValue("@picture", New ImageConverter().ConvertTo(PictureBox1.Image, GetType(Byte())))
    End If

    Dim b = cmd.ExecuteNonQuery()
    If b > 0 Then
        MessageBox.Show("تم حفظ بنجاح")
        btn_close.PerformClick()
    Else
        MessageBox.Show("لم يتم الحفظ")
    End If
End If

Module1.con.Close()