كيف اقوم بجمع القيم تلقائيا

ساعطيك الكود من على ال sql server

اولاً سافترض ان جدول المشتريات اسمه sales و يحتوى على عمود اسمه price الذى تسجل فيه اسعار القطع

اقتباس

يجمع هذه القيم تلقائيا

ما رايك لو عملنا trigger للاضافه فعند إضافة سعر اى قطعه يقوم بحمع اسعار جميع القطع و لكنك هنا قلت

اقتباس

وطلب ثاني ابي كود ينقل بيانات سجل محدد الى سجل قاعدة بيانات في نفس المشروع يعني ابي الكود ينقل البيانات المحدده ويحطها في قاعدة بيانات جديده

ما رايك إذاً لو اننا وضعنا جميع الاسعار فى جدول اخر بعد ان ننتهى من جمعهم (يمكنك تعديل الكود ليناسب الاختيار على معايير معينه تضعها انت)

create trigger sums
on sales after insert
as
select sum(price)from sales
insert sales2
select * from price

ارجو ان اكون قد اجبتك

اخي العزيز لدي طلب واحد اين اظع الكود الذي كتبته هل اضعه في الفورم ام اين اضعه

وانا اريده ان يضع القيم في label واريد كود للطرح ايضا نفس الجداول اريده ان يطرح الجدول الاول من الجدول الثاني

وشكرااااااااااا لجهودك وصدقني لو الحاجه الى الكود لما لحيت عليك وتقبل تحياتي

انا اسف فقد كان على ان اشرح لك العمليه باستخدام الفيجوال بيسك على العموم ساشرح لك الفكره باختصار بدلاً من كتابة trigger سنكتبه ك stored procedure وهو طبعاً مخزن على السيرفر

من داخل الفيجوال بيسك ستقوم بوضع مرجع لمكتبة ال ado 2.6 ثم فى قسم التصريحات العامع ستقوم بتعريف متغير يحمل الاتصال واخر لل command و اخر للباراميترات إن وجدت

Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
' هذا السطر غير ضرورى إذا لم يكن الاجراء المخزن يستقبل باراميترات
dim pr1 as new ADODB.pararmeter

ستقوم بتحديد ال connection string

cn.connectionstring="your string here"
'open the connection
cn.open

ستقوم بعد ذلك بتحديد خواص ال command object

cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "name of stored procedures goes here"

قم بتحديد الباراميترات إن وجدت فى حالتك يمكنك تحديد باراميتر ك output paramter

pr1.Direction = adParamOutput
pr1.Name = "@res"

قم باضافة الباراميتير لل command

cmd.Parameters.Append (pr1)

قم بتنفيذ ال command object والذى يحتوى على ال stored procedure

cmd.Execute

قم بعرض القيمه المرتجعه فى صندوق نص لو اردت

text1.text=cmd.Parameters(0).Value

الباراميتير (0) اى الباراميتير الاول

انا لم اختبر الكود الان فإن اخطأت فالخطأ منى ومن نفسى و إن وفقت فالتوفيق من عند الله

على كل هذا مجرد تعريف لما يجب ان تفعله