04-08-21, 04:43 PM
السلام عليكم ورحمة الله وبركاته
آمل التعديل على كود الحفظ بحيث يقبل حفظ الصورة في قاعدة البيانات
في المديول وضعت الكود التالي
وكود الحفظ
والتعديل
المطلوب التعديل على الكود باضافة حفظ صورة موضوعة على اداة PictureBox
آمل التعديل على كود الحفظ بحيث يقبل حفظ الصورة في قاعدة البيانات
في المديول وضعت الكود التالي
كود :
Public UserDT As New DataTable
Public UserDA As New OleDbDataAdapter
Public mynewIDUsers As Integer
Public Sub Load_Users()
UserDT.Clear()
UserDA = New OleDbDataAdapter("Select * From tblUsers", Con)
UserDA.Fill(UserDT)
End Sub
Public Sub Code_Users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("Select MAX(ID) FROM tblUsers", Con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewIDUsers = 1
Else
mynewIDUsers = dt(0)(0) + 1
End If
End Sub
كود :
UserDT.Rows.Add()
Dim Last As Integer = NationalityDT.Rows.Count - 1
UserDT.Rows(Last).Item("ID") = Me.txtID.Text
UserDT.Rows(Last).Item("UserName") = Me.UserName.Text
Dim Save As New OleDbCommandBuilder(UserDA)
UserDA.Update(UserDT )
UserDT.AcceptChanges()
MsgBox("تم الحفظ بنجاح", MsgBoxStyle.Information, "حفظ")
Call Load_Users()
والتعديل
كود :
Dim pos As Integer = BindingContext(UserDT).Position
UserDT.Rows(Last).Item("ID") = Me.txtID.Text
UserDT.Rows(Last).Item("UserName") = Me.UserName.Text
Dim Save As New OleDbCommandBuilder(UserDA)
UserDA.Update(UserDT)
UserDT.AcceptChanges()
MsgBox("تم التعديل بنجاح", MsgBoxStyle.Information, "تعديل")
Call Load_Users()
المطلوب التعديل على الكود باضافة حفظ صورة موضوعة على اداة PictureBox