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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 1 50 أمس, 09:20 PM
آخر رد: elmezo
  [نقاش] عندك مشكلة فى كود او البرنامج مش شغال تعالا هنا elmezo 1 46 أمس, 11:49 AM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] ماهي الطريقة في تحويل قاعدة البيانات sql hglogtd 21 269 19-04-18, 12:39 AM
آخر رد: حريف برمجة
  [سؤال] الاتصال بقاعدة البيانات باكثر من جهاز ابو يوسف النواوي 2 10 310 14-04-18, 01:29 PM
آخر رد: khodor1985
  كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي السيد الجوهري 2 99 13-04-18, 12:43 AM
آخر رد: سعود
  مساعدة في ربط قاعدة البيانات عزف الرياح 0 57 13-04-18, 12:41 AM
آخر رد: عزف الرياح
  [VB.NET] ربط الفيجوال بيسك بقاعدة بيانات أكسيل moslimway11 4 261 12-04-18, 02:58 PM
آخر رد: moslimway11
  [VB.NET] مشكلة اثناء فتح البرنامج والوقت قد تم الانتهاء لايتضلل بالاحمر 0theghost0 1 62 12-04-18, 10:26 AM
آخر رد: 0theghost0
  كيف يمكن التحقق من وجود اسم موظف بقاعدة بيانات الحضور وسام عبدالله الدمرداش 3 115 12-04-18, 01:30 AM
آخر رد: ملهمـ
Photo عند فتح تقرير البرنامج بيعمل logout قاعدة بيانات mysql servo_eng 0 60 08-04-18, 07:17 PM
آخر رد: servo_eng

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


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