تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors
#1
Photo 
عملت برنامج بفيجوال بيسك 2012 و ربطته بقاعدة بيانات اكسس 2010 و البرنامج يعمل جيدا و يقوم بعمل سجلات جديدة و يقوم باضافتها لكنه بمجرد غلقه و فتحه مرة اخري اجد انه لا يحفظ ما تم وضعه به و نفس الشيء في قاعدة البيانات برجاء الافادة في سبب عدم الحفظ ؟ و هذا هو الكود الخاص بالفورم

Imports System.Data.OleDb
Public Class Form1
    Dim con As New OleDbConnection("Provider = Microsoft.Ace.Oledb.12.0; Data Source = Disreser.accdb")
    Dim dt As New DataTable()
    Dim cr As CurrencyManager
    Dim cb As OleDbCommandBuilder
    Dim da As New OleDbDataAdapter()
    Public Function UpdateDataSource(ByVal dataSet As EditProducts.DSProducts) _
        As System.Int32
        Me.OleDbConnection1.Open()
        Dim UpdatedRows As System.Data.DataSet
        Dim InsertedRows As System.Data.DataSet
        Dim DeletedRows As System.Data.DataSet
        Dim AffectedRows As Integer = 0
        UpdatedRows = dataSet.GetChanges(System.Data.DataRowState.Modified)
        InsertedRows = dataSet.GetChanges(System.Data.DataRowState.Added)
        DeletedRows = dataSet.GetChanges(System.Data.DataRowState.Deleted)
        Try
            If (Not (UpdatedRows) Is Nothing) Then
                AffectedRows = da.Update(UpdatedRows)
                AffectedRows = (AffectedRows + da.Update(UpdatedRows))
                AffectedRows = (AffectedRows + da.Update(UpdatedRows))
            End If
            If (Not (InsertedRows) Is Nothing) Then
                AffectedRows = (AffectedRows + da.Update(InsertedRows))
                AffectedRows = (AffectedRows + da.Update(InsertedRows))
                AffectedRows = (AffectedRows + da.Update(InsertedRows))
            End If
            If (Not (DeletedRows) Is Nothing) Then
                AffectedRows = (AffectedRows + da.Update(DeletedRows))
                AffectedRows = (AffectedRows + da.Update(DeletedRows))
                AffectedRows = (AffectedRows + da.Update(DeletedRows))
            End If
        Catch updateException As System.Exception
            Throw updateException
        Finally
            Me.OleDbConnection1.Close()
        End Try
    End Function

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        da = New OleDbDataAdapter("select ID , dateres , compname , compkind , adminstrator , governorate , suprvisorname , studentnumber , freenumber , telephone , mobile , simulatorno , Girono , showtype , Notes from Disreser ", con)
        da.Fill(dt)

        TextBox9.DataBindings.Add("Text", dt, "dateres")
        TextBox1.DataBindings.Add("Text", dt, "compname")
        ComboBox1.DataBindings.Add("Text", dt, "compkind")
        TextBox2.DataBindings.Add("Text", dt, "adminstrator")
        ComboBox2.DataBindings.Add("Text", dt, "governorate")
        TextBox3.DataBindings.Add("Text", dt, "suprvisorname")
        TextBox4.DataBindings.Add("Text", dt, "studentnumber")
        TextBox5.DataBindings.Add("Text", dt, "freenumber")
        TextBox6.DataBindings.Add("Text", dt, "telephone")
        TextBox7.DataBindings.Add("Text", dt, "mobile")
        ComboBox3.DataBindings.Add("Text", dt, "showtype")
        TextBox10.DataBindings.Add("Text", dt, "simulatorno")
        TextBox11.DataBindings.Add("Text", dt, "Girono")
        TextBox8.DataBindings.Add("Text", dt, "Notes")

        cr = Me.BindingContext(dt)
        Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString
    End Sub

    Private Property BindingSource1 As Object


    Private Sub Btnfirst_Click(sender As Object, e As EventArgs) Handles Btnfirst.Click
        cr.Position = 0
        Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString

    End Sub

    Private Sub Btnprevious_Click(sender As Object, e As EventArgs) Handles Btnprevious.Click
        cr.Position = cr.Position - 1
        Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString
    End Sub

    Private Sub Btnlast_Click(sender As Object, e As EventArgs) Handles Btnlast.Click
        cr.Position = cr.Count - 1
        Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Btninsert.Click
        If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrWhiteSpace(ComboBox1.Text)) Then
            MessageBox.Show("يجب ادخال البيانات في الحقول لكي يتم الاضافة")
            Return
        End If
        Me.Validate()
        cr.EndCurrentEdit()
        cb = New OleDbCommandBuilder(da)
        da.Update(dt)
        MessageBox.Show("تمت الاضافة بنجاح")
        Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Btnnew.Click
        cr.AddNew()
        TextBox9.Focus()
    End Sub



    Private Sub Btndeldte_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles Btndeldte.Click
            Me.Validate()
            cr.RemoveAt(cr.Position)
            cb = New OleDbCommandBuilder(da)
            da.Update(dt)
            MessageBox.Show("تم حذف البيانات بنجاح")
            Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString
    End Sub

    Private Sub Btnedit_Click_1(sender As Object, e As EventArgs) Handles Btnedit.Click
        cr.EndCurrentEdit()
        cb = New OleDbCommandBuilder(da)
        da.Update(dt)
        MessageBox.Show("تم تعديل البيانات بنجاح")
        Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString
    End Sub

    Private Sub Btbnext_Click(sender As Object, e As EventArgs) Handles Btbnext.Click
        cr.Position = cr.Position + 1
        Label13.Text = (cr.Position + 1) & " / " & dt.Rows.Count.ToString

    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        If (MessageBox.Show("هل تريد الخروج من البرنامج ؟", "إغلاق", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign) > Windows.Forms.DialogResult.Yes) Then Return
        MessageBox.Show("شكراً لإستخدامك برنامج حجز الرحلات مع تحيات محمد سامي")
        Me.Close()
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Hide()
        Form2.Show()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Hide()
        Form3.Show()
    End Sub

    Private Function OleDbConnection1() As Object
        Throw New NotImplementedException
    End Function

End Class
الرد
تم الشكر بواسطة:
#2
ارفع البرنامج لكي يتم مساعدتك اخي الكريم وحل المشكلة
الرد
تم الشكر بواسطة:
#3
انسخ قاعدة البيانات في مجلد bin/Debug
واحذف اللي في مجلد المشروع والافضل تعمل لها ضغط عشان تحتفظ بنسخة منها وتحذف الملف الاصلي للقاعدة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#4

.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 147)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 147)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 147)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 147)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 147)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 147) هذا هو البرنامج

علي فكرة حذفت ملف قاعدة البيانات من مجلد البرنامج فحذف الملف الاخر من debug
الرد
تم الشكر بواسطة:
#5
كل الحكاية رجعه من ثاني بس
ثم ايش كل هذي المرفقات الموضوع مو مستاهل بارك الله فيك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:
#6
رجعته و برضه مش قابل حفظ
الرد
تم الشكر بواسطة:
#7
ايه يا اخوان مافيش رد
جزاكم الله خبرا
الرد
تم الشكر بواسطة:
#8
(26-08-16, 10:50 PM)أبو عمر كتب : كل الحكاية رجعه من ثاني بس
ثم ايش كل هذي المرفقات الموضوع مو مستاهل بارك الله فيك

ربي يسعدك وينور طريقك على هالمعلومة بالفعل طبقت طريقتك والحمدلله انحلت مشلكتي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 2 59 اليوم, 12:15 AM
آخر رد: جيولوجي مبتدئ
  كيفية اظافة RSS داخل البرنامج؟ hamadz 0 13 أمس, 09:50 PM
آخر رد: hamadz
  ماهو الكود المُستخدم في تشغيل البرنامج برقم الهارديسك؟ Hazem1 9 180 أمس, 01:56 PM
آخر رد: عبد العزيز البسكري
  محتاج مساعدة فى عمل تحديث لى البرنامج عن بعد Mohamed Magdy 0 35 20-10-18, 10:23 AM
آخر رد: Mohamed Magdy
  تحديث قاعدة البيانات علي جهاز العميل makky 1 55 19-10-18, 04:13 PM
آخر رد: ahmedmansour
  مشكة فى تحديث البرنامج Mohamed Magdy 1 59 18-10-18, 08:45 PM
آخر رد: asemshahen5
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 68 18-10-18, 01:09 PM
آخر رد: nabil.1710
  كيف ابحث داخل قاعدة البيانات احمد خطاب 2 89 17-10-18, 01:51 AM
آخر رد: اسامه الهرماوي
  [نقاش] خطأ بسيط في الاتصال بقاعدة البيانات اسامه الهرماوي 4 169 17-10-18, 01:44 AM
آخر رد: اسامه الهرماوي
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 86 16-10-18, 09:18 PM
آخر رد: WAEL ABED

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


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