منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Dim savInto As New OleDb.OleDbCommand
            Dim CnStr As String = "provider = Microsoft.ACE.OLEDB.12.0;" &
                "data Source= " & Application.StartupPath & "\Database3.accdb"

            Dim Conn As New OleDbConnection(CnStr)
            savInto.Connection = Conn
            savInto.CommandType = CommandType.Text
            savInto.CommandText = "Insert into Proced1(Number,Name,Program,PD,Goal,Effect,Class,Sharing,Date)" &
                "Values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "', '" & TextBox4.Text & "' , &
'" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')"

            Conn.Open()
            savInto.ExecuteNonQuery()
            Conn.Close()
            MsgBox(" تم الحفظ بنجاج")



يظهر لي حطأ في تكوين الجملة
ممكن احد يعرف وين المشكلة

---

خطأ * تصحيح

(11-04-23, 01:13 AM)bm200920 كتب : [ -> ]Dim savInto As New OleDb.OleDbCommand
            Dim CnStr As String = "provider = Microsoft.ACE.OLEDB.12.0;" &
                "data Source= " & Application.StartupPath & "\Database3.accdb"

            Dim Conn As New OleDbConnection(CnStr)
            savInto.Connection = Conn
            savInto.CommandType = CommandType.Text
            savInto.CommandText = "Insert into Proced1(Number,Name,Program,PD,Goal,Effect,Class,Sharing,Date)" &
                "Values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "', '" & TextBox4.Text & "' , &
'" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')"

            Conn.Open()
            savInto.ExecuteNonQuery()
            Conn.Close()
            MsgBox(" تم الحفظ بنجاج")



يظهر لي حطأ في تكوين الجملة
ممكن احد يعرف وين المشكلة

---

خطأ * تصحيح

يوجد اسماء اعمدة محجوزة ويجب ان تغير اسماءها
Number
Date

انا مسوية اكثر من برنامج وضبط 
ومع ذلك اخذت بنصيحتك ولا ضبط الغاء الربط من القاعدة اول كانت مشكلة الاضافة من البرنامج الان مشكلة في الربط بعد

لو أرفقتي نسخة من المشروع أو مشروع بسيط  فيه قاعدة بيانات وفيه نفس المشكلة 
يكن أفضل للتجريب - وأعطائك حل مجرب .

فعلاً الكلمة : Date + Name
من الأسماء المحجوزة لنظام قواعد أكسس ,وقواعد بيانات أخرى، يمكنك إستخدامها، لكن تحتاج إلى وضع أقواس مربعة حول اسم الحقل الذي يستخدم الاسم المحجوز ، مثلاً : [Name] 
[attachment=28863]
لا ينصح بإستخدام الأسماء المحجوزة

أيضاً توجد العلامة (&)
موجودة بين TextBox4 وبين TextBox5 في بناء جملة الإستعلام

يجب إزالتها
[attachment=28862]

Number من الاسماء المحجوزه فتحتاج لوضع أقواس مربعه حوله [Number]

(17-04-23, 09:43 PM)عبدالله الدوسري كتب : [ -> ]فعلاً الكلمة : Date + Name
من الأسماء المحجوزة لنظام قواعد أكسس ,وقواعد بيانات أخرى، يمكنك إستخدامها، لكن تحتاج إلى وضع أقواس مربعة حول اسم الحقل الذي يستخدم الاسم المحجوز ، مثلاً : [Name] 

لا ينصح بإستخدام الأسماء المحجوزة

أيضاً توجد العلامة (&)
موجودة بين TextBox4 وبين TextBox5 في بناء جملة الإستعلام

يجب إزالتها

شكرا ضبط معي

---

مشكورين على المساعدة

السلام عليكم
من يعرف الاكواد الطباعه من الفجوال المرتبط بقاعدة بيانات