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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى قواعد البيانات احمد خطاب 5 109 26-11-18, 03:41 AM
آخر رد: elgokr
  [سؤال] سؤال في vb.net و mysql اللورد محمود 1 158 18-10-18, 01:43 AM
آخر رد: sofizer
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 164 01-10-18, 09:24 AM
آخر رد: alfaiz678
  سؤال عن الداتا ريدر sal_56 4 188 17-09-18, 10:23 AM
آخر رد: 911
Heart [VB.NET] سؤال : كود يجمع العناصر المتشابة في داتا قريد عن الاظافة بدون تكرار EYADISMAIL 16 733 11-09-18, 01:22 AM
آخر رد: EYADISMAIL
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 645 25-08-18, 10:00 PM
آخر رد: elgokr
  سؤال في جملة select تناسيم 1 226 02-05-18, 04:38 PM
آخر رد: تناسيم
  سؤال في جملة select تناسيم 2 244 05-04-18, 01:36 PM
آخر رد: تناسيم
Exclamation [سؤال] سؤال عن امكانية ربط الفيجوال بقاعدة علي الانترنت - وعن طريقه فتحه - وعدة اسأله اخرى MohamedAllam 5 636 23-07-17, 12:53 PM
آخر رد: MohamedAllam
  [VB.NET] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 846 10-05-17, 06:06 PM
آخر رد: ahmedalans

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


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