Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim sql As String = "INSERT INTO Persons ( [name], date, photo ) VALUES ( @name, GETDATE(), @photo ) "
Dim comm As New SqlClient.SqlCommand(sql, conn)
comm.Parameters.AddWithValue("@name", Me.txtName.Text.Trim)
comm.Parameters.AddWithValue("@photo", IIf(IsNothing(Me.pctPhoto.Image), imgToByte(New Bitmap(1, 1)), imgToByte(Me.pctPhoto.Image)))
conn.Open()
comm.ExecuteNonQuery()
conn.Close()
End Sub
لكن الم تقرا dim byt as new byte هذه عوضا عن الصورة الغير موجودة
