How to fill listbox with multiple selected value from SQL database

[polluxsoftech]

HI,
I have 1 listbox named lbCountry
i have inserted each selected value from listbox into database by following code:

For iLoop = 0 To lbCountry.Items.Count - 1
    ' item selected
    Dim i As Integer() = New Integer(iLoop) {}
    If lbCountry.Items(iLoop).Selected Then
        i(iLoop) = CInt(lbCountry.Items(iLoop).Value.ToString())
        objPartnerDetailsInfo.BIntPreferenceId = i(iLoop)

        objPartnerDetailsInfo.VarPreference = lbCountry.ID
        objPartnerDetailsInfo.BIntProfileId = Session("ProfileId")
        objPartnerDetails.Insert(objPartnerDetailsInfo)
    End If
Next

in class :

Public Sub Insert(ByVal objPartnerDetailsInfo As PartnerDetailsInfo)
        conn = New SqlConnection(constr)
        conn.Open()
        cmd = New SqlCommand("SPAddEditPartnerDetails", conn)
        cmd.Parameters.Add("@Operation", "Add")
        cmd.Parameters.Add("@BIntPartnerDetailsId", SqlDbType.BigInt).Value = DBNull.Value
        cmd.Parameters.Add("@BIntPreferenceId", SqlDbType.BigInt).Value = objPartnerDetailsInfo.BIntPreferenceId
        cmd.Parameters.Add("@VarPreference", SqlDbType.VarChar).Value = objPartnerDetailsInfo.VarPreference
        cmd.Parameters.Add("@BIntProfileId", SqlDbType.BigInt).Value = objPartnerDetailsInfo.BIntProfileId
        cmd.CommandType = CommandType.StoredProcedure
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        conn.Close()
    End Sub

'following is my stored procedure

ALTER PROCEDURE [dbo].[SPAddEditPartnerDetails]
	
	@operation varchar(50),
	@BIntPartnerDetailsId BIGINT,
	@BIntProfileId BIGINT,
	@BIntPreferenceId bigint,
	@VarPreference varchar(50)
AS
If @operation ='Add'
BEGIN
	Insert tblPartnerDetails
		(
	BIntProfileId,
	BIntPreferenceId,
	VarPreference
		)
	VALUES
		(
	@BIntProfileId,
	@BIntPreferenceId,
	@VarPreference
		)
	Select @BIntPartnerDetailsId=@@Identity

	END

now i dont know how to fetch data from databse and fill listbox with multiple selected value..
plz give suitable solution..

[Toniyo Jackson]

try this

For intItem As Integer = 0 To lstBox.Items.Count - 1
  For intSel As Integer = 0 To objDT.Rows.Count - 1
    If lstBox.Items(intItem).Value = CInt(objDT.Rows(intSel).Item("Screen_Id")) Then
      lstBox.Items(intItem).Selected = True
    End If
  Next
Next