Всем, привет, подскажите пож. Ситуация следующая, при помощи кривой обработки, справочник цен забился по полной катушке, т.е. по одному и тому же типу цен, может быть от 1 до 10 записей, вопрос как можно удалить по шурику все эти записи, сейчас пытаюсь удалить его стандартными средствами, через выборку и элементов и последующем Спр.Удалить(1), но уж больно долгий процесс получается, может знает кто-нибудь более быстрый вариант?

(0) Тебе вообще весь? Напрочь? Грохни таблицу целиком.

+(1) Хотя стоп. Цены - у них периодические реквизиты есть?

(2) ессно. если грохнуть только таблицу справочника, то константы то останутся...

Тогда почистить константы - а потом грохнуть таблицу. Используя или 1С++, если есть. Или ADO, если нет 1С++.

Весь, напрочь, просто один умник через одно место обработку написал, по записи цен, в итоге такая х..., творится в справочнике цен, решил все грохнуть,а цены записывать при проведении поступления ТМЦ

Не с 1С++ не с ADO дело не  когда не имел. есть еще вариант, а то пока разбираться буду, еще больше времени пройдет

(5) Так 1С++ имеется или нет?

(6) Там особо разбираться не надо. Посмотри в 1Cv7.DD, какая таблица соответствует справочнику цен.

(8) это таблица констант, т.к. цена периодический реквизит

ну с 1Cv7.DD это все понятно, что дальше то делать?

(9) Ему нужны обе таблицы.

(10) База DBF или SQL?

DBF

Не совсем в тему канеш...
При интерактивной пометке на удаление элемента справочника владельца, база задает вопрос: "пометить на удаление подчиненные справочники?" - отвечаешь "да". Потом снимаешь пометку на удаление с владельца и на вопрос "снять пометку с подчиненных" отвечаешь "нет".
У тебя кстати не один владелец всех этих цен?

неа, разные

прошло минут 15 еще даже 1 % не удалился

(13) Это хуже. Установи драйвер для Visual FoxPro - например, отсюда: http://www.onlinedisk.ru/file/776979/

и что дальше?

(5) закеж код, который создавал неправильные цены, может там что интересного.
А новые цены сколько времени создавались? Почему нельзя столько же потратить на их удаление.

Потом
СтрокаСоединения = "Provider=VFPOLEDB.1;Deleted=Yes;Data Source="+КаталогИБ()+";Mode=ReadWrite;Extended Properties='';User ID='';Password="";Mask Password=False;Collating Sequence=MACHINE;DSN=''";
Соединение = СоздатьОбъект("ADODB.Connection");
Соединение.Open(СтрокаСоединения,,,);

Дурацкий вопрос: ты хоть монопольно в базе?

(19) Ну как тебе сказать, видимо потому-что база с апреля месяца и каждый день после прихода товара, создавались новые записи, причем из разговора с людьми, которые пользуются базой, записывались данные не только по товару из приходу. но и по другому товару

(21) в базе монопольно

(20) а дальше?
Я так понимаю User ID='' это имя пользователя в базе, так?

(24) Нет. Там пустая строка. Дальше
ТекстЗапроса =
"DELETE [1SCONST]
|FROM [1SCONST] Constants
|    INNER JOIN SCНомерСправочникаЦен Prices
|    ON Prices.ID=Constants.OBJID
|";
Соединение.Execute(ТекстЗапроса,,);

(25) енто все?

+(25) НомерСправочникаЦен - это цифирь такая, которую в 1Cv7.DD посмотришь.
Ну и затем
ТекстЗапроса = "DELETE FROM SCНомерСправочникаЦен";
Соединение.Execute(ТекстЗапроса,,);

жесть, понял, спасибо, сейчас попробую

(26) Вот теперь всё.
Только тренируйся на копии базы сначала.

И кто-нибудь из знающий - гляньте мой код, где-то мог и очепятаться, и описаться (ударение по выбору).

del *.dbf
??

(29) ну про копию это понятно, но вот этим "И кто-нибудь из знающий - гляньте мой код, где-то мог и очепятаться, и описаться (ударение по выбору)." сразу настроение поднял, какие последствия могут быть?

что за конфа?

типовая торговля и склад

(31) Никаких. Я мог ошибиться в строке соединения - тогда просто не подконнектишься к базе.
Мог ошибиться в запросе на очистку таблицы констант - тогда удалишь пару-тройку реквизитов у других справочников :-)
Но я сейчас ещё разок этот код гляну сам.

Соединение.Open(СтрокаСоединения,,,);
{C:\USERS\SHEGY\DESKTOP\УДАЛИТЬ ЧЕРЕЗ ADO.ERT(6)}: ADODB.Connection: Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом.

