Ключевые слова поиска

[Summer.05]

Прошу совета!

ЕСТЬ:

Private Sub Command1_Click()
On Error GoTo L_Err

With Adodc1
.RecordSource = "SELECT DB.Title From DB WHERE DB.Title Like '*практи*'"
.Recordset.Filter = "Title like '*практи*'"
Text2.Text = DataGrid1.ApproxCount
End With

L_Exit: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit

End Sub

НАДО:
Надо, что бы поиск осуществлялся не только по слову "практи", но по словам "практи" вместе со словом "учебн". При этом, эти слова могут находится в тексте в разных местах. А выводится текст, в котором есть оба эти слова.

Спасибо!

[tyomitch]

Код: Выделить всё

... WHERE (DB.Title Like '*практи*') AND (DB.Title Like '*учебн*')

[Summer.05]

tyomitch
Ой, спасибо тебе! Мне это так нужно...

[Summer.05]

Есть такая строчка:

... WHERE (DB.Title Like '*практи*') AND (DB.Title Like '*учебн*')

она работает.

А возможно в одной строке сочетание AND и OR

... WHERE (DB.Title Like '*практи*') AND (DB.Title Like '*учебн*') OR (DB.Title Like '*препод*')

Она будет работать? При каком синтаксе?
Спасибо!

[Twister]

Только скобочки правильно расставь...

[Summer.05]

Twister

Я пробовал расставить правильно, но не получается. Видимо - неправильно... Не подскажите ли: как будет правильно?
Спасибо!

[Twister]

Код: Выделить всё

WHERE ((DB.Title Like '*практи*') AND (DB.Title Like '*учебн*')) OR (DB.Title Like '*препод*')

Так не выходит?
*ну ты по другому скобки расставь нежели я, все же зависит от твоего условия...

[Summer.05]

Twister
Спасибо большое!

[Summer.05]

Попробовал:

Private Sub Command6_Click()
On Error GoTo L_Err

With Adodc1
.RecordSource = "SELECT DB.Ranc From DB WHERE ((DB.Title Like '*среда*') OR (DB.Title Like '*среды*')) AND (DB.Title Like '*воспит*')"
.Recordset.Filter = "((Title Like '*среда*') OR (Title Like '*среды*')) AND (Title Like '*воспит*')"
Text2.Text = DataGrid1.ApproxCount
End With

L_Exit: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit

End Sub

Не работает - ошибка 3001: "Аргумент не того типа, или выход за пределы приемлемого радиуса, или конфликт одного с другим

Что это может быть???

[Summer.05]

Может быть, нельзя разные опраторы ставить? Или неправильно стоят скобки??

[Twister]

Честно говоря, не пойму, почему возникает ошибка.
Доберусь домой - поэксперементирую...

[Summer.05]

Буду признателен! Спасибо!

[Nicky]

With Adodc1
.RecordSource = "SELECT DB.Ranc From DB WHERE ((DB.Title Like '*среда*') OR (DB.Title Like '*среды*')) AND (DB.Title Like '*воспит*')"
.Recordset.Filter = "((Title Like '*среда*') OR (Title Like '*среды*')) AND (Title Like '*воспит*')"

[Summer.05]

Разобрался.
Надо в скобках иначе формулировать задачи:

Private Sub Command6_Click()
On Error GoTo L_Err

With Adodc1
.RecordSource = "SELECT DB.Ranc From DB WHERE ((DB.Title Like '*среда*') AND (DB.Title Like '*воспит*')) OR ((DB.Title Like '*среды*') AND (DB.Title Like '*воспит*'))

(DB.Title Like '*воспит*')"
.Recordset.Filter = "((Title Like '*среда*') AND (Title Like '*воспит*')) OR ((Title Like '*среды*') AND (Title Like '*воспит*'))
Text2.Text = DataGrid1.ApproxCount
End With

L_Exit: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, App.Title: GoTo L_Exit

End Sub

Спасибо за помощь!