[khalid475]

السلام عليكم ورحمة الله وبركاته 

الأخوة الأعزاء محتاج مساعدة منكم والسؤال كالتالي : - في عملية البحث أريد أن أبحث عن : أسعار المنتج برقم المنتج 

يوجد لدي فورم به : 

كود :

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

ما هو الكود الذي الذي سوف أضعه في زر البحث ؟؟؟

وشكــراً