پر کردن CheckBoxList از دیتابیس

[engineer_vm]

سلام دوستان..!
یه CheckBoxList داریم که آیتم هایی که قراره نمایش داده بشه رو باید از یه جدول خونده بشه و بتونیم اونو پر کنیم..
فرض کنیم آیتمی که باید توی ChechBoxList نمایش داده بشه اینا باشه:
1- مهمانسرا
2- تالار
3- فروشگاه تعاونی مصرف
و غیره...!
توی جدولم 2 تا فیلد وجود داره 1-EmkanatID و 2- EmkanatType

حالا مثلاً اگه میخواستیم به فرض CombpBox رو پر کنیم با خواص DisplayMember و ValueMember اون کار میکردیم که اولی چیزی بود که توی کمبو نمایش داده میشد و دومی فیلد کلید اصلی میتونست باشه که توی جاهای دیگه برنامه میشود ازش استفاده کنیم اما چک باکس چنین چیزی نداره..!
خلاصه کلام اینکه میخوام این چک باکس لیست از اطلاعات درون یه جدول پر کنم..چه جوری؟
البته من با این کد تونستم اونو یه جورایی پر کنم ولی برام اون ValueMember مهمه ..چه جوری باید Bindesh کنم؟ توی Properties هم ور رفتم چون Bind داشت اونجا اما نشد..!
این کدیه که من برای نمایش اطلاعات توی چک باکس نوشتم اما من دنبال اون EmkanatID یا کلید اصلیم میگردم که نمیدونم چه جوری انتصابش بدم به هر آیتم CheckBoxlistام:عصبانی++:
========================
Private Sub dbchkEmkanat()
Dim CN As String = "Data Source=(local);Initial Catalog=DataBase;Integrated Security=True"
Dim SCON As New SqlConnection(CN)
strsql = "SELECT * FROM [Emkanat]"
Dim cmd As New SqlCommand(strsql, SCON)
SCON.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
While dr.Read
Me.chkEmkanat.Items.Add(dr.Item("Emkanat"))
chkEmkanatCounter = chkEmkanatCounter + 1
End While
dr.Close()
SCON.Close()
End Sub

[ghafoori]

دوست عزیز من یک پیشنهاد دارم به کد من یک نگاهی بیانداز فکر کنم همون باشه که می خواهی با یکمی تغییر درست می شود


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim c As New check
c.text = "aasdd"
c.id = 1
CheckedListBox1.Items.Add(c)
Dim d As check
d = CheckedListBox1.Items.Item(0)
MsgBox(d.id)
End Sub
End Class
Public Class check
Public id As Integer
Public text As String
Public Overrides Function tostring() As String
Return text
End Function
End Class



من یک کلاس تعریف کردم با دو متغییر برای ذخیره متن و کلید اصلی و متد tostring را هم Overrides کردم تا در CheckedListBox چیز درست را نشان بده حالا نمونه هایه این کلاس را به CheckedListBox اضافه کن این نمونه قابلیت ذخیره هم متن و کلید را دارند

[engineer_vm]

ممنون.. من میخواستم از یه جدول بخونه و پرش کنه..! اما بازم ممنون . با این کد شما هم ور میرم ببینم میتونم ID رو بهItemش انتصاب بدم....