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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] سؤال عن امكانية ربط الفيجوال بقاعدة علي الانترنت - وعن طريقه فتحه - وعدة اسأله اخرى MohamedAllam 5 251 23-07-17, 12:53 PM
آخر رد: MohamedAllam
  [VB.NET] مثال +سؤال اضافة حذف عرض السجلات ahmedalans 6 421 10-05-17, 06:06 PM
آخر رد: ahmedalans
  [سؤال] سؤال في الاتصال بقاعدة بيانات اكسس عادل الحاشدي 5 5,534 19-05-16, 01:45 PM
آخر رد: osama.okn
Photo [سؤال] عندى سؤال فى البحب و التعديل و الاضافة مع بعض alims 6 957 18-01-16, 05:20 PM
آخر رد: alims
  [سؤال] سؤال في قواعد البيانات مهم للجميع** فراس صلاح 10 1,675 18-08-15, 09:11 PM
آخر رد: سعود
  [سؤال] شباب سؤال بسيط عن sql server احمد عبد الحكيم 6 815 15-08-15, 03:36 PM
آخر رد: احمد عبد الحكيم
  [سؤال] كم سؤال بسيط جدا css2015 8 1,223 29-03-15, 06:11 PM
آخر رد: css2015
  سؤال عن ال SQL vamosmada 1 508 31-01-15, 08:39 PM
آخر رد: Ahmed_Mansoor
  [سؤال] سؤال حول الخاصية RejectChanges في ADO.NET السندبااد 6 1,174 06-11-14, 01:08 PM
آخر رد: السندبااد
  [سؤال] سؤال حول vb.NET و ACCESS NOUMAR 2 1,057 01-06-14, 02:02 PM
آخر رد: احمد129

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


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