+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : عاجل لو سمحتم (/showthread.php?tid=20075)
عاجل لو سمحتم - djelloul - 19-04-17
السلام عليكم ورحمة الله تعالى وبركاته
هذه صورة لجدول بقاعدة بيانات أكسس
[attachment=13935]
القاعدة مصصممة من طرف هيئة تعويض الموضفين العموميين ولا يمكن تغير أسماء الحقول أو التعديل عليها
لما أعمل أنسرت لبيانات داخل هذا الجدول تطلع لي رسالة خطا مفادها Syntax Error وسبب هذه الرسالة بعض أسماء الحقول التي لها اسم مكون من كلمتين
فالرجاء هل هناك طريقة لتفادي هذه الرسالة منذ أسبوع وأنا أحاول دون جدوى فالرجاء المساعدة
ألف شكر لكم مسبقا
RE: عاجل لو سمحتم - عبـدالله - 19-04-17
اسماء الجداول والأعمدة التي تحتوي مسافة أو تشابه كلمة محجوزة يتم وضعها بين قوسين [ ]
ويفضل أن تعتمد الأقواس دائما فهو ينظم اللاستعلام ويميز اسماء الجداول والأعمدة عن كلمات اوامر SQL
RE: عاجل لو سمحتم - djelloul - 19-04-17
[attachment=13936]
ألف شكر لكم أساتذتنا الكرام على سرعة الرد وهذا ما كنت أتنظره من هذا المنتدي الكريم
هذا ملف txt بداخله إجراء الحفظ الذي قمت به
أرجوا الإطلاع عليه
شكرا لكم مرة أخرى
RE: عاجل لو سمحتم - djelloul - 19-04-17
عفوا أخي الكريم أخطأت في الملف
[attachment=13937]
RE: عاجل لو سمحتم - عبـدالله - 19-04-17
الخطأ الأول في كلمة 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
RE: عاجل لو سمحتم - djelloul - 19-04-17
هذه الكلمة � تعني ° التي توضع بعد حرف N عند الترقيم أي N°
RE: عاجل لو سمحتم - عبـدالله - 19-04-17
لم يظهر لدي الرمز ° لأنه يبدو أنك حفظت ملف txt بترميز ANSI والأفضل دائما تحفظ ملفات txt بترميز UTF-8
قم بتصحيح الرمز بعد نسخ الكود
RE: عاجل لو سمحتم - djelloul - 19-04-17
أوكي ألف شكر راح أجرب الكود وأخبرك ممكن ؟
ألف شكر لإهتمامكم
RE: عاجل لو سمحتم - djelloul - 20-04-17
السلام عليكم ورحمة الله تعالى وبركاته
أخي الكريم جربت الكود كما أرسلته لكن دائما رسالة الخطأ تطلع
الحمد لله تم حل المشكلة ألف شكر لله ثم لكم يا أعضاء المنتدى الرائع