تقييم الموضوع :
  • 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 4,043 19-05-16, 01:45 PM
آخر رد: osama.okn
Photo [سؤال] عندى سؤال فى البحب و التعديل و الاضافة مع بعض alims 6 570 18-01-16, 05:20 PM
آخر رد: alims
  [سؤال] سؤال في قواعد البيانات مهم للجميع** فراس صلاح 10 1,131 18-08-15, 09:11 PM
آخر رد: سعود
  [سؤال] شباب سؤال بسيط عن sql server احمد عبد الحكيم 6 460 15-08-15, 03:36 PM
آخر رد: احمد عبد الحكيم
  [سؤال] كم سؤال بسيط جدا css2015 8 824 29-03-15, 06:11 PM
آخر رد: css2015
  سؤال عن ال SQL vamosmada 1 354 31-01-15, 08:39 PM
آخر رد: Ahmed_Mansoor
  [سؤال] سؤال حول الخاصية RejectChanges في ADO.NET السندبااد 6 697 06-11-14, 01:08 PM
آخر رد: السندبااد
  [سؤال] سؤال حول vb.NET و ACCESS NOUMAR 2 802 01-06-14, 02:02 PM
آخر رد: احمد129
  سؤال : حفظ قمية الـ CheckBox داخل قاعدة بيانات access hitham 5 2,433 30-05-14, 04:46 PM
آخر رد: hassan
  سؤال عن علامات الاستفهام فى قاعدة البيانات mesm23 1 789 27-05-14, 11:53 PM
آخر رد: Sajad

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


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