تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في الحفظ في الاكسس
#1
السلام عليكم و رحمة الله و بركاته

لما باجي افظ المدخالات في الاكسس مبيحفظش و مبيديش اي خطأ

كود :
   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click


       Try

           cmd9.CommandText = "INSERT INTO mmm([Cient Name], [FaceBook], [Client Number], [Address], [Details], [Feedback], [Code])VALUES(@Cient Name, @FaceBook, @Client Number, @Address, @Details, @Feedback, @Code)"
           cmd9.Parameters.AddWithValue("@Cient Name", TextBox1.Text)
           cmd9.Parameters.AddWithValue("@FaceBook", TextBox2.Text)
           cmd9.Parameters.AddWithValue("@Client Number", TextBox3.Text)
           cmd9.Parameters.AddWithValue("@Address", TextBox4.Text)
           cmd9.Parameters.AddWithValue("@Details", TextBox5.Text)
           cmd9.Parameters.AddWithValue("@Feedback", TextBox6.Text)
           cmd9.Parameters.AddWithValue("@Code", Date.Now)
           'cmd9.ExecuteNonQuery()
           conn9.Close()
           Me.Hide()
           CRM_Form.DataGridView1.Show()


       Catch ex As Exception
           MsgBox("فشل في قراءة البيانات")
       End Try
End Sub
[/code]
الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود
#2
السلام عليكم اخي الكريم
تفضل الكود بعد التعديل عليه

كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       Dim cmd9 As New OleDbCommand
       Try

           Dim sql As String = "INSERT INTO mmm([Cient Name], [FaceBook], [Client Number], [Address], [Details], [Feedback], [Code])VALUES(@Cient Name, @FaceBook, @Client Number, @Address, @Details, @Feedback, @Code)"
           cmd9 = New OleDbCommand(sql, conn9)
           cmd9.Parameters.AddWithValue("@Cient Name", TextBox1.Text)
           cmd9.Parameters.AddWithValue("@FaceBook", TextBox2.Text)
           cmd9.Parameters.AddWithValue("@Client Number", TextBox3.Text)
           cmd9.Parameters.AddWithValue("@Address", TextBox4.Text)
           cmd9.Parameters.AddWithValue("@Details", TextBox5.Text)
           cmd9.Parameters.AddWithValue("@Feedback", TextBox6.Text)
           cmd9.Parameters.AddWithValue("@Code", Date.Now)
           conn9.open()
           cmd9.ExecuteNonQuery()
           conn9.Close()

       Catch ex As Exception
           MsgBox("فشل في قراءة البيانات")
       End Try
MsgBox("تم الحفظ بنجاح")
       Me.Hide()
       CRM_Form.DataGridView1.Show()
   End Sub
[/code]
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
#3
ده الخطأ الي بيظهر 

الرد }}}
تم الشكر بواسطة: asemshahen5
#4
اخي هذه هي حملة الاتصال التي انت عرفتها سابقا في برنامجك
والخطأ يقول لاوجود لهده غير منشأة
عد اليها وتأكد منها فربما تكون على غير هذه الشكل او احد هذه الاشكال (Con او Conn او cn او غير ذلك)
ضع جملة الاتصال للتأكد منها
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود
#5
كود الاتصال بقاعدة البيانات المحددة

كود :
Public Constr9 As String
   Public conn9 As New OleDbConnection(Constr9)
   'Public cmd9 As OleDbCommand = conn9.CreateCommand
   Public adapt9 As New OleDbDataAdapter
   Public ddda As DataTable
   Public save_user As OleDbCommandBuilder
   Public ds9 As New DataSet
   Public BS9 As New BindingSource




   Public Sub read_data(ByVal xxxx As String)
       Try

           Constr9 = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & xxxx
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM mmm"
           'تعريف كائن وفق الأستعلام والأتصال'
           adapt9 = New OleDbDataAdapter(str9, conn9)
           'ملئ الدتا ست بالبيانات'
           adapt9.Fill(ds9, "mmm")
           'سحب البينات من الدتا ست'
           BS9.DataSource = ds9
           BS9.DataMember = "mmm"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)



       Catch ex As Exception
           MsgBox("فشل في قراءة البيانات")
       End Try

   End Sub
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , سعود , asemshahen5
#6
السلام عليكم
اخي اذا كان اسم قاعدة البيانات لديك هو  xxxx فيجب ان تكون xxxx.mdb  ضع هذا الكود لوحده في الاعلى بعد Public Class Class1

