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

الربط مع الأكسس

مغلق
بدأه shada في 20 يوليو 2006 · 8 رد · 706 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

واجهتني مشكله عند عمل مشروعي وهي أني قمت بعمل form خاصة بحجز المواعيد

وتم ربطها بالأكسس كما هو موضح في أسفل النافذة وعند عمل برمجة تأكيد الحجز تم برمجتا بالشكل التالي

Me.OleDbConnection1.Open()

Me.OleDbCommand1.CommandText = "insert into حجز المواعيد values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "'," & Val(ComboBox3.Text) & "," & Val(ComboBox4.Text) & "," & Val(TextBox3.Text) & "," & Val(TextBox5.Text) & ",'" & TextBox6.Text & "'," & Val(TextBox4.Text) & ",'" & TextBox7.Text & "'," & Val(ComboBox6.Text) & ",'" & ComboBox5.Text & "'," & Val(ComboBox7.Text) & ")"

Me.OleDbCommand1.ExecuteNonQuery()

TextBox1.Text = ""

TextBox2.Text = ""

ComboBox1.Text = ""

ComboBox2.Text = ""

ComboBox3.Text = ""

ComboBox4.Text = ""

TextBox3.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox4.Text = ""

TextBox7.Text = ""

ComboBox5.Text = ""

ComboBox6.Text = ""

ComboBox7.Text = ""

Me.OleDbConnection1.Close()

End Sub

ولكن عند تشغيل البرنامج يعطي خطأفي البرمجة أرجو أفادتتي حيث أنني لأول مره استخدم دالة Combo Boxوأتوقع أن يكون الخطأ في برمجتها

______________________.doc

______________________.doc

#2

العضو الكريم

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

بالنسبة للسؤال الذى طرحته اذا كان الكود الذى كتبته فى المنتدى هو نفس الكود فى البرنمج بالحرف الواحد فهناك خطأ فى طتابة الكود فى أمر ال SQL و يكون الجزء الخاص بال values كالتالى

"insert into حجز المواعيد 
values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & Val(ComboBox3.Text) & "','" & Val(ComboBox4.Text) & "','" & Val(TextBox3.Text) & "','" & Val(TextBox5.Text) & "','" & TextBox6.Text & "','" & Val(TextBox4.Text) & "','" & TextBox7.Text & "','" & Val(ComboBox6.Text) & "','" & ComboBox5.Text & "','" & Val(ComboBox7.Text) & "')"

و اتمنى ان يعمل الكود

لا تنسونا بصالح الدعاء

#3
اقتباس
حيث أنني لأول مره استخدم دالة Combo Box

:blink: مفيش دالة اسمها Combo box دي Control !!!

#4

شكرا جزيلا للأخ m 3ryan بالنسبه لرسالة الخطا يظهر الآتي

an unhandled exception of type 'system. date.oledb.oledbexception'occurred in system.data.dll

وأتمنى اجد حل سريع لمشكلتي وجزاك الله الف خير :rolleyes:

يامشرف منتداناhazzoom حلمك على الطالب المبتدئين لاتكسر مجاديفهم واصبر عليهم كلنا في البدايه ماكنا نعرف حاجه ومع الوقت والتوجيه الجيد يتحسن كل شي :wacko: :lol:

#5

التمنى التوضيح أكثر مالمقصود ان الخطأ في كود sql :o

#6

ما دام ان المشكلة في Data.dll فبالتالي المشكلة ناتجة اما من ال ConnectionString اتو جملة SQL.

اقف مع الاخ m_3ryan باعتبار ان المشكلة في جملة SQL

وللتوضيح اضرب المثال التالي:

لنفترض ان لدينا الحقول التالية:

StudentNo

StudentName

BirthDate

Fees

مع ملاحظة ان المثال يحوي جميع انواع البانات وهي على الترتيب كالاتي:

Number

Stirng/Text

Date

Currency

وبافتراض ان لدينا مربعات النصوص التالية:

txtStudentNumber

txtStudentName

txtBirthDate

txtFees

تصبح جملة INSERT كالاتي

INSERT INTO Students(StudentNumber,StudentName,BirthDate,Fees)
VALUES(" & txtStudentNumber.Text & ",'" & txtStudentName.Text & "','" & txtBirthDate.Text & "'," & txtFees.Tex &")"

اتمنى ان يكون المثال المذكر يفي بالغرض ، وما عليك يا اخ shada الا ان تسقط هذا المثال على مشروعك، ونتمنى لك كل التوفيق.

#7

shada.docالآن سوف أقوم بتوضيح الخطوات التي قمت بها خطوه بخطوه وكلي امل ان تجدوا الخطاء الذي قمت به وهي انني في البدايه قمت بعمل قاعدة بيانات على الأكسس سميت الجدول بحجز المواعيد

ثم قمت بتصميم formخاصه بحجز المواعيد وبالنسبه لخطوات الربط قمت بالآتي :

1-أدرجت الأداه OleDbCommand1 ثم ادرجت الأداهOleDbDataAdapter1واتبعت الخطوات الازمه للربط تجدونها في الملف المرفق

2-ثم قمت بتنشيط الأداه OleDbCommand1 وأعطيتها خاصية coonection OleDbConnection1

وعند استخدام الخطوات السابقه مع حقول جميعها textbox تتم العمليه بدون اخطاء ولكن مان قمت بأستخدام combobox فانه يعطي رسالة الخطاء السابقه هل ذلك لأن المستخدم سيقوم بلأختيار من قائمه قد وضعتها له مسبقا وليس نص يقوم بأدخاله؟

بالنسبه للأخ adb albaset جزاك الله خيرا على المجهود الذي قمت به ولكن الا يلزم اذا كانت البيانات عباره عن ارقام ان توضع الأداه بين قوسين وتسبق بval ولا توضع بين علامتي تنصيص اما اذا كانت نصوص فتوضع بين علامتي تنصيص ولا يسبق الحقل بval اذا وجد خطأ في ذلك ارجو توجيهي :rolleyes:

ياخوه ياكرام افترضو ان هذا المشروع خاص بكم ماهي الخطوات التي ستقومون بها

ملاحظه:بالنسبه لنوع البيانات الموجوده في حقول comboboxالجنس نص ,اليوم رقم, الشهر نص, السنه رقم ,والبرريد الأكتروني افترضته نص- وقد راعية ذلك عند تعريف الحقول في الأكسس

يامبرجين ياكرام يازوار المنتدى 72 قارئي ماحليتوا مشكلتي :angry: :angry:

#8
اقتباس
بالنسبه للأخ adb albaset جزاك الله خيرا على المجهود الذي قمت به ولكن الا يلزم اذا كانت البيانات عباره عن ارقام ان توضع الأداه بين قوسين وتسبق بval ولا توضع بين علامتي تنصيص اما اذا كانت نصوص فتوضع بين علامتي تنصيص ولا يسبق الحقل بval اذا وجد خطأ في ذلك ارجو توجيهي

اكيد كلام صحيح وتمام التمام ولكن ايضا من غير استخدام Val لن تكون هنالك مشاكل.

اقترح ان تعدل من

ComboBox1.Text

الى

ComboBox1.SelectedItem

ملاحظة:

عندما يكون اسم جدول او حقل يحتوي على Space يجب وضع الاسم داخل براكتس مثلا[حجز المواعيد]

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

#9

اسعدك الله يامبرمج ياكبير وجعل الله لك من كل هما فرجا ومن كل ضيق مخرجا ورزق من حيث لاتحتسب :)

بالنسبه لي تستهال جائزه نوبل في البرمجه وافتخر بوجود امثلك في منتدنا الجميل

-waf

ها أنا اليوم اضع اللمسات الأخيره على مشروعي بعدما وقفتم معي منذا كان فكره الى ان تم الأنتهاء منه ولقد استفدت من كل ماتقدمونه في منتدنا الحبيب وفق الله القائمين عليه والى الأمام دائما على هذا المستوى من الرقي :rolleyes: B)

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

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