تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال
#1
سلام عليكم شباب ... 
عندي برنامج ... الادخال هو ( الوارد اليومي + الصرفيات + رواتب الموظفين +... الخ ) طبعا الادخال يكون بشكل يومي وحسب التاريخ 
ما عندي مشكلة بالحفظ ولا الحذف ولا التعديل ... ولكن سؤالي هو انه الاخراج مالت البرنامج لازم يحسب مجموع الوارد خلال مدة شهر والصرفيات .... كيفية برمجة هكذا اموور وكيف اربطها بقاعدة البيانات ... ارجو ان تكون الصورة اتضحت ... شكرا جزيلا 
الرد
تم الشكر بواسطة:
#2
بسم الله الرحمن الرحيم

لنفترض ان اسم حقل مبلغ الوارد اليومي هو IncomeAmount وحقل الصرفيات اليوميه هو ExpenceAmount وحقل التاريخ هو zDate واسم الجدول Table1 اذا ستكون جملة الاستعلام التي تظهر لك اجمالي المبالغ الوارده واجمالي المبالغ المصروفه في شهر معين او بين تاريخين ، كالتالي :

كود :
Select Sum(IncomeAmount) As zIncomeAmount,Sum(ExpenceAmount) As zExpenceAmount From Table1 Where zDate >=#01/01/2015# And zDate <=#31/01/2015# Order By zDate Asc
الرد
تم الشكر بواسطة: hminfo , css2015
#3
الف الف الف شكر الك اخي احمد ... انا عندي علم بطريقة الاستعلام ... لكن كيف اربط نتيجة الاستعلام بالتيكست بوكس ... يعني الناتج يظهر في التيكست بوكس .. اشكرك جدا استاد ...
الرد
تم الشكر بواسطة:
#4
أهلا , والله بالنسبة لطريقة الربط بقاعدة البيانات بالدوت نت فأنا لا أعرفها لأنني مبرمج فيجول بيسك6 ولا علم لي بأداوت وطرق الدوت نت , لذلك سأضعها بطريقة الفيجول بيسك6 وأنت قم بتحويلها لكود الدوت نت , الطريقة أننا سنسخدم مكتبة Microsoft ActiveX Data Objects Library والمعروفه بالإختصار ADO , بهذا الشكل :

كود :
Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset

If DB.State = 1 Then DB.Close
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"

If RS.State = 1 Then RS.Close
RS.Open "Select Sum(IncomeAmount) As zIncomeAmount,Sum(ExpenceAmount) As zExpenceAmount From Table1 Where zDate >=#01/01/2015# And zDate <=#31/01/2015# Order By zDate Asc", DB, adOpenStatic, adLockPessimistic

If RS.RecordCount > 0 Then
   If Not IsNull(RS![zIncomeAmount]) Then Text1.Text = RS![zIncomeAmount] Else Text1.Text = ""
   If Not IsNull(RS![zExpenceAmount]) Then Text2.Text = RS![zExpenceAmount] Else Text2.Text = ""
Else
   Text1.Text = ""
   Text2.Text = ""
End If

If RS.State = 1 Then RS.Close
If DB.State = 1 Then DB.Close
الرد
تم الشكر بواسطة: css2015


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال في vb.net و mysql اللورد محمود 1 71 18-10-18, 01:43 AM
آخر رد: sofizer
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 104 01-10-18, 09:24 AM
آخر رد: alfaiz678
  سؤال عن الداتا ريدر sal_56 4 138 17-09-18, 10:23 AM
آخر رد: 911
Heart [VB.NET] سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار EYADISMAIL 16 556 11-09-18, 01:22 AM
آخر رد: EYADISMAIL
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 508 25-08-18, 10:00 PM
آخر رد: elgokr
  سؤال في جملة select تناسيم 1 186 02-05-18, 04:38 PM
آخر رد: تناسيم
  سؤال في جملة select تناسيم 2 199 05-04-18, 01:36 PM
آخر رد: تناسيم
Exclamation [سؤال] سؤال عن امكانية ربط الفيجوال بقاعدة علي الانترنت - وعن طريقه فتحه - وعدة اسأله اخرى MohamedAllam 5 559 23-07-17, 12:53 PM
آخر رد: MohamedAllam
  [VB.NET] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 779 10-05-17, 06:06 PM
آخر رد: ahmedalans
  [سؤال] سؤال في الاتصال بقاعدة بيانات اكسس عادل الحاشدي 5 6,767 19-05-16, 01:45 PM
آخر رد: osama.okn

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


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