Доброго времени суток!
Прошу прощения, я не программист, но второй день мучаюсь с проблемой, решения которой, в инете, к сожалению, не нашел...
Есть простой запрос, к таблице, созданный в Access, одно из условий отбора выглядит в конструкторе так: like"*"&[]&"*", ну, что бы можно было отобразить все, при надобности...
Так же, имеется некоторый текст, который сбрасывает результаты выполнения запроса на лист екселя... ну, так надо... Так вот, если в конструкторе просто [], то все работает, а если с Like, то рекордсет возвращается пустой... перепробовал почти все, до чего дотянулся в инете... ничего не выходит... В чем засада? Или, хотя бы, где искать?
<sub>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</sub>

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

Обычный текст... правда, в оригинале, в тексте перечислены все поля, их там много, по этому я заменил их на *... Можно, конечно, все написать на VB, но проблема в том, что в базе присутствует несколько взаимоувязанных запросов... этот основной... база не реляционная... там двойная запись... и, по этому, хотелось бы, через VB, только параметры задавать, поскольку в аксессе все запросы отрабатываются замечательно, а процедуры незатейливы... А если на VB - получется до 6 последовательных, почти идентичных, рекордсетов писать... а в базе - готовые уже результаты в запросах... Выгрузка в ексель - по тому, что результаты, в дальнейшем, обрабатываются пользователями, в привычной, для них, среде, и самым непредсказуемым образом. В смысле - отчетов не напишешься...

Мне, право же, крайне неловко за свои "корявости", но база появилась несколько раньше, чем я начал читать мануалы и хелпы... Сначала был ексель, который макросом построчно, выводил в отчет с соседнего листа данные по ВПР и СУММЕСЛИ, после третьей тысячи строк, стало небыстро... я потратил примерно седан, на изготовление спец.проги у серъезной фирмы, но в результате то, что мне было нужно, то, что я заказывал, то, что понял програмист, и то, что получилось, оказались вещами сильно далекими друг от друга... в филосовском смысле :)
И тогда я узнал слово рекордсет... Кнопочкой в аксессе ексельная табличка бала перетянута в базу, а названия полей там были такие, что аксесс переименовал все сам... и правильно, наверное... При обработке рекордсета, я использовал номера полей, названия меня не занимали...
И, с тех пор, время от времени, я стал узнавать новые слова...
По вопросам:
1. Тип данных в поле 22 и в ячейке переменной - текст. Кроме того, без Like то все работает... и если вместо "value" при определении переменной B, указать "text" картина, не меняется, если даже указать в тексте SUB непосредственно сам текст в которым надо сравнивать поле, то все тоже самое - рекордсет, если в запросе like, возвращается пустой, без like все как положено...
2. Действительно, поле 22 почти никогда не возвращается...
3.

Shocker.ProFinna,

У вас не определена переменная B ( Используйте Option Explicit )

Соответственно, происходят всякие неявные преобразования, поэтому вопрос, чему равно:
Range("Z").Value
и чему равно:
CStr(Range("Z").Value)

(ответ не придумывайте, а возьмите из Immedite Window)
А как определить B - в смысле какая переменная - Variant? Я попробовал - ничего не поменялось...
Я прошу прощения, а как ответ туда положить, в это самое Immedite Window?
Приношу еще раз свои извинения всем. Поверьте - я не тупой, просто не моя, немножко, область... :)

Shocker.Pro,
Если это поможет...
Без like - это когда в конструкторе аксесса, вместо в поле22, просто стоит запрос параметра: .
При явном объявлении переменной - картина не меняется - -все работает, а если - рекордсет пустой... Указывал по всякому: "", " ", Creatent, "Creatent", и в указании переменной, и, непосредственно во множестве параметров - результат один и тот же - -все работает, а если - рекордсет пустой... картина не меняется если явно объявлять параметы в запросе в аксессе, или же не объявлять вовсе... Срого говоря, мне это нужно для того, что бы отработать запрос с указанием параметра - "по всем", то есть, как если бы такой параметр и не запрашивался совсем...
А если набираешь текст рУками в окошке запроса параметра, непосредственно, в аксессе при отработке запроса - все работает с Like "*"&[]&"*" , как положено, даже по неполностью набранному тексту...

про Creatent погорячился - "Creatent" конечно...

Shocker.Pro,
, то есть без like, тексте запроса выглядит так:


B="*" - пробовал - рекордсет пустой, причем и с like и без...

А, вообще, ситуация воспроизводится? А то, может, у меня чего то в консерватории надо поправить? :)

Shocker.Pro, Огромное спасибо!

Нарыл, что этот провайдер попросту не поддерживает like. Совсем... Ну, то есть, никак...
Зато!
Работают все предложенные Shocker.Pro конструкции!
Идеальный, в моем случае вариант:
При этом в запросе, вообще не требуется применения like, текст переменной прекрасно передается в таком виде из VB в обычный, даже и необъявленный параметр запроса, даже и неполностью набранный - то что нужно! И прекрасно отрабатывается! Пустой параметр "по всем", передается тривиально:
так же, замечательно отрабатывается:
Ну, это что бы массив параметров выглядел попроще.

Более того, этому топику не суждено было бы родиться, поставь я при своих "ковыряниях" в ячейку переменной, B, для отработки запроса "по всем" не "*" , а - "%"...

Еще раз немерянная благодарность Shocker.Pro, за поддержку, и за готовность поделиться знанием и опытом!
Снимаю шляпу!