Обработка для определения размера таблиц в SQL базе.
Обработка была переделана для 1С:83 из публикации.
Принцип работы аналогичен с публикаций 8.2.
Показывает размер всех таблиц информационной базы в виде таблички
-SQL имя таблицы
-1C имя таблицы
-Назначение
-Строк
-Зарезервировано, mb
-Данные, mb
-Индексы, mb
-Неиспользуется, mb
По умолчанию отсортирована в порядке увеличения размера таблиц, возможна сортировка по наименованиям.
Как это работает:
1.Открываем обработку.
2.Указываем Имя сервера, базы, пользователя и пароль.
Имя сервера в 1с состоит из 2х значений:
2.1. Имя сервера
2.2. Имя Сервере SQL (Если не знаетете, можно запустить SQL Server Management Studio и в диалоговом окне будет указано по умолчанию)
3.Сформировать
Related Posts
Восстановление последовательности документов при закрытии месяца в Бухгалтерия 3.0 не завершается
Заполнение табличных частей
Формирование сводных актов выполненных работ
Ввод поступления в переработку на основании передачи сырья (между организациями)- Конспект по установке сервера 1С на linux
Получение имени компьютера и его IP локально и в терминале
какова актуальность?
атата
а почему не реализована возможность подключаться к SQL серверу посредством Windows авторизации???
(2) DERL, Я не создавал с нуля обработку, мну нужно было ей воспользоваться на платформе 8.3
Только разумнее сортировать по убыванию размера! Чаще волнуют большие таблицы!
Ещё лучше управлять сортировкой динамически…
(4) V.Nikonov, учту
Можете прислать мне обработку для управляемых форм, пожалуйста? Почта krasevE@yandex.ru
(6)
лови
тут немного поудобнее есть
(8)согласен. вот только одно но! он выложил это в 2019 года, а я 2015. есть что-то добавить? и кто у кого скопировал)
(9)мне не важно скопировали код или нет, совершенствуйте обработки я у вас скачивать буду
(9) можете написать ИС и за копипаст просто удалят публикацию.
(8) а комментарии я так понял закрыли, чтобы не писали ссылки на публикации 2000 годов? А вопрос с расширениями я так понимаю тоже не делали?
(10)
нет смысла.
(11)мне это не важно
(12)пусть пишут если Им надо. я написал и выложил. Кому что удобнее — тот пусть и качает
Функция ВернутиРезультатПостроителя(пИсточникДанных,пЗначение,пОтбор,пВидСравнения)
Построитель = Новый ПостроительЗапроса;
Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(пИсточникДанных);
тОтбор = Построитель.Отбор.Добавить(пОтбор);
тОтбор.ВидСравнения = пВидСравнения;
тОтбор.Значение = пЗначение;
тОтбор.Использование = Истина;
Построитель.Выполнить();
Результат=Новый ТаблицаЗначений;
Результат = Построитель.Результат.Выгрузить();
Возврат Результат;
КонецФункции
Процедура ПоказатиТаблицю(пТаб)
П=Новый ПостроительОтчета;
П.ИсточникДанных=Новый ОписаниеИсточникаДанных(пТаб);
П.ЗаполнитьНастройки();
ТабДок=новый ТабличныйДокумент;
П.Вывести(ТабДок);
ТабДок.Показать();
КонецПроцедуры
Процедура ОсновныеДействияФормыСтруктура(Кнопка)
тч.Очистить();
ИмяСервераSQL = «192.0.0.0»;
ПользовательSQL = «admins»;
ПарольSQL = «qwer123»;
Строка=СтрокаСоединенияИнформационнойБазы();
п=Найти(Строка,»Ref=»);
Строка=Сред(Строка,п+5,СтрДлина(Строка)-п-6);
//Сообщить(Строка);
БазаДанныхSQL = Строка;
Соединение = Новый COMОбъект(«ADODB.Connection»);
Команда = Новый COMОбъект(«ADODB.Command»);
Соединение.ConnectionString =
«driver={SQL Server};» +
«server=»+ИмяСервераSQL+»;»+
«uid=»+ПользовательSQL+»;»+
«pwd=»+ПарольSQL+»;»+
«database=»+БазаДанныхSQL+»;»;
Соединение.ConnectionTimeout = 30;
Соединение.CommandTimeout = 600;
//Открытие соединение
Соединение.Open();
Команда.ActiveConnection = Соединение;
ПідключилисьДоSQL=Истина;
Команда = ПолучитьМакет(«Макет»).ПолучитьТекст();
//Сообщить(Команда);
Рез=Соединение.Execute(Команда,,);
Пока НЕ Рез.EOF() Цикл
стр=тч.Добавить();
стр.Таблиця= Рез.Fields(«TableName»).Value();
стр.Розмір = Рез.Fields(«Total_MB»).Value();
Рез.MoveNext();
КонецЦикла;
тч2.Очистить();
ТаблицаБД = ПолучитьСтруктуруХраненияБазыДанных(, Истина);
тч2.Загрузить(ТаблицаБД);
ксть=тч2.Количество()-1;
к=ксть;
Пока к>=0 Цикл
стр=тч2[к];
нс=тч.Найти(стр.ИмяТаблицыХранения);
стр.Розмір=?(нс=Неопределено,0,нс.Розмір);
Если стр.Розмір=0 Тогда
тч2.Удалить(стр);
КонецЕсли;
Состояние(«————————————————————«+ксть+» «+к);
к=к-1;
КонецЦикла;
тч2.Сортировать(«Розмір Убыв»);
КонецПроцедуры
(16)?
1
Это код обратотки
{ВнешнийОтчет.РазмерТаблицВSQLБазе.Форма.ФормаОтчета83.Форма(15)}: Ошибка при вызове метода контекста (Open): Произошла исключительная ситуация (Microsoft OLE DB Provider for SQL Server): [DBNETLIB][ConnectionOpen (Connect()).]SQL Server не существует, или доступ запрещен.
??? верните мани
(20)В смысле? у всех работает у Вас только не работает
(21) почему тогда не работает?!
(22)написал же он Вам:
Server не существует, или доступ запрещен.
(23) не правильно.
сервер существует. через sqlexpress я авторизируюсь sa
(23) мани верните
(25)на почту отправить или голубем?😎😁🤣🤣🤣
(26) у меня качните чтонибудь.
мне вернется.
но ваша обработка у меня не работает.