+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors (/showthread.php?tid=17006)
البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - Mohamedsamy21 - 26-08-16
عملت برنامج بفيجوال بيسك 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
RE: البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - علي كعبي - 26-08-16
ارفع البرنامج لكي يتم مساعدتك اخي الكريم وحل المشكلة
RE: البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - أبو عمر - 26-08-16
انسخ قاعدة البيانات في مجلد bin/Debug
واحذف اللي في مجلد المشروع والافضل تعمل لها ضغط عشان تحتفظ بنسخة منها وتحذف الملف الاصلي للقاعدة
RE: البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - Mohamedsamy21 - 26-08-16
[attachment=11475][attachment=11475][attachment=11475][attachment=11475][attachment=11475][attachment=11475]هذا هو البرنامج
علي فكرة حذفت ملف قاعدة البيانات من مجلد البرنامج فحذف الملف الاخر من debug
RE: البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - أبو عمر - 26-08-16
كل الحكاية رجعه من ثاني بس
ثم ايش كل هذي المرفقات الموضوع مو مستاهل بارك الله فيك
RE: البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - Mohamedsamy21 - 27-08-16
رجعته و برضه مش قابل حفظ
RE: البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - Mohamedsamy21 - 28-08-16
ايه يا اخوان مافيش رد
جزاكم الله خبرا
RE: البرنامج لا يقوم بحفظ البيانات به و لا بقاعدة البيانات برغم عدم وجود errors - adooolah2011 - 01-09-16
(26-08-16, 10:50 PM)أبو عمر كتب : كل الحكاية رجعه من ثاني بس
ثم ايش كل هذي المرفقات الموضوع مو مستاهل بارك الله فيك
ربي يسعدك وينور طريقك على هالمعلومة بالفعل طبقت طريقتك والحمدلله انحلت مشلكتي