Неопределенная функция «Заменить» в выражении, заменить альтернативу?

Если вы скачаете и установите

Распространяемый компонент Microsoft Access Database Engine 2010

то вы можете использовать следующее в строке подключения для вашего объекта OleDbConnection...

Provider=Microsoft.ACE.OLEDB.12.0

...и функция Replace() будет доступна для ваших запросов. Например, у меня работает следующий код:

using (var conn = new OleDbConnection())
{
    conn.ConnectionString =
            @"Provider=Microsoft.ACE.OLEDB.12.0;" +
            @"Data Source=C:\__tmp\testData.accdb;";
    conn.Open();
    using (var cmd = new OleDbCommand())
    {
        cmd.Connection = conn;
        cmd.CommandText =
            "UPDATE Table1 SET ProductType = Replace(ProductType, ' ', '')";
        cmd.ExecuteNonQuery();
    }
    conn.Close();
}

Обратите внимание, что вам необходимо загрузить и установить версию ядра базы данных Access с той же «разрядностью», что и ваше приложение .NET: для 32-разрядных приложений требуется 32-разрядная версия ядра базы данных, а для 64-разрядных приложений требуется 64-разрядная версия ядра базы данных. разрядная версия движка базы данных.

У меня была такая же проблема с функцией REPLACE, однако я исправил ее, изменив соединение OleDb на соединение Odbc следующим образом:

Dim dbConn As New System.Data.Odbc.OdbcConnection
dbConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\db_name.accdb;Uid=Admin;Pwd=;"
dbConn.Open()

Dim objCmd As New System.Data.Odbc.OdbcCommand()
With objCmd
    .Connection = dbConn
    .CommandType = CommandType.Text
    .CommandText = "UPDATE table_name SET target_field = Replace(source_field, ' ', '') "
End With
objCmd.ExecuteNonQuery()

dbConn.Close()

Надеюсь, это поможет.

С Уважением

Я прокомментировал это только наконец в своем другом ответе: мой код VBA, к сожалению, не работает с OleDbCommand, но разве это не решение для вас:

1. Поскольку я предполагаю, что у них была такая же проблема, см.: Stackoverflow: Исключение при попытке выполнить «REPLACE» против MS Access => Они обошли это с помощью INSTR / MID... может быть, это могло бы вам помочь?

2. И есть дополнительное решение: см.: Codeguru: замена не работает ...

Вам это помогает?

Привет

Адельфос

Я подозреваю, что проблема в том, что вы используете синтаксис SQL Server вместо синтаксиса MS Access. Я думаю, что это версия MS Access:

SELECT TOP 15 HOOFDGROEP.HOOFDGROEP, SUBGROEP.SUBGROEP, Artikels.*
FROM (Artikels LEFT JOIN
      HOOFDGROEP
      ON Artikels.HOOFDGROEPID = HOOFDGROEP.ID) LEFT JOIN
     SUBGROEP
     ON Artikels.SUBGROEPID = SUBGROEP.ID
WHERE REPLACE(ArtikelNaam, " ", "") LIKE  "*" & @ArtikelNaam & "*";

REPLACE() является функцией MS Access, но, возможно, не распознает ее из-за проблем с кавычками.

Если вы можете поместить код VBA в модуль доступа, вы можете использовать этот код в Access VBA для замены строки другой строкой вместо использования встроенной функции доступа Replace:

Public Function TransformString(ByVal ToTransformStr As String, ByVal ReplaceStr As String, ByVal ToReplaceStr As String) As String
  Dim i As Long, sTmpString As String

  sTmpString = ""
  For i = 1 To Len(ToTransformStr)
    If Mid$(ToTransformStr, i, Len(ReplaceStr)) = ReplaceStr Then
      sTmpString = sTmpString & ToReplaceStr
      If Len(ReplaceStr) > 1 Then
        i = i + Len(ReplaceStr) - 1
      End If
    Else
      sTmpString = sTmpString & Mid$(ToTransformStr, i, 1)
    End If
  Next i

  TransformString = sTmpString

End Function

Протестируйте этот код с помощью:

Sub test()

Dim test As String

test = TransformString(" xyzABC ABCxyz ", " ", "")

End Sub

Это то же самое, что:

test = Replace(" xyzABC ABCxyz ", " ", "")

Результат в обоих случаях:

"xyzABCABCxyz"

И тогда это должно работать (с дополнительным экранированием "как \"):

const string strSql = "SELECT TOP 15 HOOFDGROEP.HOOFDGROEP, SUBGROEP.SUBGROEP, Artikels.*" +
                              " FROM (Artikels LEFT JOIN HOOFDGROEP ON Artikels.HOOFDGROEPID = HOOFDGROEP.ID)" +
                              " LEFT JOIN SUBGROEP ON Artikels.SUBGROEPID = SUBGROEP.ID WHERE TransformString(ArtikelNaam, \" \", \"\") LIKE  '%' + @ArtikelNaam + '%'";

Привет,

Адельфос

По моему опыту, я думаю, что ответ Горда Томпсона правильный. У меня был установлен Microsoft Access Database Engine 2007 (есть только 32-разрядная версия) и 64-разрядный распространяемый компонент Microsoft Access Database Engine 2010. Когда я опубликовал свое приложение .net Click Once в 32-битной версии, у меня возникла ошибка, когда я опубликовал ее в 64-битной версии, все прошло хорошо. Я попытался продолжить, удалил Microsoft Access Database Engine 2007 (есть только 32-разрядная версия) и 64-разрядный распространяемый компонент Microsoft Access Database Engine 2010, установил 32-разрядную версию Microsoft Получите доступ к Database Engine 2010 Redistributable, а затем снова опубликуйте мое приложение в 32-разрядной версии, все было в порядке.