+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: نشون دادن نتایج جستجو (/showthread.php?tid=2014)
RE: نشون دادن نتایج جستجو - parvin - 04-05-2012
من نتونستم از لیست باکس استفاده کنم. میشه لطفا کمک کنین
RE: نشون دادن نتایج جستجو - parvin - 04-06-2012
آقا امین چرا لیست باکس وقتی به بانک وصل میکنم محتویات بانک رو نشون نمیده؟
RE: نشون دادن نتایج جستجو - Amin_Mansouri - 04-06-2012
سورستو بزار
RE: نشون دادن نتایج جستجو - parvin - 04-06-2012
ببینید من تو برنامه یه textbox دارم و listbox . از یه کنترل data هم استفاده کردم. textbox محتویات بانک رو نشون میده ولی listbox نشون نمیده. چرا؟
RE: نشون دادن نتایج جستجو - Amin_Mansouri - 04-06-2012
با دستور
List1.AddItem Text1.Text
محتوای تکست باکسو بریز تو لیست باکس
RE: نشون دادن نتایج جستجو - parvin - 04-06-2012
این دستور هر چی تو تکست باکس هست رو میبره به لیست باکس. من می خوام همه محتویات بانک یه جا دیده بشه
RE: نشون دادن نتایج جستجو - parvin - 04-18-2012
دوستان این برنامه ای که ضمیمه کردم رو ببینید. وقتی یه کلمه رو سرچ میکنم همه محتویات بانک رو میاره. چرا؟ میشه بگید ایرادش کجاست؟
RE: نشون دادن نتایج جستجو - Amin_Mansouri - 04-19-2012
این کدو جایگدین کد قبلیت کن :
کد:
Private Sub Command2_Click()
'Data1.Recordset.FindNext "name like" & "'" & Text1 & "'"
Form1!Data1.Recordset.FindFirst "[name] like '*" & Text1 & "*'"
If Data1.Recordset.NoMatch Then
MsgBox "!!ãÊÇÓÝÇäå ãæÑÏí íÏÇ äÔÏ", vbExclamation
Text1.Text = ""
Text1.SetFocus
Else
' Form1.Show
' Form2.Text1.Text = ""
' Form2.Hide
With Data1.Recordset
Do Until .EOF
If .Fields("name") = Text1.Text Then lstFind.AddItem .Fields("name") & ", " & .Fields("last") & ", " & .Fields("melikod")
.MoveNext
Loop
End WithEnd If
End SubRE: نشون دادن نتایج جستجو - parvin - 04-19-2012
درست شد. دستت درد نکنه
حالا که نتایج رو نشون میده می خوام تو لیست باکس رو هر اسم که کلیککردم تو تکس باکس مشخصات همون فرد دیده بشه. باید چیکار کنم؟
RE: نشون دادن نتایج جستجو - Amin_Mansouri - 04-19-2012
کد:
Private Sub lstFind_Click()
MsgBox lstFind.List(lstFind.ListIndex)
End Sub