تقييم الموضوع :
  • 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 ك ب / التحميلات : 144)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 140)
الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 65 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 63 23-10-17, 03:22 AM
آخر رد: khodor1985
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,708 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 179 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 220 15-08-17, 02:11 PM
آخر رد: abozeyd
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 196 19-07-17, 03:24 PM
آخر رد: waelalmsry75
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 186 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  البحث في قاعدة البيانات مع تجاهل التشكيل waelalmsry75 16 755 03-07-17, 05:04 AM
آخر رد: K39
  [سؤال] كيف احفظ صورة الطالب الى قاعدة البيانات عبداللطيف2017 6 359 25-06-17, 01:47 PM
آخر رد: silverlight
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 6,160 28-05-17, 05:30 PM
آخر رد: abiza

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


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