저장 프로 시저별로 SQL Server의 레코드를 텍스트 상자에 표시하는 방법

나는 테이블이 있습니다 ItemsPricesTbl:

ItemID
FirstUnitWholeSalePrice
FirstUnitShopperPrice
FirstUnitDemotionsPrice
FirstUnitPriceDefault
SecondUnitWholeSalePrice
SecondUnitShopperPrice
SecondUnitDemotionsPrice
SecondUnitPriceDefault
ThirdUnitWholeSalePrice
ThirdUnitShopperPrice
ThirdUnitDemotionsPrice
ThirdUnitPriceDefault
DefaultPrice

데이터를 가져 오는 저장 프로시 저는 다음과 같습니다.

ALTER PROCEDURE [dbo].[Get_Prices_Item_By_ID]
    @ItemID int
AS
BEGIN 
    SELECT
        ItemID, FirstUnitWholeSalePrice, FirstUnitShopperPrice, 
        FirstUnitDemotionsPrice, FirstUnitPriceDefault,
        SecondUnitWholeSalePrice, SecondUnitShopperPrice,
        SecondUnitDemotionsPrice, SecondUnitPriceDefault,
        ThirdUnitWholeSalePrice, ThirdUnitShopperPrice,
        ThirdUnitDemotionsPrice, ThirdUnitPriceDefault,
        DefaultPrice 
    FROM
        ItemsPricesTbl 
    WHERE
        ItemID = @ItemID
END

Vb DatabaseManager에는이 코드 가있는 클래스가 있습니다.

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

또한 데이터 클래스와 비즈니스 클래스의 두 가지 클래스가 있습니다.

데이터 클래스 코드 :

Friend Sub Get_Prices_Item_By_ID(ByRef dt As DataTable, ByVal ItemID As Integer)
    Dim cmd As New SqlCommand("Get_Prices_Item_By_ID")
    cmd.Parameters.Add("@ItemID", SqlDbType.Int).Value = ItemID
    dm.fillTable(cmd, dt)
End Sub

비즈니스 클래스 코드 :

Public Function Get_Prices_Item_By_ID(ByVal ItemID As Integer) As DataTable
    Dim dt As New DataTable
    p.Get_Prices_Item_By_ID(dt, ItemID)
    Return dt
End Function

검색 버튼에 어떤 코드를 입력해야합니까?

나는 이것을 시도했다 :

p.Get_Item_By_ID(FrmManage_Items.txtitemid.Text)
                FrmManage_Items.txtwholesaleone.Text = dt.Rows.ToString
                FrmManage_Items.txtcustomerone.Text = dt.Rows.ToString
                FrmManage_Items.txtsaleone.Text = dt.Rows.ToString
                FrmManage_Items.RadioButton4.Checked = dt.Rows.ToString
                FrmManage_Items.txtwholesaletwo.Text = dt.Rows.ToString
                FrmManage_Items.txtcustomertwo.Text = dt.Rows.ToString
                FrmManage_Items.txtsaletwo.Text = dt.Rows.ToString
                FrmManage_Items.RadioButton5.Checked = dt.Rows.ToString
                FrmManage_Items.txtwholesalethird.Text = dt.Rows.ToString
                FrmManage_Items.txtcustomerthird.Text = dt.Rows.ToString
                FrmManage_Items.txtsalethird.Text = dt.Rows.ToString
                FrmManage_Items.RadioButton6.Checked = dt.Rows.ToString
                FrmManage_Items.TextBox20.Text = dt.Rows.ToString

그러나 나는 기록을 얻지 못했지만 각 텍스트 상자에 오류가 있습니다.

System.Data.DataRowCollection

참고 : 연결이 app.config파일 에 있습니다.