Как выполнить запрос в Access c условием like"*"&[Par]&"*" из VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток!
Прошу прощения, я не программист, но второй день мучаюсь с проблемой, решения которой, в инете, к сожалению, не нашел...
Есть простой запрос, к таблице, созданный в Access, одно из условий отбора выглядит в конструкторе так: like"*"&[]&"*", ну, что бы можно было отобразить все, при надобности...
Так же, имеется некоторый текст, который сбрасывает результаты выполнения запроса на лист екселя... ну, так надо... Так вот, если в конструкторе просто [], то все работает, а если с Like, то рекордсет возвращается пустой... перепробовал почти все, до чего дотянулся в инете... ничего не выходит... В чем засада? Или, хотя бы, где искать?
sub zapros()
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim rng As Excel.Range
Dim B_date As Date, F_date As Date
Dim qSQL_READ As String
B_date = Cells(x, y).Value
F_date = Cells(x1, y1).Value
B = Range("Z").Value
qSQL_READ = Range("Path_in_DB_Read").Value
cnn.ConnectionString = qSQL_READ: cnn.Open
Set cmd.ActiveConnection = cnn: cmd.CommandText = "[ZAPROS]"
Set rst = cmd.Execute(, Array(Format(B_date, "yyyy.mm.dd"), Format(F_date, "yyyy.mm.dd"), B), adCmdStoredProc)
'MsgBox rst.GetString
Set rng = Worksheets("List").Cells(x, y)
rng.CopyFromRecordset rst
Set cmd = Nothing
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
End Sub

Может, кто сталкивался, или знает как горю помочь?

Решение задачи: «Как выполнить запрос в Access c условием like"*"&[Par]&"*" из VB»

textual
Листинг программы
<font color="teal">"%"</font>+B+<font color="teal">"%"</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.273 из 5
Похожие ответы