اخوانى اول مشاركة ليه فى المنتدى وارجو مساعدتى ولكم الشكر
لقد انشئت من داخل الـ sql ستورد بروسيدر وهو يعمل ولكنى لا اعرف كيفية تنفيذه من داخل الفيجول
USE [Data]
GO
/****** Object: StoredProcedure [dbo].[TBalanceQty] Script Date: 12/20/2009 21:01:15 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[TBalanceQty] AS declare @SalesQty int, @purQty int, @balance int, @ErrorCode int, @Article int, @VTYPE INT
set @salesQty = (select sum(Qtyout) from TDETAIL where Vtype =@VTYPE and Article = @Article)
set @purQty = (select sum(QtyIn) from TDETAIL where Vtype =@VTYPE and Article = @Article)
select @balance = @purQty - @salesQty
select @Article as [رقم الصنف],@salesQty as [كمية البيع],@purQty as [كمية الشراء], @balance as [الرصيد]
INSERT aak (Article, salesQty, purQty, balance)
VALUES (@Article, @salesQty, @purQty, @balance)
SET @ErrorCode=@@ERROR
IF (@ErrorCode = 0)
RETURN (0)
ELSE
RETURN (@ErrorCode)
فكرة الكود منقولة من المنتدى فى قسم sql ولكنى اجريت عليها بعض التعديلات