تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاج كود عدد الصفوف من قاعدة البيانات وعرض بالفورم
#1
السلام عليكم 

محتاج كود فجوال بيستك 2010 جلب وعرض عدد الصفوف فقط ( العدد الاجمالي ) لجدول معين وليكن emp


القاعدة من نوع اكسس


الملفات المرفقة صورة/صور
   



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:
#2
اعذرني سؤالك مبهم
لكن سأفترض ان الجدول
emp
والحقل
money
select sum(money) as money from emp
td.load( Order.ExecuteReader)
For Each ff As DataRow In dt.Rows
msgbox (ff("money").ToString)
next
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: الطالب
#3
سلمت وبارك الله فيك

القاعده emp والحقل money

واللي احتاجه بالضبط اذا اشتغل الفورم يعطيني كم عدد الادخالات لكل دائره طبعا  ب lable او text طبعا ماله دخل ب button


الملفات المرفقة صورة/صور
   



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:
#4
سلام


اذا كنت تقصد مجموع المبالغ تستخدم sum كما بينها لك استاذنا ابو عمر
كود :
SELECT SUM([money]) FROM [emp]

اذا كنت تقصد عدد السجلات فاستخدم count
كود :
SELECT COUNT([money]) FROM [emp]

لكن اذا كان الجدول emp يشمل جميع الدوائر فلابد من تحديدها ب where مثل
كود :
SELECT COUNT([money]) FROM [emp] WHERE [اسم الدائره او رقمها] = ?


موفقين
متغيب
الرد
تم الشكر بواسطة: أبو عمر , khodor1985
#5
(13-09-15, 10:12 AM)الطالب كتب : سلام


اذا كنت تقصد مجموع المبالغ تستخدم sum كما بينها لك استاذنا ابو عمر
كود :
SELECT SUM([money]) FROM [emp]

اذا كنت تقصد عدد السجلات فاستخدم count
كود :
SELECT COUNT([money]) FROM [emp]

لكن اذا كان الجدول emp يشمل جميع الدوائر فلابد من تحديدها ب where مثل
كود :
SELECT COUNT([money]) FROM [emp] WHERE [اسم الدائره او رقمها] = ?


موفقين



وفقنا الله واياكم واشرك كل الشكر 

لكن انا اللي احتاجه عدد السجلات كم 

عملته مثل ما شرحت لي طبعاً اضفته في كود leabl


الملفات المرفقة صورة/صور
   



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة: أبو عمر , أبو عمر
#6
الله يرحم والديك
ارفع مثال واي واحد منا يلاقيه راح يعدله لك
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: الطالب , khodor1985
#7
الله لا يهينكم هذا المثال على فجوال بيسك 2010



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة: أبو عمر
#8
سلام


كود :
Private Sub logo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   TextBox1.Text = My.User.Name
   TextBox2.Text = My.Computer.Name

   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no1", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label10.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no2", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label6.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no3", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label8.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no4", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label11.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no5", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label13.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM no6", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label15.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using
   Using cmd As New OleDb.OleDbCommand("SELECT COUNT(no) FROM oared", New OleDb.OleDbConnection(My.Settings.datadoConnectionString12))
       cmd.Connection.Open()
       Label17.Text = cmd.ExecuteScalar
       cmd.Connection.Close()
   End Using

End Sub


موفقين
متغيب
الرد
تم الشكر بواسطة: أبو عمر , khodor1985
#9
وعليكم السلام


اسعدك الله في الدارين تمام التمام


اعتذر منك فأنا نوعا ما مبتدأ



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف ابحث داخل قاعدة البيانات احمد خطاب 1 26 اليوم, 03:18 AM
آخر رد: asemshahen5
  البحث عن يوم في قاعدة البيانات atefkhalf2004 1 38 أمس, 10:00 PM
آخر رد: atefkhalf2004
  [نقاش] خطأ بسيط في الاتصال بقاعدة البيانات اسامه الهرماوي 3 103 13-10-18, 01:43 AM
آخر رد: ابراهيم ايبو
  لماذا تظهر علامة خطأ على قاعدة البيانات دائماً ؟ Hazem1 0 49 12-10-18, 02:17 PM
آخر رد: Hazem1
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 89 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  جلب بيانات الوقت من قاعدة البيانات access وادخالها في جدول excel alfauori 2 55 09-10-18, 03:25 AM
آخر رد: alfauori
  [VB.NET] ادخال البيانات بالجدوال المرتبطة abu ammar 3 78 06-10-18, 10:33 PM
آخر رد: asemshahen5
  كيف يُمكن أدخال أداة ال Progress Bar للتزامن مع نسخ قاعدة بيانات الأكسس؟ Hazem1 6 186 05-10-18, 12:18 AM
آخر رد: Hazem1
  [سؤال] محتاج تعديل بسيط في كود ScreamVoice 7 119 04-10-18, 06:41 AM
آخر رد: ScreamVoice
  ما الفرق بين ربط المشروع بقاعدة البيانات الأكسس أو بـ Sql ؟ Hazem1 3 121 04-10-18, 12:33 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم