MS Access ошибка при выполнении запроса

[Penumbra]

есть база MS Access, работаю с ней из под VB6 при выполнении запросов

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

    str = "  delete * FROM EditP"
    rs.Open str, con, adOpenStatic, adLockOptimistic
    str = " INSERT INTO EditP SELECT * FROM  tmpEditP"
    rs.Open str, con, adOpenStatic, adLockOptimistic
    str = "   DROP TABLE  tmpEditP"
    rs.Open str, con, adOpenStatic, adLockOptimistic

происходит повреждение данных таблицы (см вложение), иногда происходит повреждение самой БД
в чем проблема может быть?
структура таблицы tmpEditP идентична EditP

[VBTerminator]

Попробуй после каждого rs.Open выполнять rs.Close.

[Penumbra]

не, не помагает,

[HandKot]

а может вместо

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

rs.Open str, con, adOpenStatic, adLockOptimistic

использовать

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

con.Execute str

Вы же не выбираете данные. а управляете ими и рекордсет не нужен в данном случае

[alibek]

Собственно, во всех трех случаях лучше использовать .Execute.

[Penumbra]

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

       str = "  delete * FROM EditP"
        con.Execute str
     
        str = " INSERT INTO EditP SELECT * FROM  tmpEditP"
        con.Execute str

вызывает туже ошибку

[HandKot]

ну тогда осталось 2 варианта:
1. В tmpEditP уже плохие данные
2. В запросах на втсавку перечислите все поля (insert into table1(filed1, field2,...) select field1, field2, ... from table2), несоотвтествие полей и/или их порядок тоже может вызвать неадекватное поведение