در مورد انتقال چک لیست باکس

[hosseinhaji]

سلام دوستان عزیز، یه سوال داشتم که امیدوارم بی جواب نذارینش.
یک چک لیست باکس دارم که می خوام آیتم‌های تیک زده شده رو در بانک اطلاعاتی ذخیره کنم. اگه از دوستان کسی هست که برنامه ای در این مورد داشته باشه ممنون می شم کمکم کنه.

[alirezash]

دوست عزیز

for i=1 to listview1.item.count
if lstview.Items(i).Checked = True then
save=listview.items(i).subitem(1).text
کدی که برای ذخیره کردن استفاده می کنی
end if
next

[hosseinhaji]

سلام دوست عزیز
از اینکه به سوالم جواب بدین خیلی ممنونم. ولی مشکل من در ویژوال بیسیک دات نت هست که با این کارها درست نمیشه.

[alirezash]

دوست عزیز . این کد رو در .net می تونی استفاده کنی

[mmd2009]

با سلام

اینم یک کد کامل که برات اماده کردم :



Dim strConstring As String = "Data Source=MMD2009\SQLEXPRESS;Initial Catalog=learn;Integrated Security=True"

Dim con As New SqlConnection(strConstring)

Dim strquery As String = " insert into tbl2(name)values(@name)"

Dim cmd As New SqlCommand(strquery, con)

If (con.State = ConnectionState.Closed) Then
con.Open()
End If

Dim intFor As Int16 = 0


For intFor = 0 To CheckedListBox1.Items.Count - 1 Step 1

If (CheckedListBox1.GetItemChecked(intFor) = True) Then

cmd.Parameters.Add("@name", SqlDbType.NVarChar, 50).Value = _
CheckedListBox1.Items(intFor).ToString()

cmd.ExecuteNonQuery()

cmd.Parameters.Clear()

MsgBox("New record was insert")

End If

Next intFor

con.Close()

[hosseinhaji]

با سلام و تشکر از خدمت شما عزیزان
دوست عزیز خیلی ممنونم این مشکلم حل شد. واقعا به موقع به دادم رسیدی. فقط در ذخیره فارسی دچار مشکل میشه. اینم اگه بتونی کمکم کنی که دیگه محشره. بازم ازت ممنونم.:کف:

[mmt1mehdi]

با سلام یه سوال درمورد لیست باکس دارم
من یه لیست باکس دارم که accessablerole اون را به چک باکس تغییر دادم حالا می خوام بدونم هنگامی که چند گزینه اون رو انتخاب کرده باشیم چه جوری می تونیم به تک تک اونا دسترسی داشته باشیم؟