مشكورة بو رائد لجهدك معاي ..
بس ما عرفت وين لازم اضيف الكود بالضبط !
هذا كود الاضافة :
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
سوري ..
بس هلفترة اشتغل على مشروع التخرج .. و كل هالاسئلة بالنسبة لي موضوع واحد ..