تقييم الموضوع :
  • 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
وعليكم السلام


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


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



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تعديل قاعدة البيانات محمد اسماعيل 7 78 18-07-18, 07:26 PM
آخر رد: elgokr
  [سؤال] كفية عمل شات يعتمد فقط على قاعدة البيانات sql alims 3 72 17-07-18, 01:27 PM
آخر رد: محمد اسماعيل
  [VB.NET] سؤال عن قاعدة البيانات من الخبراء محمد اسماعيل 2 84 17-07-18, 01:25 PM
آخر رد: محمد اسماعيل
  [VB.NET] نسخ واستعادة قاعدة البيانات محمد اسماعيل 4 93 12-07-18, 05:17 PM
آخر رد: محمد اسماعيل
  [VB.NET] استفسار :- فرز البيانات على حسب السنوات dubai.eig 25 376 11-07-18, 02:41 PM
آخر رد: dubai.eig
  [VB.NET] مشكلة عند اضافة البيانات للسيرفر محمد اسماعيل 7 94 11-07-18, 04:28 AM
آخر رد: elgokr
  [VB.NET] سؤال عن قواعد البيانات محمد اسماعيل 3 69 10-07-18, 11:01 PM
آخر رد: elgokr
  [سؤال] كيف اقوم بعمل فلتر DataGridView مرسل لها البيانات من فورم اخري dametucorazon 12 204 10-07-18, 06:03 PM
آخر رد: elgokr
  [VB.NET] قاعدة البيانات عند العميل محمد اسماعيل 3 72 10-07-18, 01:13 AM
آخر رد: elgokr
  [VB.NET] جلب البيانات من السيرفر محمد اسماعيل 9 107 08-07-18, 02:13 PM
آخر رد: محمد اسماعيل

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


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