Ошибка использования функц. REPLACE через JET

[3ton]

Код: Выделить всё

Dim connDB As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
sql = "select replace('asdasdasd','a','ZZ') as sss from allTovar"
connDB.Provider = "Microsoft.Jet.OLEDB.4.0;"
connDB.Open "c:\db1.mdb", "admin", ""
rs1.Open sql, connDB, adOpenKeyset, adLockOptimistic

Ругается на ошибку синтаксиса в replace('asdasdasd','a','ZZ')

С кавычками - та-же тема. Может кто с таким сталкивался.

P.S. При конструкции replace('asdasdasd';'a';'ZZ') - JET ругается на отсутствующую функцию replace.

[alibek]

А кто тебе сказал, что в ADO есть функция Replace?

[3ton]

А кто тебе сказал, что в ADO есть функция Replace?

Если - бы ее не было, тогда, я так понимаю, JET ругнулся на отсутствующую функцию, а не на ошибку синтаксиса. (ИМХО)

P.S. Если ее нет, тогда как (чем) можно ее заменить?

[GSerg]

Ну, если она там есть, то смею предположить, что у неё два аргумента - что заменять и на что заменять... А где - это, понятно, в каждой записи А ограничение в where прописывается...

[3ton]

[quote="GSerg"]Ну, если она там есть, то смею предположить, что у неё два аргумента - что заменять и на что заменять... [quote]

Жаль, но не пашет...

Может есть альтернатива? Как убрать из строки ненужные символы?

[Leon_]

Добавлю и свои пять копеек..

Язык SQL ядра Microsoft® Jet поддерживает синтаксис скалярных функций, определенный стандартом ODBC:
Функции преобразования строк
ASCII LENGTH RTRIM
CHAR LOCATE SPACE
CONCAT LTRIM SUBSTRING
LCASE RIGHT UCASE
LEFT

Функции преобразования чисел
ABS FLOOR SIN
ATAN LOG SQRT
CEILING POWER TAN
COS RAND MOD
EXP SIGN

Функции даты и времени
CURDATE DAYOFYEAR MONTH
CURTIME YEAR WEEK
NOW HOUR QUARTER
DAYOFMONTH MINUTE MONTHNAME
DAYOFWEEK SECOND DAYNAME

Приложение Access или просто база MDB и клиент на VB?

[Konst_One]

можно на DAO, тогда и REPLACE пойдет

[3ton]

Приложение Access или просто база MDB и клиент на VB?

база MDB и клиент на VB

[Leon_]

Модешь в базе (не на клиенте -- в базе) создать запрос свой, с этим --

"select replace('asdasdasd','a','ZZ') as sss from allTovar"

А из клиента уже вызывать запрос по имени

[3ton]

можно на DAO, тогда и REPLACE пойдет

Попробую, может действительно, что и выйдет

[Leon_]

можно на DAO, тогда и REPLACE пойдет

С этим утверждением не согласен. Ни DAO, ни ADO сами никаких функций над данными не реализуют. Всего лишь передают инструкции провайдеру БД. Если в JET нет REPLACE, то как к нему не обращайся -- DAO или ADO, эта функция не появится.

to 3ton: если вдруг получится, сообщи сюда, мне будет стыдно

[Konst_One]

внутри самой базы MDB в запросе можно указывать любую функцию VBA - все работают. Этот запрос потом можно использовать через DAO

[Leon_]

Да, это так. Функции VBA вроде как "родные" для Access. Поэтому Replace работает, равно как и функции, реализованные пользователем.
Вот и я советую написать нужный запрос в базе, а потом уже вызывать его из клиента.

[3ton]

Да, это так. Функции VBA вроде как "родные" для Access. Поэтому Replace работает, равно как и функции, реализованные пользователем.
Вот и я советую написать нужный запрос в базе, а потом уже вызывать его из клиента.

Создаю в MDB запрос с replace
далее его вызаваю, ... упс...,
Ошибочная инструкция SQL, ожидалось Select, Insert, и т.д.....

Пытался обойти, но там тоже мины

[Leon_]

