01-01-18, 05:00 PM
لو سمحتم اساتذتي الكرام وين الخطأ بالكود التالي :
Public Sub UpdateTable_Table1_InDirect(Id As String)
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
Try
da = New OleDbDataAdapter("Select * From Table1 Where Id =" & Id, con)
da.Fill(dt)
'If This ColumnName Is Already Exist Database Get MsgBox To Alert Don't Save
If dt.Rows.Count = 0 Then
MsgBox("لا يوجد سجل يمكن تعديله", MsgBoxStyle.Critical, "بيانات مفقودة")
Else
Dim pos As Integer = BindingContext(dt).Position
Dim last As Integer = dt.Rows.Count - 1
dt.Rows(pos).Item("Id") = txtId.Text
dt.Rows(pos).Item("Name1") = txtName1.Text
dt.Rows(pos).Item("Nike") = txtAge.Text
dt.Rows(pos).Item("Age") = txtAge.Text
dt.Rows(pos).Item("BirthDate") = dtpBirthDate.Value.Date
Dim byteimage0() As Byte
Dim ms0 As New MemoryStream()
pbimg.Image.Save(ms0, pbimg.Image.RawFormat)
byteimage0 = ms0.ToArray()
dt.Rows(pos).Item("img") = byteimage0
Dim Save As New OleDbCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
End If
Catch ex As Exception
MessageBox.Show("لا يمكن اتمام العملية" & Environment.NewLine & ex.Message, "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Sub
ينتج عن الكود السابق الخطأ التالي :
Public Sub UpdateTable_Table1_InDirect(Id As String)
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
dt.Clear()
Try
da = New OleDbDataAdapter("Select * From Table1 Where Id =" & Id, con)
da.Fill(dt)
'If This ColumnName Is Already Exist Database Get MsgBox To Alert Don't Save
If dt.Rows.Count = 0 Then
MsgBox("لا يوجد سجل يمكن تعديله", MsgBoxStyle.Critical, "بيانات مفقودة")
Else
Dim pos As Integer = BindingContext(dt).Position
Dim last As Integer = dt.Rows.Count - 1
dt.Rows(pos).Item("Id") = txtId.Text
dt.Rows(pos).Item("Name1") = txtName1.Text
dt.Rows(pos).Item("Nike") = txtAge.Text
dt.Rows(pos).Item("Age") = txtAge.Text
dt.Rows(pos).Item("BirthDate") = dtpBirthDate.Value.Date
Dim byteimage0() As Byte
Dim ms0 As New MemoryStream()
pbimg.Image.Save(ms0, pbimg.Image.RawFormat)
byteimage0 = ms0.ToArray()
dt.Rows(pos).Item("img") = byteimage0
Dim Save As New OleDbCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
End If
Catch ex As Exception
MessageBox.Show("لا يمكن اتمام العملية" & Environment.NewLine & ex.Message, "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Sub
ينتج عن الكود السابق الخطأ التالي :