+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود تعديل بيانات (/showthread.php?tid=23161)
كود تعديل بيانات - أبوسعود - 01-01-18
لو سمحتم اساتذتي الكرام وين الخطأ بالكود التالي :
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
ينتج عن الكود السابق الخطأ التالي :
RE: كود تعديل بيانات - zinom - 02-01-18
da = New OleDbDataAdapter("Select * From Table1 Where Id like '" & txtId.Text.Trim & "' ", con)
RE: كود تعديل بيانات - karimx - 02-01-18
السلام عليكم أخي العزيز ورحمة الله وبركاته
المشكلة في أن الجدول المستهدف لا يحتوي على حقل يحمل ميزة الـ Primary Key ، قم بإضافة خاصية الـ Primary Key للحق الـ Id وستحل المشكلة بإذن الله.
بالتوفيق
RE: كود تعديل بيانات - أبوسعود - 03-01-18
(02-01-18, 08:57 PM)karimx كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
المشكلة في أن الجدول المستهدف لا يحتوي على حقل يحمل ميزة الـ Primary Key ، قم بإضافة خاصية الـ Primary Key للحق الـ Id وستحل المشكلة بإذن الله.
بالتوفيق
مشكور أخي الكريم ...
تم حل المشكلة والحمد لله أشكر جهودك