Код: Выделить всё

SELECT Replace([Country],'Finland','Rusland') AS Country1
FROM aaa

Проверь синтаксис! В MDB работает запрос?

[Konst_One]

Код: Выделить всё

select Replace(Field1,'a','XXX') as Account from Table1


Проверено - работает.
Поле Field1 - текстовое(50 символов) в табличке Table1

[alibek]

Я конечно давненько не работал с Access, но помоему VBA-шные функции в запросах работают только в том случае, когда эти запросы исполняются из среды Access. У него свои особые отношения с Jet, поэтому он их позволяет применять. Но когда запросы выполняются через ADO/DAO, то никакой самодеятельности не допускается.

P.S. Проверить как всегда не на чем, но думается мне, что это так.

[3ton]

Код: Выделить всё

SELECT Replace([Country],'Finland','Rusland') AS Country1
FROM aaa

Проверь синтаксис! В MDB работает запрос?

[code]SELECT replace([code]," ","") AS sss FROM AllTovar;[/code]

В акцессе все пучком, через JET - грабли

[Leon_]

Покажи код, как ты вызываешь запрос Access в VB?

[alibek]

З.Ы. Вопрос на засыпку. Никто не задавался вопросом, как Access умудряется отображать прогресс-бар в ходе выполнения запроса?

[Leon_]

OFF: задавался.. Черт его знает...

[3ton]

Покажи код, как ты вызываешь запрос Access в VB?

Код: Выделить всё

conndb.Open pathMDB, "admin", ""
  rst.Open "test", conndb, adOpenKeyset, adLockOptimistic

2 Alibek - Сорри пока небыло особенной необходимости над этим ломать голову.

[alibek]

Вот и брат говорит, что сила в деньгах. А она в ньютонах!
Я думаю, что либо в Jet есть недокументированные фишки, которые использует Access, либо у Access свой собственный Jet.

[Konst_One]

внутри программы на акцесе все работает, но если из внешней проги выполнять, то не будет работать.

работают только функции типа DATE(), FORMAT(), INSTR() и тп

придется извращаться с функциями INSTR, LEFT, RIGHT

[3ton]

Код: Выделить всё

Dim dba As New DAO.DBEngine
Dim dbb As DAO.Database
Dim rss As DAO.Recordset
Set dbb = dba.OpenDatabase("c:\temp\db1.mdb")
Set rss = dbb.OpenRecordset("test")


Тоже ругается на неизвестную функцию replace

[3ton]

Неужели никак нельзя динамически заменить определенные символы полей на другие. Я сомневаюсь, что никто с такой необходимостью не сталкивался.

[Leon_]

Ну что можно посоветовать -- пиши через ADO инструкции:
.Field("..") = Replace(.Field(".."), "asd", "sf")
.MoveNext
.Update
Коряво, согласен.

[3ton]

Ну что можно посоветовать -- пиши через ADO инструкции:
.Field("..") = Replace(.Field(".."), "asd", "sf")
.MoveNext
.Update
Коряво, согласен.

Функция replace в моем случае играет роль динамически-создаваемого индекса (убирает все ненужные символы, для разных запросов различные) и данные поля сравниваются, опять-же в запросе с ранее подготовленным ключиком, собс-но далее фильтруются по этому критерию (при помощи where).

Например частный случай: есть строки 334-456 34 ; 334 45634 ; 33445634В - в таблице и они имеют одинаковую смысловую нагрузку, но формат их написания различен. Мне надо написать запрос, который выдернет эти все три записи при вводе пользователя любого из этих значений.

[3ton]

P.S. Базу изменять у меня привелегий нет (вообще это не приемлимо)

[3ton]

Есть идея , может есть возможность открыть таблицу акцесса из под какого-нибудь другого провайдера (например как открыть таблицу DBF или XLS из JET), собс-но где провайдер поддерживает функцию replace или аналогичную (Я точно знаю, что провайдер Visual FoxPro эту функцию через ADO поддерживает, но только там она называется strtran, вот только я не знаю как из фоксового провайдера открыть таблицу из mdb)