کد لیست ویو

[morteza_261]

سلام
تو سایت گشتم چیزی نبود یا حداقل من چیزی پیدا نکردم
دوستان من تو برنامم جستجو میکنم و اونا رو تو لیست ویو قرار میدم
حالا مشکل من اینه که نمیدونم چطور چند تا از سطر های لیست ویو رو پر کنم
مثلا برای یه جستجو که انجام میدم اگه 10 تا مورد پیدا شه فقط اولین مورد رو قرار میده
حالا بقیه با چه کدی تو سطر های بعد قرار میگیرن :متفکر:

[amirsajjadi]

با سلام
ببین این کد بدردت میخوره


Dim ls AsNew ListViewItem
ls = ListView1.Items.Add("A")
ls.SubItems.Add(1).Text = "B"
ls.SubItems.Add(2).Text = "C"
.
.
.

[morteza_261]

امیر خان دمت گرم ولی من خودم اینجوری نوشتم:


WHERE = "Fname Like N'" & TxtSearch.Text & "%'"
PubSqlCom.CommandText = "SELECT Id, Fname, LName, FatherName, IdCordNo FROM TblStudent WHERE " & WHERE
PubSqlCom.Connection = PubSqlCon
If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()
PubSqlDR = PubSqlCom.ExecuteReader
PubSqlDR.Read()
If PubSqlDR.HasRows Then
Lst = ListView1.Items.Add(PubSqlDR("Id"))
Lst.SubItems.Add(1).Text = (PubSqlDR("Fname"))
Lst.SubItems.Add(2).Text = (PubSqlDR("Lname"))
Lst.SubItems.Add(3).Text = (PubSqlDR("FatherName"))
Lst.SubItems.Add(3).Text = (PubSqlDR("IdCordNo"))
Else
MessageBox.Show("موردی برای جستجو یافت نشد")
EndIf

[مهدی نان شکری]

چون که شما فقط اولین رکورد رو نمایش می دین.
باید با یه while این کار رو بکنید.


WHERE = "Fname Like N'" & TxtSearch.Text & "%'"
PubSqlCom.CommandText = "SELECT Id, Fname, LName, FatherName, IdCordNo FROM TblStudent WHERE " & WHERE
PubSqlCom.Connection = PubSqlCon
If PubSqlCon.State = ConnectionState.Closed Then PubSqlCon.Open()
PubSqlDR = PubSqlCom.ExecuteReader
While PubSqlDR.Read
Lst = ListView1.Items.Add(PubSqlDR("Id"))
Lst.SubItems.Add(1).Text = (PubSqlDR("Fname"))
Lst.SubItems.Add(2).Text = (PubSqlDR("Lname"))
Lst.SubItems.Add(3).Text = (PubSqlDR("FatherName"))
Lst.SubItems.Add(3).Text = (PubSqlDR("IdCordNo"))
End While