منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لو سمحتم اساتذتي الكرام وين الخطأ بالكود التالي :
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
ينتج عن الكود السابق الخطأ التالي :

da = New OleDbDataAdapter("Select * From Table1 Where Id like '" & txtId.Text.Trim & "' ", con)

السلام عليكم أخي العزيز ورحمة الله وبركاته
المشكلة في أن الجدول المستهدف لا يحتوي على حقل يحمل ميزة الـ Primary Key ، قم بإضافة خاصية الـ Primary Key للحق الـ Id وستحل المشكلة بإذن الله.
بالتوفيق

(02-01-18, 08:57 PM)karimx كتب : [ -> ]السلام عليكم أخي العزيز ورحمة الله وبركاته
المشكلة في أن الجدول المستهدف لا يحتوي على حقل يحمل ميزة الـ Primary Key ، قم بإضافة خاصية الـ Primary Key للحق الـ Id وستحل المشكلة بإذن الله.
بالتوفيق

مشكور أخي الكريم ...
تم حل المشكلة والحمد لله أشكر جهودك