- Код: Выделить всё
SELECT * FROM vw_Personal WHERE [Код] LIKE '%' + ? + '%' OR [Логин] LIKE '%' + ? + '%' OR [Фамилия] LIKE '%' + ? + '%' OR [Имя] LIKE '%' + ? + '%' OR [Отчество] LIKE '%' + ? + '%' OR [Служба] LIKE '%' + ? + '%' OR [Должность] LIKE '%' + ? + '%' OR [Трудовые отношения] LIKE '%' + ? + '%' OR [Телефон] LIKE '%' + ? + '%' OR [Примечание] LIKE '%' + ? + '%'
Передаем параметры
- Код: Выделить всё
Dim c As ADODB.Command
Set c = New ADODB.Command
c.CommandType = adCmdText
c.Parameters.Append c.CreateParameter _
("strParam" & j, adVarChar, adParamInput, 5000, "10")
...
...
c.Parameters.Append c.CreateParameter _
("strParam" & j, adVarChar, adParamInput, 5000, "10")
'Подключаемся к БД
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open (Connect.Soedinenie)
Dim r As ADODB.Recordset
Set c.ActiveConnection = conn
c.CommandType = adCmdText
c.CommandText = sql
Set r = New ADODB.Recordset
r.Open c, , adOpenStatic, adLockReadOnly
'Отключаемся от БД
Set r = Nothing
Set conn = Nothing
Set c = Nothing
Проблема в том, что нужно найти в запросе примечания, значения которых отличны от NULL, т.е.
- Код: Выделить всё
SELECT
...
...
WHERE
...
OR [Примечание] IS NOT NULL
, т.е. параметром передать значение IS NOT NULL.