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

مشكلة في الكومبوبوكس

بدأه suz في 13 أبريل 2011 · 14 رد · 672 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أنا أعمل علي فيجوال بيسك دوت نت 2008 سيكوال سيرفر

و عندما أنشأت كود إضافة و طبقته علي 2 كومبوبوكس و تكست بوكس في الفيجوال بيسك وجدت أن الرسالة التي من المفترض أن تظهر عند عدم إختيار أي منهم لا تظهر في حالة عدم إختيار الوحدة و يدخل العنصر الأول مع العلم أني بعد إنشاء قاعدة البيانات و برنامج الفيجوال بيسك غيرت في الجدول منNull إلي not Null فهل هذا هو السبب و إن كان كذلك فكيف أتفادي هذه المشكلة ؟ و مرفق صورة توضح الكود علماً بأن الإتصال بالسيكوال عن طريق الويزرد

post-201982-004955400 1302657887_thumb.j

المرفقات
Insert Code.JPG
#2

مرحباً،

على مااعتقد أنه يجب التأكد من جميع الحقول المستخدمة لعملية الإضافة، ومن ثم لايجب تفريغ تلك الحقول الا في حال نجاح أو فشل عملية الإضافة (برمجياً):

If (cmbunit.Text <> "") And (cmbdescreption.Text <> "") And (txtPrices.Text <> "") Then
Try
ta.sp_fertigationSuppliesAdd(combdescreption.Text, cmbunit.SelectedValue, txtPrices.Text)
Catch EX As Exception
Msgbox(EX.Message)
Finally
Me.FertigationTableAdapter.Fill(Me.Irrigation_Material_SuppliesDataSet.Fertigation)
cmbunit.Text = String.Empty : combdescreption.Text = String.Empty : txtPrices = String.Empty
End Try
Else
Msgbox("Please, fill all the required fields", MsgBoxStyle.Information, "Confirm")
End If

الرجاء التأكد من اسماء العناصر المستخدمة وذلك لأني لم اقدر على تفريق الأحرف.

بالتوفيق.

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 13 أبريل 2011 في 11:14

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3
Bashar Rabat كتب:

مرحباً،

على مااعتقد أنه يجب التأكد من جميع الحقول المستخدمة لعملية الإضافة، ومن ثم لايجب تفريغ تلك الحقول الا في حال نجاح أو فشل عملية الإضافة (برمجياً):

If (cmbunit.Text <> "") And (cmbdescreption.Text <> "") And (txtPrices.Text <> "") Then
Try
ta.sp_fertigationSuppliesAdd(combdescreption.Text, cmbunit.SelectedValue, txtPrices.Text)
Catch EX As Exception
Msgbox(EX.Message)
Finally
Me.FertigationTableAdapter.Fill(Me.Irrigation_Material_SuppliesDataSet.Fertigation)
cmbunit.Text = String.Empty : combdescreption.Text = String.Empty : txtPrices = String.Empty
End Try
Else
Msgbox("Please, fill all the required fields", MsgBoxStyle.Information, "Confirm")
End If

الرجاء التأكد من اسماء العناصر المستخدمة وذلك لأني لم اقدر على تفريق الأحرف.

بالتوفيق.

أردت فقط أن أشكرك علي وافر معلوماتك و علي حسن تعاونك

#4
suz كتب:

أردت فقط أن أشكرك علي وافر معلوماتك و علي حسن تعاونك

كثيراً ما أطبق الأكواد التي أحتاجها و لكني الأن أري أنني ينبغي أن أفهم الكود فهل أطمع في ذلك فأجزاء كثيرة لا أفهما مثل

ما أهمية Finally

شرح هذه الرسالة Msgbox(EX.Message)

أي جزء من هذا الكود يحتفظ بالبيانات المختارة دون مسحها بعد ظهور الرسالة التي تؤكد علي المستخدم من تكملة بياناته

و شكراً

تم تعديل هذه المشاركة بواسطة suz في 14 أبريل 2011 في 04:05

#5

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

الكود داخل بلوك ال finally يتنفذ دائما سواء حدث خطأ او لا .. وتكمن اهميته في التنظيف بمعنى لو كان في ملف مفتوح او اتصال يغلقه .. لكن اذا لم نضعه وحدث خطأ في الملف او الاتصال سيظل مفتوحا لانه لم يصل لكود الاغلاق

Ex.Message تظهر رساله الخطأ التي يصدرها النظام

.:: Wish to become better and better ::.

#6
VB Helper كتب:

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

الكود داخل بلوك ال finally يتنفذ دائما سواء حدث خطأ او لا .. وتكمن اهميته في التنظيف بمعنى لو كان في ملف مفتوح او اتصال يغلقه .. لكن اذا لم نضعه وحدث خطأ في الملف او الاتصال سيظل مفتوحا لانه لم يصل لكود الاغلاق

Ex.Message تظهر رساله الخطأ التي يصدرها النظام

جزاك الله كل خير

هل يمكنني إستغلال معلوماتك لأجد حلاً لطلبي

