الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال عن كيفية تعديل البيانات فى قاعدة بيانات أكسس

مغلق
بدأه supervisor II في 16 أغسطس 2006 · 4 رد · 533 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

أخوانى ،،،،

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

أرجو المساعدة .

هذا هو الكود:

Dim strsql As String

Dim res As Integer

Dim FilePath As String

Dim au1, au2, au3, au4, au5, au6, au7, au8, au9, au10 As String

FilePath = Server.MapPath("data1/master.mdb")

OleDbConnection1.ConnectionString = ("PROVIDER=microsoft.jet.OLEDB.4.0;DATA SOURCE=" + FilePath)

OleDbConnection1.Open()

au1 = CheckBox1.Checked

au2 = CheckBox2.Checked

au3 = CheckBox3.Checked

au4 = CheckBox4.Checked

au5 = CheckBox5.Checked

au6 = CheckBox6.Checked

au7 = CheckBox7.Checked

au8 = CheckBox8.Checked

au9 = CheckBox9.Checked

au10 = CheckBox10.Checked

strsql = "Update users_file Set " & _

"au1=" + au1 + "," + "au2=" + au2 + "," + "au3=" + au3 + "," + "au4=" + au4 + "," + "au5=" + au5 + "," + "au6=" + au6 + "," + "au7=" + au7 + "," + "au8=" + au8 + "," + "au9=" + au9 + "," + "au10=" + au10 + "where" & _

"username=" + drop_username.Value

Dim objcommand2 As New OleDbCommand(strsql, OleDbConnection1)

res = objcommand2.ExecuteNonQuery()

OleDbConnection1.Close()

End Sub

ظهر الخطأ فى الجملة التالية

res=objcommand2.excutenonquery

#2

من خلال الكود اللذي كتبته الاحظ الاتي:

1- الافضل بدل هذه المتغيرات العشرة ان تكون مصفوفة.

2- افضل استبدال + بالرابط &

3- عدم وجود مسافات عند كتابة كلمة Where

ماكتبته هو:

"," + "au10=" + au10 + "where" & _
"username=" + drop_username.Value

بعد التعديل

"," + "au10=" + au10 + " where " & _
"username=" + drop_username.Value

4- ماهو نوع بيانات الحقل username حتى تسند اليه قيمة drop_username، وهل drop_username عبارة عن ComboBox وماهو ال DataSource بالنسبة لل drop_username وكذلك DisplayMember و ValueMember ، ولماذا لم تستخدم الخاصية SelectedValue,SelectedItem بدل الخاصية Value

حتى تكتمل الصورة عليك تقديم اجوبة لهذه الاسئلة.

تم تعديل هذه المشاركة بواسطة abd_albaset في 17 أغسطس 2006 في 11:13

#3

أخى abd albaset:

لقد قمت بوضع مسافة كما أوضحت .

كما أن datasource لdrop_username هى dataset مرتبطة بجدول خاص بالمستخدمين اسمه users_file اما datavaluefield فهى مرتبطة بحقل المستخدمين username الذى هو من نوع نصى ويحتوى على اسماء المستخدمين .

ولكن المحاولة كانت فاشلة وباشر الخطأ بالظهور مرة أخرى حيث تظهر رسالة الخطأ التالية :

no value given for one or more required parameters

مع العلم أن جملة SQL المكتوبة داخل الكود لاتحتوى على جميع الحقول فقط تحتوى على الحقول المطلوب تعديلها ،،،،،، وشكراً على المساعدة .

#4

اخى abd _albaset :

لقد قمت بإضافة المسافات ولكن ظهر نفس الخطأ

نوع الحقل username نصى .

نعم drop_username هى عبارة عن combobox

datasource لـ combobox هى dataset حيث أن dataset مرتبطة بجدول للمستخدمين .

كما أن datamember مرتبطة بـ user_file ( ملف المستخدمين ) .

datavaluefield مرتبط بـالحقل user_name وهو حقل نصى .

ولكن عاود الخطأ بالظهور والخطأ هو :

no value given for one one or more require parameters

#5
اقتباس
كما أن datasource لdrop_username هى dataset مرتبطة بجدول خاص بالمستخدمين اسمه users_file اما datavaluefield فهى مرتبطة بحقل المستخدمين username الذى هو من نوع نصى ويحتوى على اسماء المستخدمين .

ما دام ان drop_username عبارة عن ComboBox وبافتراض ان ال ValueMember له هو username ، اذا عليك بدل استخدام الخاصية Value استخدام الخاصية SelectedValue اي تصبح عبارة SQL كلاتي:

"username=" + drop_username.SelectedValue

واذا لم تعمل جرب عمل Break Point على السطر السابق ومنها انظر الى خصائص ال drop_username ، وبالتحديد SelectedItem و ال SelectedValue وال Text

ان شاء الله تكون الامور تمام التمام.

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…