[hglogtd]

السلام عليكم 

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


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

[أبو عمر]

اعذرني سؤالك مبهم
لكن سأفترض ان الجدول
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

[hglogtd]

سلمت وبارك الله فيك

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

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

[الطالب]

سلام


اذا كنت تقصد مجموع المبالغ تستخدم sum كما بينها لك استاذنا ابو عمر

كود :

SELECT SUM([money]) FROM [emp]

اذا كنت تقصد عدد السجلات فاستخدم count

كود :

SELECT COUNT([money]) FROM [emp]

لكن اذا كان الجدول emp يشمل جميع الدوائر فلابد من تحديدها ب where مثل

كود :

SELECT COUNT([money]) FROM [emp] WHERE [اسم الدائره او رقمها] = ?

موفقين

[hglogtd]

(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

[أبو عمر]

الله يرحم والديك
ارفع مثال واي واحد منا يلاقيه راح يعدله لك

[hglogtd]

الله لا يهينكم هذا المثال على فجوال بيسك 2010

[الطالب]

سلام

كود :

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

موفقين

[hglogtd]

وعليكم السلام


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


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