نا أعمل علي فيجوال بيسك دوت نت 2008 و سيكوال سيرفر و قد أنشأت برنامج ري الغرض منه حساب تكاليف شبكة ري و من المفترض أن يدخل المستخدم مستلزمات الشبكة و كمياتها و أسعارها ليتمكن من حساب تكاليفها و من المفترض أيضاً أنه يرغب بعد الإنتهاء منها أن يحتفظ بهذه البيانات حتي يتمكن من تفريغ قاعدة البيانات لحساب تكاليف شبكة أخري و أيضاً من الممكن أن يحتاج أن يعيد إسترجاع هذه البيانات مرة أخري فكيف أعطيه هذه الصلاحية مع العلم أنني أجري الإتصال بقاعدة البيانات عن طريق الداتاسيت . عفواً فالبرنامج حجمه كبير و لا أستطيع إرفاقه

#7

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

اختى لقد رديت على سؤالك هذا ... حاولى تراجعيه /index.php?showtopic=239958

.:: Wish to become better and better ::.

#8
VB Helper كتب:

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

اختى لقد رديت على سؤالك هذا ... حاولى تراجعيه /index.php?showtopic=239958

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

#9

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

العفو يا اختي لم افهم ما الذي تقصدينه بالضبط يرجى التوضيح

تم تعديل هذه المشاركة بواسطة VB Helper في 18 أبريل 2011 في 05:34

.:: Wish to become better and better ::.

#10
VB Helper كتب:

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

العفو ي اختي لم افهم ما الذي تقصدينه بالضبط يرجى التوضيح

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

و لي سؤال أخر كيف يمكنني عمل ملف تنفيذي فأثناء بحثي وجدت طريقة بأن أعمل كليك يمين علي My Project ثم إتخدام Publish و لم تنجح فهل من طريقة مثلي بدلاً من هذه الطريقة لقد سمعت من المهندس الذس كان يعطيني الكورس طريقة و لكني لم أتذكرها جيداً فكان يعمل كليك يمين علي إسم المشروع و يختار Add ثم Existing Item و لكني لا أتذكر ما بعد ذلك فماذا تنصحني ؟

#11

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

بالنسبه لسؤالك الاول سوي في قائمه الشاشه الرئيسيه لبرنامجك قائمه تحتوي على تصدير و استيراد قاعده بيانات .. من ثم في حدث التحميل للفورم اذا كان المستخدم مدير مثلا فعلي القائمه والا عطليها باستخدام الخاصيه Enabled

وهذا الرابط لعمل نسخه احتياطيه واسترجاع قاعده البيانات http://www.arabteam2...howtopic=201957

اما سؤالك الثاني من قائمه Build سوي Publish واذا حدث خطأ تأكدي من قائمه الاخطأ لأنه يمكن في خطأ صياغي في مشروعك لأن المشروع ما بيتصدر الا لو كان سليم 100%

.:: Wish to become better and better ::.

#12
VB Helper كتب:

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

بالنسبه لسؤالك الاول سوي في قائمه الشاشه الرئيسيه لبرنامجك قائمه تحتوي على تصدير و استيراد قاعده بيانات .. من ثم في حدث التحميل للفورم اذا كان المستخدم مدير مثلا فعلي القائمه والا عطليها باستخدام الخاصيه Enabled

وهذا الرابط لعمل نسخه احتياطيه واسترجاع قاعده البيانات http://www.arabteam2...howtopic=201957

اما سؤالك الثاني من قائمه Build سوي Publish واذا حدث خطأ تأكدي من قائمه الاخطأ لأنه يمكن في خطأ صياغي في مشروعك لأن المشروع ما بيتصدر الا لو كان سليم 100%

برنامجي يرفض كتابة هذا الكود

Imports Microsoft.SqlServer.Management.Common

Imports Microsoft.SqlServer.Management.Smo

و هذا أول الكود

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

#13

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

المشكله مشكله مراجع في المشروع .. طيب اقول جرب الطريقه السهله دي

BACKUP DATABASE test TO DISK = 'c:\test.bak'

RESTORE DATABASE test FROM DISK = 'c:\test.bak'

طبعا عبر اوامر السيكول سوي اتصال بقاعده البيانات ونفذي الامر المراد مثله مثل الاضافه او الحذف

.:: Wish to become better and better ::.

#14
VB Helper كتب:

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

المشكله مشكله مراجع في المشروع .. طيب اقول جرب الطريقه السهله دي

BACKUP DATABASE test TO DISK = 'c:\test.bak'

RESTORE DATABASE test FROM DISK = 'c:\test.bak'

طبعا عبر اوامر السيكول سوي اتصال بقاعده البيانات ونفذي الامر المراد مثله مثل الاضافه او الحذف

BACKUP غير موجودة في الفيجوال

طيب ممكن تحل لي المشكلة التانية في إني لما بعمل ملف تنفيذي عن طريق Publish و أنزله و أثبته بيتثبت و لكن لما المستخدم ياخده عنده لا يعمل و حتي لو نقلته في أي مكان تاني علي نفس الكمبيوتر نفس الكلام مع إني بأتبع الخطوات بدقة فهل ممكن ده يكون عيب في النسخة و خصوصاً أني عندما أنشئ Crystal Report يظهر كما بالصورة المرفقة فقد خمنت أن تكون النسخة بها عيب

post-201982-098608700 1303140043_thumb.j

المرفقات
Crystal Report Picture.JPG
#15

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

اشرت اختي سابقا .. انها اوامر SQL راجعي اردي السابق

اما سؤالك الثاني مش مشكله عيب يمكن يكون مشروعك يحتاج مرجع موجود ضمن ال Bin .. تأكدي على سبيل المثال خذي المجلد السابق وقومي بتشغيل البرنامج التنفيذي اذا اشتغل فهذا يثبت كلامي

.:: Wish to become better and better ::.

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