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

سؤال عن دالة Recordcount

بدأه i_samy في 16 مايو 2009 · 10 رد · 1,173 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أنا أستخدم أداة ADODC مع قاعدة بيانات ACCESS2003 متصلة بشاشة فيها عدد من الTextbox

سؤالى عن

كيف يمكن عند الضغط على زر إضافة سجل جديد يتم إضافة 1 إلى عدد السجلات الموجودة فى قاعدة البيانات و ظهور هذا الرقم فى أول TextBox

يعنى إذا كان عدد السجلات صفر يظهر فى ال Textbox1 رقم واحد

و إذا كان عدد السجلات 10 يظهر الرقم 11 فى الtextbox1

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

==========

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

و شكرا مقدما

تم تعديل هذه المشاركة بواسطة i_samy في 16 مايو 2009 في 12:43

#2

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

ضع في المرفقات مثالا على كلامك او ارسل مشروعك ، بشرط أن تكون قاعدة البيانات غير فارغه يعني فيها معلومات حتى يتم التطبيق على المعلومات الموجودة فيها ... وحدد طلباتك بشكل واضح ... وستجد الحل إن شاء الله

حياك الله

#3

\/

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#4

السلام عليكم

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

أسم الجدول سيكون مثلاً Emp

اسم الحقل مثلاً Number1

Adodc1.RecordSource = "select * from Emp"

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then

Text1.Text=1

else

Adodc1.Recordset.Movelast

Text1.Text = Adodc1.Recordset.Filed(" Number1 ") + 1

End If

#5

يا احلى من السكري

يوجد خطاً بالكود وهو عند الضغط على اضافة يظهر رسالة خطأ ويتم تظليل كلمة Filed في السطر الاخير

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#6

اخى انظر الى الاربط الموجود

/index.ph...%CA%D1%DE%ED%E3

00
 

فاضى 

 

00

#7
اقتباس
يوجد خطاً بالكود وهو عند الضغط على اضافة يظهر رسالة خطأ ويتم تظليل كلمة Filed في السطر الاخير

خطأ مطبعي استبدلها ب Field او دون استخدامها على ما اعتقد

Text1.Text = Adodc1.Recordset("Number1") + 1

تم تعديل هذه المشاركة بواسطة TareqVB في 19 مايو 2009 في 08:52 — السبب: خطأ مطبعي

myblog.jpeg

مدونتي

استضافة مواقع asp.net :.Net 3.5,4,4.5, MVC2 & 3,SQL server 2008 R2, Crystal reports

#8

نفس المشكلة لم يتغير شئ

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#9

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

انظر هـــنـــا وستجد الحل بإذن الله ، مع ملاحظة أنك حين تستخدم الدالة وتريد أن تزيد عليها رقما واحد فإنك ستكتب الآتي]

NumTabl ("Table","Column") + 1

كما أن عليك تغيير السورس لقاعدة البيانات وهو في دالة اسمها stra إلى الآتي

stra = Adodc1.ConnectionString

أو أنك تكتب هذه الجملة Adodc1.ConnectionString بدلا من كلمة stra في جميع المواضع التي وردت فيها

حياك الله

تم تعديل هذه المشاركة بواسطة maajed555 في 19 مايو 2009 في 19:30

#10

شكرا لكل من أبدا رأيه و شارك الجميع بخبرته

جارى تجربة كل الحلول

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

#11

لم ننتهي بعد

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

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