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

اريد عمل احصائية بععد انواع التحاليل المعمولة

بدأه skyx في 31 مايو 2009 · 8 رد · 939 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عملت برنامج لمعمل التحاليل لكن اريد اضافة احصائية بعدد انواع التحاليل المعمولة

ازاى ؟؟ ولو فيه كود معمول ممكن حد يضيفه

#2

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

sqls1 = "select * from table"
If rs3.State = adStateOpen Then rs3.Close
rs3.Open sqls1, db, adOpenKeyset, adLockPessimistic
n = rs3.RecordCount

السطر الاخير يعطيك عدد التحاليل استنادا الى الجدول وكم سجل به

فهل هذا هو المقصود

#3

الف شكر يا غالي

#4

يا اخواني اريد كود لوضع ايكون بجوار الكتابة فى command button

ppp.zip

#5

السلام عليكم

انته مش محتاج كود يا صاحبى

لان هناك خاصيه من خواص command button تسمى style اجعلها Graphical

ثم اختر صور من خاصيه picture لنفس المفتاح

بالتوفيق

إن لم تستحى افعل ما تريد

#6

كلام مظبوط لكن الصورة بتكون تحت الكلام مش بجوارة

#7
AHMAD KALIL كتب:
السلام عليكــم ورحمـة الله وبركاتــه ،

sqls1 = "select * from table"
If rs3.State = adStateOpen Then rs3.Close
rs3.Open sqls1, db, adOpenKeyset, adLockPessimistic
n = rs3.RecordCount

السطر الاخير يعطيك عدد التحاليل استنادا الى الجدول وكم سجل به

فهل هذا هو المقصود

جملة الاستعلام هذه تعود بكل السجلات في الجدول. استخدم الأمر Count

و سيعود الاستعلام بعدد السجلات.

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#8

شكرا على معلوماتك يا اخي comfort

ممكن مثال توضيحي للامر count

#9

هذا هو شكل جملة الاستعلام

Select Count(*) From [Your Table Name]
مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif

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

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

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

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

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