[ناريمان]

مشكورة بو رائد لجهدك معاي .. 

بس ما عرفت وين لازم اضيف الكود بالضبط !

هذا كود الاضافة : 

        Dim CmdAddEmp As New OleDbCommand("Insert Into TblEmp(EmpName, EmpMob, EmpPic) Values(@EmpName, @EmpMob, @EmpPic)", ConnPro)
        Dim FS As New System.IO.FileStream(DlgEmpPic.FileName, IO.FileMode.Open, IO.FileAccess.Read)

        Try
            Dim EmpPicArrayByte(CType(FS.Length() - 1, Integer)) As Byte
            FS.Read(EmpPicArrayByte, 0, EmpPicArrayByte.Length)
            FS.Close()

            Dim NameParam As New OleDbParameter("@EmpName", OleDbType.VarChar, 80, "EmpName")
            Dim EmpMob As New OleDbParameter("@EmpMob", OleDbType.VarChar, 10, "EmpMob")
            Dim PicParam As New OleDb.OleDbParameter("@EmpPic", OleDbType.LongVarBinary, _
            EmpPicArrayByte.Length, "EmpPic")
            CmdAddEmp.Parameters.Add(NameParam)
            CmdAddEmp.Parameters("@EmpName").Value = TxtEmpName.Text
            CmdAddEmp.Parameters.Add(EmpMob)
            CmdAddEmp.Parameters("@EmpMob").Value = TxtEmpMob.Text
            CmdAddEmp.Parameters.Add(PicParam)
            CmdAddEmp.Parameters("@EmpPic").Value = EmpPicArrayByte

            CmdAddEmp.ExecuteNonQuery()

            MsgBox("The Employee has been added successfully", MsgBoxStyle.OkOnly, "Saved Successfully")

            Dim CmdSeletEmpID As New OleDbCommand("Select @@Identity From TblEmp", ConnPro)

            TxtEmpID.Text = CmdSeletEmpID.ExecuteScalar

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error Occured")

        End Try

        ConnPro.Close()


و هذا كود الحذف : 

Dim y As Byte
        Try
            y = MessageBox.Show(" هل ترغب بالغاء هذا الملف", PID.Text, MessageBoxButtons.YesNo)
            If y = 6 Then
                Dim sql As String = "DELETE FROM TblEmp WHERE EmpID=" & PID.Text & ""
                ConnPro.Open()
                Dim cmd As OleDbCommand = New OleDbCommand(sql, ConnPro)
                cmd.ExecuteNonQuery() 'تنفيذ امر الالغاء
                ConnPro.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(Err.Description, "حدث خطأ في الغاء الملف")
        Finally
            If y = 6 Then


            End If
            TblEmpDataGridView.Refresh()
        End Try

---

سوري ..

بس هلفترة اشتغل على مشروع التخرج .. و كل هالاسئلة بالنسبة لي موضوع واحد ..