Query is too complex (DBF)

[Alex_Skull]

Есть DBF-файл, структура которого состоит из 119 полей. Он содержит 20 заисей.

Есть код:

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

    Dim cnFile As New ADODB.Connection
    Dim rsFile As New ADODB.Recordset
    Dim i As Integer

    cnFile.Open ("CollatingSequence=ASCII;DefaultDir=C:\TEST;Driver={Microsoft dBase Driver (*.dbf)};DriverId=21;Exclusive=1;FIL=dBase III;FILEDSN=;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Statistics=0;Threads=3;UID=admin;UserCommitSync=Yes;")
    cnFile.CursorLocation = adUseClient
    rsFile.Open "TEST.DBF", cnFile, adOpenForwardOnly, adLockOptimistic

    i = 1000

    Do Until rsFile.EOF
        i = i + 1
        rsFile.Fields(2).Value = i
        rsFile.Update
        rsFile.MoveNext
    Loop


Дык вот при выполнении данного безобразия в строке rsFile.Update вылетает эррор: [Microsoft][ODBC dBase Driver] Query is too complex.

Видимо DBF-ник слишком громоздкий, а этот самый .Update генерит какой-то безумный запрос... Никто не лечил такое?

[Konst_One]

adOpenForwardOnly замени на другой курсор adOpenKeyset

[Алексей К.]

Такая же хрень была при выполнении сложного запроса, вылечился установкой последних Jet sp8 + MDAC 2.8 sp1

[Alex_Skull]

adOpenForwardOnly замени на другой курсор adOpenKeyset

Не помогает

Такая же хрень была при выполнении сложного запроса, вылечился установкой последних Jet sp8 + MDAC 2.8 sp1

Система постоянно обновляется, установлены Jet 4.0 SP3 и MDAC 2.8 SP2.



Видимо придётся SQL-ем самому упдатить...

[Alex_Skull]

Алексей К. Очепяталсо, Jet 4.0 SP8

[Konst_One]

тип поля , которое идет третьим по счету в таблице?

[HandKot]

посмотрите здесь

делайте обновление запросами

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

strSQL="UPDATE TABLE SET Field3 = ??? WHERE ..."
cnFile.Execute strSQL

[Alex_Skull]

И незнаю, чего я тупил:

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

    sqlFile = "SELECT NUMB_P FROM TEST.DBF"
    rsFile.Open sqlFile, cnFile, adOpenForwardOnly, adLockOptimistic


И всё заработало.
Всем спасибо!