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

عاااااجل,الحقونييييييي

مغلق
بدأه mesho في 17 أبريل 2005 · 11 رد · 751 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بعد السلام والتحية.... :)

اطلب من مبرمجي الفيجوال بيسيك مساعدة بسيطة ,انا صممت برنامج فيجوال بيسيك ورابطته بقاعدة بيانات في الاكسس البرنامج جدا كبير وعندي مشكلة ان خاصية اضافة السجلات الجديدة ماتشتغل ومشروعي ضروري اقدمه الاسبوع القادم وللان انا متعطلة على هالشغله..... ارجوكم ارجو كل من يقدر يساعدني مايبخل علي لو بمحاوله ارجوووكم...

ارجوووووكم لاتهملو رسالتي...

على فكرة انا ربطت القاعه في الفيجوال بأداة الdata وكتبت على امر اضافة السجل:

if text1 <> " " and text2 <> " " then

data1.refresh

data1.recordset.movelast

data1.recordset.addnew

end if

هالكود مااشتغل :s

جربت وكتبت هالكود: data1.recordset.addnew

كمان مانفع.... ارجوكم اسرعو بالرد لاني مرررة متعطلة ومالقيت للحين حل :wacko: :wacko:

#2

هل جربت تقنية الكتبة ADO????????????????????????????????????????????????????????????????

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

أرجو أن تضع نسخة من البرنامج حتى أتمكن من معرفة الخطأ إن شاء الله!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#4

اعتقد ان تقنية ال ado هي افضل تقنية استخدمت لربط قواعد البيانات حاول تجربتها

و قريبا ساضع دروس لشرح كيفية التعامل معها وما هي الاساليب الاحترافيه في استخدامها

و للعلم هي بامكانها ربط اكثر من ملف قاعدة بيانات في وقت واحد

و بالتوفيق

#5

أختي الفاضلة...

لتقومي بإضافة سجل في قاعدة البيانات عليك ِ بتقنية الـActiveX Data Objects المعروفة بالـ(ADO) كما أشار إليها الأخ غوست...

ونظرا ً لإنك تحتاجي البرنامج بطريقة عاجلة فإليك ِ هذا البرنامج الذي يقوم بإضافة سجل في قاعدة بيانات Access وسيلبي الحاجة إن شاء الرحمن.

لا تنسيني من دعوة صالحة في ظهر الغيب...

والسلام عليكم

db_add.rar

#6

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

vb_ghost2010@yahoo.com

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#7

شكرا لك اشعياء لكن البرنامج يطلع رسالة خطا عندالتشغيل ,ةبعد اضافة السجلات <_<

#8

لا يوجد رسالة خطأ إلا إذا تركتي خانة فارغة أختي ميشو...

هل لك أن تقومي بوضع نص رسالة الخطأ ؟

#9

بسم الله وبعد

أرسلي فورم واحد فقط من هذا النظام واحنا نعدل فيه

المبرمج الطيب :)

إذا كان ترك الدين يعني تقدما ***** فيا نفس موتي قبل أن تتقدمي

اعط الفقير سمكة يشبع يوما * * * * علمه الصيد يشبع مدى الحياة

قتل امرئٍ في غابةٍ ***** جريمة لا تغتفـر

وقتل شعبٍ بأكمله ****** مسألةٌ فها نظر

حتى الكلاب إذا رأت يوماً فقيراً ماشياً *** نبحت عليه وكشرت أنيابها

الاعجاز العلمي في القرآن والسنة

#10

اسف جدا ياميشو لم اتسلم الفورمات ارجو ارسالها

الرجاء قبول اعتذارى

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

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#11

استعملي Add New لفتح سجل جديد

و Update لحفظ المعلومات

إذاً انت بحاجه ل 2 command button

Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()
 If text1.Text <> "" And text2.Text <> "" Then
 Data1.Recordset.Update
 Else
 Data1.Recordset.CancelUpdate
 End If
End Sub

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

vb_ghost2010@yahoo.com

أخ Ghost هناك طلب أخوي المساعدة عبر الإميل غير مستحبة أفضل متايعة الموضوع من خلال المنتدى

#12

شكراً للايضاح اخ لبنانى لكنى وضعت البريد الالكتونى بناءً على طلب ميشو

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

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

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