s.hematii
سه شنبه 16 خرداد 1391, 12:24 عصر
سلام من 1دیکشنری ساختم میخوام به جای اینکه فقط کلمه ای که بهش میدیم رو پیدا کنه بلکه همه دیتا بیسهایی که توش همه اون کلمات عبارت نوشتمونو داره رو بیاره مثلا به جای اینکه کلمه تایپ شده red book رو بیاره هر عبارت دیگه ای که دو کلمه redو book رو همرمان توشون هست رو بیاره و مثلا اگه 3کلمه تایپ شد هر 3رو سرچ کنه و عباراتی که خر 3 اون کلمات رو دارند رو نمایش بده واسه پیدا کردن فقط همون عبارت تایپس از کد زیر استفاده میکردم اطفا راهنماییم کنید و کدمو اصلاح کنید
Private Sub Text1_Change()
If Trim(Text1.Text) <> "" Then
RefreshPage1 (Label1.Tag & " like '" & Text1.Text & "%'")
Else
ListView1.ListItems.Clear
ListView2.ListItems.Clear
End If
end sub
Function RefreshPage1(Optional X, Optional Y)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
If IsMissing(X) Then
Adodc1.RecordSource = "Select * From Customer"
Else
Adodc1.RecordSource = "Select * From Customer Where " & X
End If
ListView1.ListItems.Clear
Adodc1.Refresh
Dim FlagA As ListItem
Do While Not Adodc1.Recordset.EOF
Set FlagA = ListView1.ListItems.Add(, "A" & Adodc1.Recordset.Fields("CustomerNumber"), Adodc1.Recordset.Fields("CustomerNumber"))
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CustomerName")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("TelephonNumber")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CarName")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CarYear")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CarNumber")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("Description")
Adodc1.Recordset.MoveNext
Loop
If Not IsMissing(Y) Then
ListView1.ListItems.Item(Y).Selected = True
ListView1.ListItems.Item(Y).EnsureVisible
End If
End Function
Private Sub Text1_Change()
If Trim(Text1.Text) <> "" Then
RefreshPage1 (Label1.Tag & " like '" & Text1.Text & "%'")
Else
ListView1.ListItems.Clear
ListView2.ListItems.Clear
End If
end sub
Function RefreshPage1(Optional X, Optional Y)
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
If IsMissing(X) Then
Adodc1.RecordSource = "Select * From Customer"
Else
Adodc1.RecordSource = "Select * From Customer Where " & X
End If
ListView1.ListItems.Clear
Adodc1.Refresh
Dim FlagA As ListItem
Do While Not Adodc1.Recordset.EOF
Set FlagA = ListView1.ListItems.Add(, "A" & Adodc1.Recordset.Fields("CustomerNumber"), Adodc1.Recordset.Fields("CustomerNumber"))
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CustomerName")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("TelephonNumber")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CarName")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CarYear")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("CarNumber")
FlagA.ListSubItems.Add , , "" & Adodc1.Recordset.Fields("Description")
Adodc1.Recordset.MoveNext
Loop
If Not IsMissing(Y) Then
ListView1.ListItems.Item(Y).Selected = True
ListView1.ListItems.Item(Y).EnsureVisible
End If
End Function