чувствуется мне, что все проблемы кроются в нелицензионной винде

(36) это сейчас к чему?

(22) по идее можно из майского бекапа взять файл  const.dbf (или как он там называется) + файл справочника цен и их подменить в рабочей базе.
Но так ты грохнешь все периодические реквизиты и константы с мая. Так что лучше не делать.

(35) Строка соединения - именно такая, как в (20)?

ну да, не чего не менял

а то что я монопольно в базе, это не играет роли?

(40) Попробуй так:
СтрокаСоединения = "Provider=VFPOLEDB.1;Null=Yes;Exclusive=No;Data Source="+КаталогИБ()+";Mode=ReadWrite;Extended Properties="""";User ID="""";Password="""";Mask Password=False;Collating Sequence=MACHINE;DSN="""";"

(41) Ну и как к тебе подключаться-то, если ты - монопольно в базе?

(41) играет, надо не монопольно. Т.к. ты пытаешься еще раз подключиться к базе, но уже через ФоксПро провайдера.

ну ладно, все понял, исправлюсь
(42) сейчас попробую

Вроде как поперло, о результатах сообщу

Rie - может где есть в сети справочка по ADO

и последний вроде как вопрос, а на сколько долго обработка будет таблицы грохать?

(46) Есть, конечно же. На msdn.microsoft.com и на www.w3schools.com посмотри.

(47) Почти мгновенно.

(47) И ещё посмотри насчёт 1SCONST (погугли, к примеру). Что-то нет у меня уверенности, что соединения по OBJID достаточно.

(0) delete from 1sconst where id = $ИсторияРеквизита.Цены.Цена
   delete from $Справочник.Цены

Все всем спасибо, все грохнул, сейчас буду пробовать проводить документы, дабы встало все по человеческий

+(50) И на самом деле правильно гложет - там должен ещё ID реквизита участвовать.

+51 потом упаковать таблички

чейт в обще не чего, не понял

(52) См. (51). Это правильно, а (25) - нет.

+(56) $ИсточнияРеквизита.Цены.Цена - это из 1С++, в ADO нужно ставить сам ID реквизита.

(46) Вопрос по прямому запросу
http://www.1cpp.ru/forum/YaBB.pl?num=1148874473
там и про Адо тоже были примеры, вроде.

Т.е. получается должно быть так:

ТекстЗапроса = "DELETE FROM 1SCONST Constants where id = $ИсторияРеквизита.Цены.Цена";
Соединение.Execute(ТекстЗапроса,,);

Только не пойму от куда брать $ИсторияРеквизита.Цены.Цена???

а блин, так это и надо так писать?

Народ где взять этот ID?

(61) В 1Cv7.MD

эээ, в смысле, просто написать $Справочник.Цены.Цена ???

+(62) Лучше скачай 1С++ c www.1cpp.ru
Драйвер у тебя уже стоит, так что добавишь одну dll - и наступит счастье.

а без 1с++ в обще не как не получится?

(63) Нет.
Если у тебя стоит что-то, умеющее читать составной документ (например, Far с плагином), то залезаешь им в 1Cv7.MD и смотришь.

(65) У тебя Торговля - совсем-совсем типовая?

ну практический

скачал я 1с++, куда его засунуть в каталог с базой или в BIN?

+(66) Или ещё проще - создай пустую базу с тем же MD, убери в этой пустой базе признак периодического реквизита с Цена и посмотри в DD его ID. Вроде как должен совпадать.
(69) В BIN

эксперименты с мд, это пипец, лучше подскажите как при помощи 1с++ сделать все это дело, подключаться так же? Текст запроса какой писать?

(70) Если используешь 1C++, то
Соединение = СоздатьОбъект("OLEDBData");
Соединение.Соединение(СтрокаСоединения);
Запрос = Соединение.СоздатьКоманду();
Запрос.Выполнить(ТекстЗапроса);

Тексты запросов - в (51).

+(72) 1С++ - это внешняя компонента.

+(73) То есть, надо
ЗагрузитьВнешнююКомпоненту("1cpp.dll");
перед тем, как.

delete from 1sconst where id = $ИсторияРеквизита.Цены.Цена
delete from $Справочник.Цены
а это 2 разных запроса или один, можно увидеть как он должен быть, а то ну совсем не в теме, как это работает, будет время обязательно изучу

Сколько миллионов записей в справочнике Цены?

(75) Два разных.
Сначала первый, потом - второй.
После выполнения первого у тебя все цены будут с пустыми значениями.

Всем спасибо, все получилось