Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: VB

Программирование VB

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум (новые сообщения вниз) Структурный форум

тема: Посоветуйте как сделать лучшее
 
 автор: час   (12.05.2009 в 11:24)   личное сообщение
 
   to: Мюллер   (12.05.2009 в 10:27)
 

попробываю

Да - так намного лучше
Спасибо

  Ответить  
 
 автор: Мюллер   (12.05.2009 в 10:27)   личное сообщение
 
   to: час   (12.05.2009 в 08:58)
 


это потому, что ещё не успело всё обновиться и таблы пока не видно.




Попробуй разорвать соединение с базой, а потом восстановить его

  Ответить  
 
 автор: час   (12.05.2009 в 09:04)   личное сообщение
 
   to: час   (12.05.2009 в 09:00)
 

как быть????????

  Ответить  
 
 автор: час   (12.05.2009 в 09:00)   личное сообщение
 
   to: час   (12.05.2009 в 08:58)
 

Пробовал через два рекордсета, тогда очень долго переносятся данные - особливо по сети.

  Ответить  
 
 автор: час   (12.05.2009 в 08:58)   личное сообщение
 
   to: час   (12.05.2009 в 08:54)
 

Делаю так удаляю 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;" 


мне в ответ такой таблицы нет

это потому, что ещё не успело всё обновиться и таблы пока не видно.

  Ответить  
 
 автор: час   (12.05.2009 в 08:54)   личное сообщение
 
 

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;"

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList