تقييم الموضوع :
  • 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
واحذف اللي في مجلد المشروع والافضل تعمل لها ضغط عشان تحتفظ بنسخة منها وتحذف الملف الاصلي للقاعدة
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#4

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  رسالة خطأ عند استعراض البيانات aftfm 2 23 منذ 1 ساعه مضت
آخر رد: Rabeea Qbaha
  [VB.NET] استفسار بخصوص التاكد من وجود التيبل الاضافي dubai.eig 2 41 أمس, 10:22 AM
آخر رد: dubai.eig
  تغير حجم شاشات البرنامج عند العمل على شاشات اخرى nassery99 3 73 16-10-17, 12:42 PM
آخر رد: silverlight
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 52 16-10-17, 07:41 AM
آخر رد: khaled12345
  عمل شريط متحرك من قاعدة البيانات hglogtd 24 290 15-10-17, 11:54 PM
آخر رد: hglogtd
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 130 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 82 14-10-17, 10:55 PM
آخر رد: ابو روضة
  ظهور البرنامج عند نسخ رابط ابو روضة 8 158 12-10-17, 02:47 PM
آخر رد: ابو روضة
  ربط combobox بصفحه البيانات abdel.halim 8 132 11-10-17, 07:27 PM
آخر رد: abdel.halim
  [سؤال] رسالة خطأ بعد تنصيب البرنامج على جهاز آخر aftfm 1 57 09-10-17, 06:57 PM
آخر رد: Adrees

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


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