تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حفظ البيانات دفعة واحدة الداتا جريد فيو mahmoud.3com 0 46 10-11-18, 05:51 AM
آخر رد: mahmoud.3com
  مشكلة قاعدة البيانات لا تقبل البيانات بعد التنصيب abozeyd 8 275 10-09-18, 08:02 AM
آخر رد: elgokr
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 586 25-08-18, 10:00 PM
آخر رد: elgokr
  [سؤال] حول تحديث البيانات داخل DataGridView مبرمج بلا حدود 20 3,707 14-08-18, 09:00 PM
آخر رد: elgokr
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 381 02-08-18, 07:26 PM
آخر رد: سعود
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 213 04-05-18, 12:14 AM
آخر رد: djelloul
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 255 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
  إضافة الصورة في قاعدة البيانات iFanfan 0 346 01-03-18, 06:02 PM
آخر رد: iFanfan
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 425 27-01-18, 06:07 PM
آخر رد: أبو عمر
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 391 04-11-17, 07:37 PM
آخر رد: larbihamri

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


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