تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تعديل بيانات
#1
لو سمحتم اساتذتي الكرام وين الخطأ بالكود التالي :
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
ينتج عن الكود السابق الخطأ التالي :


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
da = New OleDbDataAdapter("Select * From Table1 Where Id like '" & txtId.Text.Trim & "' ", con)
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود الجمع عمور2016 1 59 24-10-20, 01:39 PM
آخر رد: محمد كريّم
  [VB.NET] تعديل بسيط في الطباعة المباشرة فقط ReportViewer sniperjawadino 22 7,532 23-10-20, 11:37 PM
آخر رد: Samo102
  ارجو تعديل فى جملة SELECT new_programer 3 163 14-10-20, 11:50 PM
آخر رد: new_programer
Thumbs Up [SQL] تطبيق عملى لمشروع قاعدة بيانات بSQL محمود بكير 1 112 13-10-20, 03:39 PM
آخر رد: محمد كريّم
  ربط ReportViewer بقاعدة بيانات access عليها password khaled Mohammed 0 68 13-10-20, 02:07 PM
آخر رد: khaled Mohammed
  [VB.NET] برنامج اقساط على الفجوال بيسك 2010 وقاعده بيانات سيكوال سيرفر 2008 shawky ahmed 1 136 12-10-20, 09:12 AM
آخر رد: mmali127
  [VB.NET] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات shone1 3 234 10-10-20, 01:14 PM
آخر رد: shone1
  [سؤال] مساعدة في إكمال كود 3 أزرار (حذف-بحث-تعديل) HUNTER25 12 615 08-10-20, 02:20 PM
آخر رد: اسامه الهرماوي
  اضافة ملف pdf الى قاعدة بيانات sql server 2012 moh developer 5 214 25-09-20, 03:01 PM
آخر رد: moh developer
  عمليات الاضافة والتعديل على قاعدة بيانات sql server 2012 kewely 2 204 19-09-20, 07:45 PM
آخر رد: kewely

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم