Есть код. Работает.
Private Sub List1_Click()
Call PlaySound(CStr(CurDir) + "\Select.wav", 0, _
SND_FILENAME) ' Or SND_ASYNC)
Dim strMyString, retval
Dim Msg, Lng As String
With List1
strMyString = .List(.ListIndex)
Lng = Len(strMyString)
Text4 = Lng
retval = Left(strMyString, Lng)
Text3 = retval
If Text3 <> "" Then
Adodc1.RecordSource = "SELECT * FROM DB where City like " + _
Chr(39) + "%" + Text3 + "%" + Chr(39)
Adodc1.Refresh 'выполнить запрос
End If
End With
Text2.Text = DataGrid1.ApproxCount
L_Exit: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit
End Sub
Нет никаких проблем ни с одним названием города, кроме двух
Если я ввожу "Томск", то и получаю список, где есть г. Томск.
Если я ввожу "Омск", то и получаю список, где есть И Омск, и Томск.
Как это понимать, подскажите, пожалуйста!
Спасибо!