04-05-17, 06:00 PM
السلام عليكم ورحمة الله وبركاته
الأخوة الأعزاء محتاج مساعدة منكم والسؤال كالتالي : - في عملية البحث أريد أن أبحث عن : أسعار المنتج برقم المنتج
يوجد لدي فورم به :
ويوجد عندي كلاس إسمه : DatabaseManager يوجد به التالي :
تم عمل استورد بروسيجر كالتالي : -
وكلاس الداتا لير فيه :
والبزنز لاير فيه :
ما هو الكود الذي الذي سوف أضعه في زر البحث ؟؟؟
وشكــراً
الأخوة الأعزاء محتاج مساعدة منكم والسؤال كالتالي : - في عملية البحث أريد أن أبحث عن : أسعار المنتج برقم المنتج
يوجد لدي فورم به :
كود :
txtitemid.text
txtwholesaleone.Text
txtcustomerone.Text
txtsaleone.Text
txtwholesaletwo.Text
txtcustomertwo.Text
txtsaletwo.Text
txtwholesalethird.Text
txtcustomerthird.Text
txtsalethird.Textويوجد عندي كلاس إسمه : DatabaseManager يوجد به التالي :
كود :
Imports System.Data.SqlClient
Imports System.Configuration
Public Class DatabaseManager
Private _connection As SqlConnection
Private _connectionString As String
Public ReadOnly Property Connection() As SqlConnection
Get
If _connection Is Nothing Then _connection = New SqlConnection(_connectionString)
Return _connection
End Get
End Property
Public Sub New()
Me._connectionString = ConfigurationManager.ConnectionStrings("connSQLServer").ConnectionString
End Sub
Public Sub New(ByVal ConnectionString As String)
Me._connectionString = _connectionString
End Sub
Public Sub close()
If _
Not _connection Is Nothing AndAlso _
_connection.State = ConnectionState.Open Then _
_connection.Close()
End Sub
Public Function fillTable(ByRef cmd As SqlCommand, ByRef dt As DataTable) As Integer
Dim retval As Integer = -1
dt = New DataTable
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = Me.Connection
Dim da As New SqlDataAdapter(cmd)
da.Fill(dt)
If (Not dt Is Nothing) Then retval = dt.Rows.Count
Return retval
End Function
Public Function executeReader(ByRef cmd As SqlCommand, ByRef dr As SqlDataReader) As Integer
cmd.CommandType = CommandType.StoredProcedure
Return exeReader(cmd, dr)
End Function
Public Function executeReader(ByVal sql As String, ByRef dr As SqlDataReader) As Integer
Dim cmd As New SqlCommand(sql)
cmd.CommandType = CommandType.Text
cmd.Connection = Me.Connection
Dim retval As Integer = executeReader(cmd, dr)
Return retval
End Function
Private Function exeReader(ByRef cmd As SqlCommand, ByRef dr As SqlDataReader) As Integer
Dim retval As Integer = -1
cmd.Connection = Me.Connection
Try
If cmd.CommandType = CommandType.StoredProcedure Then
Dim pr As New SqlParameter("@retval", SqlDbType.Int)
pr.Direction = ParameterDirection.ReturnValue
cmd.Parameters.Add(pr)
End If
If cmd.Connection.State = ConnectionState.Closed Then cmd.Connection.Open()
dr = cmd.ExecuteReader()
If cmd.CommandType = CommandType.StoredProcedure Then retval = cmd.Parameters("@retval").Value
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
Me.close()
End Try
Return retval
End Function
Public Function executeNonQuery(ByRef cmd As SqlCommand) As Integer
cmd.CommandType = CommandType.StoredProcedure
Return exeNonQuery(cmd)
End Functionتم عمل استورد بروسيجر كالتالي : -
كود :
ALTER PROCEDURE [dbo].[Get_Prices_Item_By_ID]
@ItemID int
as
begin
Select ItemID,FirstUnitWholeSalePrice,FirstUnitShopperPrice,FirstUnitDemotionsPrice,FirstUnitPriceDefult,SecondUnitWholeSalePrice,SecondUnitShopperPrice,SecondUnitDemotionsPrice,SecondUnitPriceDefult,ThirdUnitWholeSalePrice,ThirdUnitShopperPrice,ThirdUnitDemotionsPrice,ThirdUnitPriceDefult,DefultPrice from ItemsPricesTbl Where ItemID=@ItemID
RETURN
Endوكلاس الداتا لير فيه :
كود :
Friend Function Get_Prices_Item_By_ID(ByRef dr As SqlDataReader, ByVal ItemID As Integer)
Dim cmd As New SqlCommand("Get_Prices_Item_By_ID")
cmd.Parameters.Add("@ItemID", SqlDbType.Int).Value = CType(ItemID, Integer)
Dim retval As Integer = dm.executeReader(cmd, dr)
Return retval
End Functionوالبزنز لاير فيه :
كود :
Public Function Get_Prices_Item_By_ID(ByVal ItemID As Integer)
p.Get_Prices_Item_By_ID(dr, ItemID)
Return dr
End Functionما هو الكود الذي الذي سوف أضعه في زر البحث ؟؟؟
وشكــراً
