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

السلام عليكم ورحمة الله تعالى وبركاته
هذه صورة لجدول بقاعدة بيانات أكسس
[attachment=13935]
القاعدة مصصممة من طرف هيئة تعويض الموضفين العموميين ولا يمكن تغير أسماء الحقول أو التعديل عليها
لما أعمل أنسرت لبيانات داخل هذا الجدول تطلع لي رسالة خطا مفادها Syntax Error وسبب هذه الرسالة بعض أسماء الحقول التي لها اسم مكون من كلمتين
فالرجاء هل هناك طريقة لتفادي هذه الرسالة منذ أسبوع وأنا أحاول دون جدوى فالرجاء المساعدة
ألف شكر لكم مسبقا

اسماء الجداول والأعمدة التي تحتوي مسافة أو تشابه كلمة محجوزة يتم وضعها بين قوسين [ ]
ويفضل أن تعتمد الأقواس دائما فهو ينظم اللاستعلام ويميز اسماء الجداول والأعمدة عن كلمات اوامر SQL

[attachment=13936]

ألف شكر لكم أساتذتنا الكرام على سرعة الرد وهذا ما كنت أتنظره من هذا المنتدي الكريم
هذا ملف txt بداخله إجراء الحفظ الذي قمت به
أرجوا الإطلاع عليه
شكرا لكم مرة أخرى

عفوا أخي الكريم أخطأت في الملف
[attachment=13937]

الخطأ الأول في كلمة value والصحيح VALUES (كان ينقصها حرف s)
الخطأ الثاني وجود فاصلة عند نهاية قوس أسماء الأعمدة.
الخطأ الثالث وجود مسافات في اسماء البارامترات والصحيح تستبدلها بالشرطة السفلية ( _ )
وهناك رمز (�) في الاسم (N�fact) لا أدري هل سيؤثر أم لا.
تفضل التعديل

PHP كود :

Private Sub Btn_Save_Click(sender As Object, e As EventArgs) Handles Btn_Save.Click
    If conn.State = ConnectionState.Open Then
        conn.Close()
    End If
    Try
        Dim sql_As As String =
            "INSERT INTO [ayant droit] ([nss], [benif], [nom benif], [prenom benif], [date nais benif], [date de soin], [montant], [cabinet medic], [N�fact}, [mois], [Code pharm] ) " & _
            "VALIES                    (@nss,  @benif,  @nom_benif,  @prenom_benif,  @date_nais_benif,  @date_de_soin,  @montant,  @cabinet_medic,  @N�fact,  @mois,  @Code_pharm  ) "


        Dim save_AYD As New OleDb.OleDbCommand(sql_As, conn)

        save_AYD.Parameters.AddWithValue("@nss", Me.txt_Nass.Text)
        save_AYD.Parameters.AddWithValue("@benif", Me.Cbo_Type.Text)
        save_AYD.Parameters.AddWithValue("@nom_benif", Me.txt_Nom_Benif.Text)
        save_AYD.Parameters.AddWithValue("@prenom_benif", Me.CBo_Prenom.Text)
        save_AYD.Parameters.AddWithValue("@date_nais_benif", CDate(Me.txt_DN_Benif.Text))
        save_AYD.Parameters.AddWithValue("@date_de_soin", CDate(Me.txt_Date_Soin.Text))
        save_AYD.Parameters.AddWithValue("@montant", CInt(Lab_Pay.Text))
        save_AYD.Parameters.AddWithValue("@cabinet_medic", Me.txt_Cabinet.Text)
        save_AYD.Parameters.AddWithValue("@N�fact", Me.txt_NFact_Mil.Text)
        save_AYD.Parameters.AddWithValue("@mois", Me.txt_Mois.Text)
        save_AYD.Parameters.AddWithValue("@Code_pharm", Me.txt_Code_Pharm.Text)
        'save_AYD.Parameters.AddWithValue("@date_sys", Date.Now)
        conn.Open()
        save_AYD.ExecuteNonQuery()
        MsgBox("Enregistrement fait avec Succ�e", vbMsgBoxRight, "Confirmation")
        conn.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub 

هذه الكلمة � تعني ° التي توضع بعد حرف N عند الترقيم أي N°

لم يظهر لدي الرمز ° لأنه يبدو أنك حفظت ملف txt بترميز ANSI والأفضل دائما تحفظ ملفات txt بترميز UTF-8
قم بتصحيح الرمز بعد نسخ الكود

أوكي ألف شكر راح أجرب الكود وأخبرك ممكن ؟
ألف شكر لإهتمامكم

السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم جربت الكود كما أرسلته لكن دائما رسالة الخطأ تطلع

الحمد لله تم حل المشكلة ألف شكر لله ثم لكم يا أعضاء المنتدى الرائع

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

djelloul

عبـدالله

djelloul

djelloul

عبـدالله

djelloul

عبـدالله

djelloul

djelloul