Как выполнить запрос в 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, одно из условий отбора выглядит в конструкторе так: 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д