| |
|
|
| | 1 база NOMENKLATURA источник, табл= NOMENKLATURA_TBL
2 база ARM, таблица = COMODITY_TBL
Структуры таблиц один в один.
надо бы перенести данные из NOMENKLATURA_TBL в COMODITY_TBL
после переноса удалить записи с не указанными реквизитами
GLB_con.Execute "DELETE COMODITY_TBL.SHTRIKHKOD, Len([SHTRIKHKOD]) From COMODITY_TBL Where (((COMODITY_TBL.SHTRIKHKOD) Is Null Or (COMODITY_TBL.SHTRIKHKOD) = """")) Or (((Len([SHTRIKHKOD])) < 13)) WITH OWNERACCESS OPTION;"
GLB_con.Execute "DELETE COMODITY_TBL.COMMODITY_NAME From COMODITY_TBL Where (((COMODITY_TBL.Commodity_Name) Is Null Or (COMODITY_TBL.Commodity_Name) = """")) WITH OWNERACCESS OPTION;"
GLB_con.Execute "DELETE COMODITY_TBL.PRICE From COMODITY_TBL Where (((COMODITY_TBL.Price) Is Null)) Or (((COMODITY_TBL.Price) = 0)) WITH OWNERACCESS OPTION;"
GLB_con.Execute "DELETE COMODITY_TBL.METAGE From COMODITY_TBL Where (((COMODITY_TBL.METAGE) Is Null)) Or (((COMODITY_TBL.METAGE) = """")) WITH OWNERACCESS OPTION;"
|
| |
| |
| |
| |
|
|
| | Делаю так удаляю COMODITY_TBL
и создаю таблицу COMODITY_TBL, переносом из базы 1 NOMENKLATURA_TBL,
и начинаю чистку
GLB_con.Execute "DELETE COMODITY_TBL.SHTRIKHKOD, Len([SHTRIKHKOD]) From COMODITY_TBL Where (((COMODITY_TBL.SHTRIKHKOD) Is Null Or (COMODITY_TBL.SHTRIKHKOD) = """")) Or (((Len([SHTRIKHKOD])) < 13)) WITH OWNERACCESS OPTION;"
|
мне в ответ такой таблицы нет 
это потому, что ещё не успело всё обновиться и таблы пока не видно. | |
| |
| |
| |
|
|
| | Пробовал через два рекордсета, тогда очень долго переносятся данные - особливо по сети. | |
| |
| |
|
|
| |
|
|
| |
это потому, что ещё не успело всё обновиться и таблы пока не видно.
|
Попробуй разорвать соединение с базой, а потом восстановить его | |
| |
| |
|
|
