تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] لماذا يقوم امر الحفظ بتكرار البيانات
#1
السلام عليكم ورحمة الله وبركاته
وكل عام وانتم بخير
مشكلتي باختصار هي ان كلما أقم باضافة سجلين واعمل حفظ يضاف السجل الآول مرتين ولا أدري السبب ..

... وكل عام وانتم بخير

كود :
Imports System.Data.OleDb

Public Class DataSetTest
    Dim Sqltr As String = " Select * From Tb"
    Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=|DataDirectory|\db2.mdb;"
    Dim Da As New OleDbDataAdapter(Sqltr, ConString)
    Dim Ds As New DataSet
    Dim Cmdb As New OleDbCommandBuilder

    Sub DataLoad()
        Da.Fill(Ds, "Tb")
        NameText.DataBindings.Add("Text", Ds, "Tb.Name")
        PhonNoText.DataBindings.Add("Text", Ds, "Tb.PhoneNo")
    End Sub

    Private Sub DataSetTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataLoad()
    End Sub

    Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        Da.Update(Ds, "Tb")
    End Sub

    Private Sub NewRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewRecord.Click
        Me.BindingContext(Ds, "Tb").AddNew()
    End Sub

    Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click

        Dim R As DataRow = Ds.Tables("Tb").NewRow

        R(0) = NameText.Text
        R(1) = PhonNoText.Text
        Ds.Tables("Tb").Rows.Add(R)
        Cmdb = New OleDbCommandBuilder(Da)
    End Sub
End Class
[/php]


الملفات المرفقة
.rar   Testdataset.rar (الحجم : 68.47 ك ب / التحميلات : 161)
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

لأنك أضفت AddNew في زري أمر مختلفين وهما :

كود :
Private Sub NewRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewRecord.Click
   Me.BindingContext(Ds, "Tb").AddNew()
    End Sub

و

كود :
Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click

     Dim R As DataRow = Ds.Tables("Tb").NewRow

        R(0) = NameText.Text
        R(1) = PhonNoText.Text
        Ds.Tables("Tb").Rows.Add(R)
        Cmdb = New OleDbCommandBuilder(Da)
    End Sub

يفضل حذف الأول

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: @@أبورائد@@
#3
شكرا اخي الفاضل لقد قمت فعلا بتجربة وفعلا انك كنت علي صواب وشكرا ....
لكن كيف لي ان أعمل كود لاظهار سجل جديد يكون المستخدم باضافة البيانات من خلاله بدلا من الكود الأول ثم يستعمل الكود الثاني لاضافة البيانات ل داتا ست ومن ثم لقاعدة البيانات ...
الرد
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

سأعطيك مثالاً سهلا وبسيطا عن كيفية إضافة وتعديل وحذف البيانات، وأعتقد أنك ستفهم فيه العمليات كلها إن شاء الله.


انظر للمرفقات


الملفات المرفقة
.zip   SavingDate.zip (الحجم : 113.46 ك ب / التحميلات : 158)
الرد
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 221 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  سؤال عن قواعد البيانات في فيجوال بيسك2015 Emam emam 6 161 11-05-19, 04:02 AM
آخر رد: Emam emam
  [VB.NET] مشغل قواعد البيانات sql , mysql محمد اسماعيل 2 125 20-04-19, 12:32 PM
آخر رد: محمد اسماعيل
  [SQL] مشكلة في ربط قاعدة البيانات SQLSERVER2014 بـ فيجول بيسك 2017 اباذر 4 263 16-03-19, 12:00 AM
آخر رد: اباذر
  طريقة ادخال اعداد تحتوي على فاصلة في قاعدة البيانات segma 21 630 12-03-19, 10:23 PM
آخر رد: segma
  [VB.NET] البحث عن مسار مجلد ضمن قاعدة البيانات اكسس وفتحه من الفورم EMADSSS 1 208 21-02-19, 04:38 PM
آخر رد: elgokr
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 255 20-02-19, 11:08 AM
آخر رد: alfaiz678
  [VB.NET] فتح مسار مجلد موجود بقاعدة البيانات خاص بكل اسم EMADSSS 0 187 13-02-19, 01:03 AM
آخر رد: EMADSSS
  تصحيح كود الحفظ لقاعدة البيانات raaddawood 15 461 28-01-19, 08:53 PM
آخر رد: raaddawood
  كود sql اضافة او تغير كلمة المرور لقاعدة البيانات اللورد محمود 1 208 28-01-19, 06:56 PM
آخر رد: عبد العزيز البسكري

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


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