تقييم الموضوع :
  • 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 ك ب / التحميلات : 64)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 64)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 64)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 64)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 64)
.docx   Doc3.docx (الحجم : 399.48 ك ب / التحميلات : 64) هذا هو البرنامج

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بخصوص استيراد البيانات من الاكسيل salah mansour 0 11 منذ 2 ساعة مضت
آخر رد: salah mansour
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 5,001 25-05-17, 08:04 AM
آخر رد: hatem555
  كيف تتحقق من وجود برنامج مثبت وان لم يكن مثبت تثبته محمد بن عطية 1 59 20-05-17, 09:26 PM
آخر رد: محمود بكرى
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 59 19-05-17, 12:45 PM
آخر رد: Adrees
  استيراد البيانات من الاكسيل salah mansour 1 57 18-05-17, 06:28 AM
آخر رد: khaled12345
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 94 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 121 15-05-17, 04:08 AM
آخر رد: samawi
  [SQL] التاريخ في البرنامج العواد الصغير 7 193 14-05-17, 06:17 PM
آخر رد: العواد الصغير
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 131 14-05-17, 11:01 AM
آخر رد: rabeh.ram

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


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