Где как (SQL) VBA

#excel #vba

#excel #vba

Вопрос:

это мой код

 SqlStr = "Select Test From Tbl_Test Where Test ='" amp; TextBox1 amp; "'"
 

как добавить Like в Where Test и TextBox1 в TextBox1 *?

 SqlStr = "Select Test From Tbl_Test Where Test Like='" amp; TextBox1* amp; "'"
 

Этот код выдает ошибку.

Комментарии:

1. SqlStr = "Select Test From Tbl_Test Where Test Like'" amp; TextBox1 amp; "%'"

2. совет: отладка распечатайте свою строку sql, затем попробуйте просто запустить это в access (я полагаю). access даст вам представление о том, почему ваша сгенерированная строка была неверной … или… попробуйте сгенерировать нужный запрос в Access, затем напишите код VB, чтобы точно воспроизвести строку, необходимую для вашего запроса.

3. @ScottCraner да, это, tnx

Ответ №1:

Вам нужно удалить ‘=’ и добавить соответствующие ‘%’ (которые относятся к любому числу любого символа) в зависимости от ваших потребностей.

Результирующая строка должна быть такой:

 Select Test From Tbl_Test Where Test Like '%yoursearchhere%'
 

например

 SqlStr = "Select Test From Tbl_Test Where Test Like '%" amp; TextBox1.Text amp; "%'"
 

Для справки:

https://docs.microsoft.com/en-us/sql/t-sql/language-elements/like-transact-sql?view=sql-server-ver15