كود :
   Public conn9 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxx.mdb;persist security info=false;")
وان كان غير ذلك استبدل xxxx باسم قاعدة البيانات التي لديك
بالمناسبة لديك اخطاء يرجى مراجعتها مثلا 
تفتح الاتصال ثم لاتغلقه او تغلق الاتصال وانت لم تفتحه كما في كود الحفظ وربما هناك امور اخرى في اكواد اخرى
ستحتاج الى تعدبلات اخرى في الاكواد
اذا كان مشروعك صغير ارفقه ليصار الى التعديل
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود , عبد العزيز البسكري
#7
(26-08-19, 08:20 PM)ابراهيم ايبو كتب : السلام عليكم
اخي اذا كان اسم قاعدة البيانات لديك هو  xxxx فيجب ان تكون xxxx.mdb  ضع هذا الكود لوحده في الاعلى بعد Public Class Class1

كود :
   Public conn9 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=xxxx.mdb;persist security info=false;")
وان كان غير ذلك استبدل xxxx باسم قاعدة البيانات التي لديك
بالمناسبة لديك اخطاء يرجى مراجعتها مثلا 
تفتح الاتصال ثم لاتغلقه او تغلق الاتصال وانت لم تفتحه كما في كود الحفظ وربما هناك امور اخرى في اكواد اخرى
ستحتاج الى تعدبلات اخرى في الاكواد
اذا كان مشروعك صغير ارفقه ليصار الى التعديل

الكود حق الاتصال هو عبارة عن ان كل مستخدم ليه قاعدة بيانات خاصة بيه ف لما اسجل دخول مثلا ب test يفتح قاعدة البيانات الي اسمها test و غيره من اليوزر
الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود
#8
اخي مشروعك انت ادرى كبف قمت ببرمجته
المشكلة ببساطة كود الحفظ يحاول فتح قاعدة البيانات عن طريق جملة الاتصال conn9 وهذا غير متاح كونك وضعته في
 Sub read_data(ByVal xxxx As String)
لذلك يجب اما مناداة الصب ليقوم بالفتح او ان تقوم باخراج جملة الاتصال الى خارج الصب ارجو ان تكون قد اتضحت الامور لديك
بدل كود conn9.open() قم باستدعاء الصب وضع بين القوسين اسم قاعدة البيانات التي تدخل بها هكذا
كود :
read_data(اسم قاعدة البيانات)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود
#9
(26-08-19, 08:57 PM)ابراهيم ايبو كتب : اخي مشروعك انت ادرى كبف قمت ببرمجته
المشكلة ببساطة كود الحفظ يحاول فتح قاعدة البيانات عن طريق جملة الاتصال conn9 وهذا غير متاح كونك وضعته في
 Sub read_data(ByVal xxxx As String)
لذلك يجب اما مناداة الصب ليقوم بالفتح او ان تقوم باخراج جملة الاتصال الى خارج الصب ارجو ان تكون قد اتضحت الامور لديك
بدل كود conn9.open() قم باستدعاء الصب وضع بين القوسين اسم قاعدة البيانات التي تدخل بها هكذا
كود :
read_data(اسم قاعدة البيانات)

لا يمكن مناداة الصب لان كل قاعدة بيانات بأسم غير الاخري
ولا يمكن ان اقوم باخراج جملة الاتصال الى خارج الصب لانها مربوطة ب الصب
الرد }}}
تم الشكر بواسطة: asemshahen5
#10
اخي جملة الحفظ تبحث عن جملة الاتصال لتقوم بعملية الحفظ
كيف برمجت جمل الاتصال هذا شأنك المهم هي مطلوبة لااستطيع التكهن بمشروعك
جرب كود الحفظ مع قاعدة البيانات على مشروع جديد وستعرف انه سليم اولا
دمت بخير
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , عبد العزيز البسكري



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


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