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

استفسار في قواعد البيانات

مغلق
بدأه loveforever في 2 أبريل 2006 · 7 رد · 767 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

الاخوة المشرفين ..الاخوة الاعضاء

كل عام وانتم بخير بمناسبة المولد النبوي....

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

عندما قمت بربط المشروع باكسس وقمت باضة ازرار منها زر اضافة واخر حفظ ..الخ.

وبعد ذلك قمت بكتابة الشيفرات الخاصة بكل زر .

وعند تشغيل المشروع فوجئت بخطأ debug وفيه تم تظليل data1.recordset .addnew باللون الاصفر واعطتني رسالة this action was cancelled by an associated object .

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

تمنياتي لكم بالصحة

وكل عام وانتم بخير :blink: :unsure: 8-)

(المحب لرسول الله الي الأبد)

#2

الاخ السائل

قم بكتابة الكود المستخدم حتي يتثني لنا تصحيحة

وهل نستخدم الربط بالاداة ام بالكود او ارفق المشروع

وشكرااااااااااااااا

مع عاطر التحايا

redahashem

رضا هاشم

اللهم اصلح امورالمسلمين

سبحان الله وبحمده سبحان الله العظيم

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

#3

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

1-قمت باستخدام الاداةdata في الربط.

2-المشروع بسيط كما ذكرت وهو مجرد بداية للتعلم وقمت فيه باضافة عدد 6 command وفي command اضافة قمت بكتابة data1.recordset.addnew وفي command حفظ قمت بكتابة data1.recordset.update .

3-كما ذكرت فأني اخطو خطواتي الاولي في هذا المضمار فأرجو المساعدة بأية روابط لتعليم الربط بالاداة أو الاكواد .

ولاأجد سبيلا لمن يساعدني ويدفعني الا ان ادعو له بقصر في الجنة....

وشكرا1111111111111111

(المحب لرسول الله الي الأبد)

#4

اخي السائل

حاول كتابة الكود الآتي في زر الحفظ

Data1.Recordset.Update

Data1.Recordset.Bookmark = Data1.Recordset.LastModified

اتمنى لك التوفيق

#5

اخي السائل

الكود الذي ارسلته لك لحل مشكلة الحفظ ولكن هناك مشكلة لديك في طريقة الربط بقاعدة البيانات وحلها

1- حدد خاصية databasename للداتا كنترول بإختيارك لقاعدة البيانات المستخدمة بمسارها الكامل

2-حدد خاصية Recordsource للداتا كنترول بإختيارك للجدول المراد استخدامه بالنموذج

3- تأكد من ربط مربعات النصوص بالداتا كنترول عن طريق ضبط الخاصية Datasource لتكون data1

4 - تأكد من ربط مربعات النصوص بالحقول المطلوبة بضبط الخاصية datafied

ارجو ان يكون ذلك واضحا

#6

اخي العزيز

هذي هي طريقة الربط ولكن باستخدام الداتا كنترول data control

private sub form_load()

data1.databaseName=app.path  & "\اسم القاعدة.mdb"

end sub

***********************************************

مثلا معاك برنامج يتكون من text1 و text 2

واحد للرقم ولثاني للإسم

وتبغى تحفظهم في القاعدة

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

private sub command1_click()

data1.recordsource="select *  from    اسم الجدول where xNo=' " & trim(text1.text) & " ' "

data1.refrech

with data1.recordset

if  .recourdcount= 0 then 

.addNew
!xNo=  text1.text
else
.edit 

endif 

!xName= text2.text

.update

end with

end sub

************************

طبعا هذا الكود الي في الاعلى لعملية الحفظ

ملاحظة :- xNo هو اسم الحقل الي انت سويتة مثلا في قاعدة البيانات

وهو حقل الرقم

و xName هو حقل الاسم في قاعدة البيانات

*******************************

اخوك alameeeer

تم تعديل هذه المشاركة بواسطة alameeeer في 3 أبريل 2006 في 20:38

#7

احسنت وجزاك الله خيرا

لكن معظم من يتجة من الاخوه المبتدئين الي استخدام الداتا نظرا لصغر الكود

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

والله الموفق

redahashem

رضا هاشم

اللهم اصلح امورالمسلمين

سبحان الله وبحمده سبحان الله العظيم

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

#8

اشكركم اخواني علي الافادة

لكن هذا ليس ببعيد علي اخوة محترمون مثلكم

شكراااااااااااااااااااااااا

(المحب لرسول الله الي الأبد)

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

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

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

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

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

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