Блок-схемы

Люблю блок-схемы, обожаю их просто, тем более коллективные, потому что наглядный материал усваивается быстрее. По этой причине буду тащить сюда любые источники инфы по этой тематике. Начну с этого:
LucidChart – Коллективные схемы - расширение для Хрома.

Взаимодействие с ФК (ТФФ), банками (УФЭБС), СМЭВ (ГИС ГМП) и ЕИС

- ТФФ ФК РФ: http://www.roskazna.ru/gis/dokumenty/;
- ТФФ для ООС: http://zakupki.gov.ru/: далее пункт меню Документы -> Регламентные документы;
- УФЭБС: https://cbr.ru/development/Formats/;
- ГИС ГМП: https://roskazna.gov.ru/gis/gosudarstvennaya-informacionnaya-sistema-o-gosudarstvennykh-i-municipalnykh-platezhakh-gis-gmp/;

Путь для батников

Костров МВ (23.12.2011 10:33:32):
Путь НЕкорректный. Двойной слэш должен быть везде, а не только в конце. Вставьте следующую строку:
set JAVA_HOME=C:\\Program Files (x86)\\Java\\jdk1.6.0_01
---
Надо проверить на своих батниках.

Патрон FRAG-12

Сегодня узнал, что патрон 12 калибра (для двуствольного ружья) в военной сфере очень универсальный боеприпас. Самая впечатляющяя его реализация это граната FRAG-12, разработанная для гладкоствольного автоматического ружья AA-12 (ссылка 2). Вот здесь и здесь есть пара картинок, которые раскрывают суть.

Распознавание текстов (OCR)

Онлайн-ресурс, позволяющий распознавать отсканированные тексты
www.free-ocr.com
а-ля FineReader ...

Конвертирование текстов

Онлайн-ресурс, позволяющий конвертировать одни текстовые форматы в другие:
www.online-convert.com

Сохранение текста с веб-страницы (черновик)

1) На странице с нужным текстом, тебе нужно выделить только ту часть, которую ты хочешь сохранить.
2) Затем по выделенной части текста щелкаешь правой кнопкой мыши и в открывшемся меню выбираешь пункт "Копировать".
3) Затем открываешь ворд и там на белом листе щелкаешь правой кнопкой мыши и в открывшемся меню нажимаешь "Вставить".
4) Эти пункты понятны? Если да, то переходим к сохранению на флешку.
5) Хорошо. Далее немного поясню, что даже после того, как мы "вставили" выделенный текст в ворд, он еще, так сказать, не сохранен даже на ноутбук. Чтобы сохранить его, нам нужно выполнить следующее (показываю).
6) Щелкнув по документу правой кнопкой мыши и выбрав пункт "Отправить", а затем выбрав пункт "Съемный диск Е" я скопировал файл на флешку.

Маме.

Версии ODS, переход между версиями InterBase, downgrade

По какой-то причине страница Версии ODS, переход между версиями InterBase, downgrade ценой в миллион на ibase.ru теперь недоступна. Хорошо что есть web.archive.org. Он хранит в себе эту чудо-инфу:
http://wayback.archive.org/web/*/http://ibase.ru/devinfo/prevver.htm

upd: Страничка снова доступна по старому адресу: http://www.ibase.ru/devinfo/prevver.htm

Red Teder

http://otvet.mail.ru/question/56418759/

Торопился

Сегодня бежал безостановочно целых 9 минут. Дыхалка не сбилась, голова кругом не пошла. Понравилось :)

Квест счастья 2

Фоксе (12:22:17 20/12/2011)
http://www.extraparts.ru начинай колымить ремонтом ноутов
запчастями обеспечим

Квест счастья

Дедушка (19:10:26 20/12/2011)
по форуму. кароч чел грит дайте работу буду делиццо. ответ:
Завтра ищешь в интернете книжку Dive into python. Пох если ничего не поймешь. Затем идешь на python.org и изучаешь стандартную библиотеку от корки до корки. Потом зубришь, именно вызубриваешь конвенцию по написанию питоньего кода - PEP8, чтобы от зубов отскакивало. Когда напишешь свою первую гостевуху "за отзыв", по пути изучив верстку на html+css, скачиваешь и изучаешь любой питоний асинхронный вебсервер, рекомендую Tornado или Gevent. Как переделаешь гостевуху, чтобы выдавала по крайней мере 5 тысяч запросов в секунду, можешь идти дальше - тебя ждет увлекательный мир хайлоада. Apache Hadoop, сверхбыстрые асинхронные key-value хранилища, MapReduce. И уже через пол года ты будешь получать такие суммы, что любая баба будет течь при одном упоминании твоей зарплаты.

Стоматит

Лучший способ избавления от стоматита детектед: полоскание раствором РОТОКАН.

На Cyanogenmod 7.1.0.1 при установке обновлений некоторых приложений, например:
Переводчик Google,
Карты Google,
QR Code,
система сообщает об ошибке: "Недостаточно места в памяти устройства".
Временное решение: удалить обновление Маркет, очистить память Маркет, перезагрузить и установить обновления перечисленных программ.

Базы данных

Поближе познакомится с "Knowledge Xpert" и "Benchmark Factory for Databases" от "Quest Software".

Я - эксперт?

Пока что в моей голове этот вопрос звучит, действительно, как вопрос, а не как утверждение. Но это только пока ...

Oracle datafile blocks

Default:
1 datafile contains 4 194 304 blocks (maximum size 32 GB);
1 block contains 8192 byte.

Сессия первая

Физика	отлично
Вычислительные системы, сети и телекоммуникации	отлично
Информационные системы и технологии	отлично
История	хорошо
Математика	хорошо
Основы алгоритмизации	зачет
Правовые основы информационных технологий	зачет
Безопасность жизнедеятельности	зачет
Социология	зачет

Auto Refresher for IE
YRefresher
http://www.xwen.org/index.php?option=com_content&task=blogcategory&id=20&Itemid=40

Синема

Собираюсь рекомендовать сыну:
— "Человек, который изменил все" (2011);
— "Юнайтед" (United) (2011);
— "Социальная сеть" (2011);

Собираюсь посмотреть:
— "Мы - одна команда" (2006);

Oracle - free space in tablespace

Проверка свободного места в табличном пространстве
http://www.orafaq.com/wiki/Tablespace#Check_free.2Fused_space_per_tablespace

Samba

Танцы начались ...
http://smb-conf.ru/3-nastrojka-samba.html
http://smb-conf.ru/absolyutnaya-fajlopomojka.html

Пример 1. Простой Samba-сервер. Доступ всем на все.

Типовой пример конфигурационного файла взят отсюда: http://smb-conf.ru/konfigurirovanie-servera-samba.html

[обмен файлами]
comment = файлообмен
path = "/mnt/allfiles/sharefolder/обмен файлами"
force user = sambauser
force group = users
read only = No
create mask = 0777
directory mask = 0777
guest ok = Yes
security = SHARE

К сожалению, пока что я умею его настраивать только при отключенном SELinux.

P.S. Есть GUI для Samba: system-config-samba

Веб-камера из Android-смартфона

Данную задачу можно выполнить на базе разных программ. Я же для примера взял "Remote Web Desktop".

1. На смартфон установить и запустить программу "Remote Web Desktop";

2. На ПК установить "IP Camera Adapter" (http://ip-webcam.appspot.com)
3. На ПК в настройках видео Skype выбрать камеру "MJPEG Camera";
3.1. В том же окне выбора камеры нажать кнопку "Настройки веб-камеры";
3.2. В открывшемся окне в поле "Camera feed URL" указать ссылку на ресурс веб-камеры, который предоставляет установленная на смартфон программа "Remote Web Desktop" (формат ссылки указан в инструкции к той или иной программе):
http://192.168.1.134:8080/playWebCam.json?size=S

3.3. Нажать кнопку "Autodetect" - в случае успешного подключения драйвер сообщит:
"Successfully recieved image size. Your camera works."

Сохраните изменения, нажав кнопку "ОК".

--- update ---
На версии Skype 5.9.66.114 обращение к камере, настроенной таким образом, вызывает зависание приложения. Альтернативу пока не нашел.

Установка VNC-сервера в CentOS

http://chast.in/howto-install-vnc-server-in-centos.html

Карта Красноярского края и республики Хакасия для Navitel

http://www.24gps.ru/forum/thread376.html

Привет, CentOS!

(Черновик)

Моё знакомство с Linux, можно сказать, началось сегодня.
Узнал о проблемах с раскладкой: http://www.linux.org.ru/forum/desktop/6837139
Некоторые из команд, которые пригодились:

Указание IP-адреса для адаптера eth0: ifcfg eth0 192.168.1.2
Настройки файлов сетевых адаптеров: /etc/sysconfig/network-scripts/ifcfg-eth0. Описание параметров данного файла: http://rus-linux.net/kos.php?name=papers/network-in-RHEL4.html
Указание DNS: /etc/resolv.conf
Текстовый редактор vi (пример: vi /etc/resolv.conf).
Запуск службы SSH: service sshd start.
Установка mc: yum install mc.
Установка Samba: yum install -y samba (ключ -y дает утвердительный ответ на все запросы).
Документация Samba: http://www.samba.org/samba/docs/Samba-Guide.pdf

Первое сообщение от сына

Только что получил первое сообщение от сына через Skype:
[14:12:11] Parasolka: ```````````````1d2t c vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv67

Чистая установка Windows 7 - пошаговое руководство

http://www.oszone.net/10345

История в Skype

Надо разобраться с вопросом: "Как научить Skype сохранять историю диалогов?".

Oracle - the account is locked

Постоянно, забываю, что в ответ на:
ORA-28000: the account is locked
надо сказать:
alter user <username> account unlock;
либо изменить/отключить ограничение на количество неудачных попыток авторизации.

Руками не трогать! Pantech рекламирует смартфон с бесконтактным управлением

Руками не трогать! Pantech рекламирует смартфон с бесконтактным управлением:

Компания Pantech выложила в интернете рекламный ролик смартфона Vega LTE, в котором показано управление устройством жестами на расстоянии:

Большую часть видео демонстрируются различные примеры взаимодействия с техникой при помощи прикосновения. В финале же героиня отвечает на звонок, просто проведя рукой над телефоном. Само устройсво заслуживает отдельного внимания.
Читать дальше →

---

2011 © Droider.ru

Windows 7 + RDP + 256 colors

Отсюда: пынц:
I have found that the value "5" represents ColorDepth 32. From the other settings available, Client Compatible, 8, 15, 16, and 24, I would assume a value of 1 would force 8 bit.

REG ADD "HKLM\SOFTWARE\Policies\Microsoft\Windows NT\Terminal Services" /v ColorDepth /t REG_DWORD /d 1 /f
Ключ указывается на стороне, выступающей в роли сервера сервера. Проверено. Работает даже без перезагрузки.

Накопительный пакет обновления часовых поясов для операционных систем Windows за август 2011 года

http://support.microsoft.com/kb/2570791

Увеличение tablespace в Oracle

На примере tablespace USERS, с автоматическим увеличением файла и начальным размером 1 МБ:
alter tablespace USERS add datafile '<путь к dbf>' size 1 M autoextend on;

Виртаульне сетке псто

Каким образом разделить сетки в VMWare ESXi (для случая, когда на виртуальной машине поднят интернет-шлюз и один из двух сетевых адаптеров):

— Я узнала, что Гагарин не был на Луне, когда посмотрела Трансформеры-3.

[15:38:16] Arowana: у меня тут недавно было разочарование дня
[15:38:25] Arowana: я внезапно узнала, что россия ни разу не прилунялась
[15:38:43] Arowana: я была уверена, что гагарин первый в мире человек, побывавший на луне
[15:38:54] Fox: :O :O :O
[15:39:02] Arowana: а када начала смотреть третьих трансформеров - вышла нестыковочка
[15:39:07] Arowana: и заинтересовалась этим вопросом
[15:39:14] Arowana: офигеть.... блин...
[15:39:14] Fox: викачка сотри это сокрее
[15:39:20] Fox: сотри сотри сотри
[15:39:25] Arowana: нет уж
[15:39:26] Fox: как будто ниче не было
[15:39:36] Arowana: я умею признавать вою безграмотность
[15:39:49] Fox: а с чего ты ваще такое решила?
[15:40:13] Fox: ну почему наш первый луноход был
[15:40:39] Fox: это хорошо ты щас узнала а прикинь бы лоханулась гденить в приличном обществе
[15:40:47] Arowana: ну да, про луноход мне тож рассказали
[15:40:54] Arowana: асче
[15:41:02] Arowana: нада срочно астрономию освежить в памяти
[15:41:10] Fox: откуда в тебе такие заблуждения расскажи. история была в школе?
[15:41:26] Arowana: вот про космонавтов у нас в школе ваще ничего не было
[15:41:29] Fox: планеты перечисли от солнца по порядку без гугла
[15:41:32] Arowana: если бы было - я бы запомнила
[15:41:40] Arowana: по порядку врядли
[15:41:47] Arowana: там только марс верену и землю скажу
[15:41:52] Fox: диса а ты знаешь по порядку?
[15:42:00] Arowana: а дальше наверное нет
[15:42:14] Arowana: плутон помоему самый крайний
[15:42:14] Fox: в каком порядке они? марс венера и земля
[15:42:25] d'Greeze: А знаешь, что больше всего мне нравится в этой ситуации?
То, что ее можно изложить вкратце:
«— Я узнала, что Гагарин не был на Луне, когда посмотрела Трансформеры-3»
))))) я плачу
[15:42:26] Arowana: сатурн через планету от нас вроде
[15:42:46] Arowana: аа, меркурий исчо
[15:43:00] Arowana: (rofl)
[15:43:13] Arowana: так и напиши в баш ;)

Установка Windows XP

Во время установки Windows XP на ноутбук ASUS K42JY появилась ошибка
STOP: 0X0000007B
Помогло переключение SATA Configuration из AHCI в IDE (в BIOS).

Про цирк опять

Arowana: там нет львов
Arowana: там ваще нет животных
Fox: а кто есть
Arowana: люди там только
Arowana: цирк дю солей
Arowana: приезжает снова
Fox: цирк из людей у мну вон на работе каждый день

Про цирк

Arowana: слухайте, я тут смотрю билеты на цирк
Arowana: так интересно
Arowana: четыре дня премьерных показов гораздо дешевле, чем остальной месяц
Arowana: в чом подвох?
Fox: львы еще голодные

Генерим хорошее настроение

— Ща домоюсь и на тусню.

Генераторы в Oracle

1) Генерация следующего значения:

insert into table1(ID, ...) values (table1_seq.NEXTVAL, ...);

2) Получение текущего значения генератора:

table1_seq.CURRVAL

Алькательное псто

Плюсадин в опыт:
Коммуникатор Alcatel One Touch 990 видит Wi-Fi сеть только если в настройках Wi-Fi точки стоит какой-либо канал, номер которого <10.

Вкл/выкл громкость в Windows

Как сделать ярлык, который будет отключать и включать громкость системы в Windows: тоц.

Попутчиков псто

Оля вчера показала на "Ирк.ру" интересный форум "Ищу попутчика"
http://www.irk.ru/traveller/

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

Разочарования псто

Ammyy оказался платным. Не хочется говорить о нем ничего плохого, потому что в нем много хорошего. Но какой-то неприятный осадок ... а ведь я ломал голову, чего там покупать-то надо было?.. А вот и ответ:

Короче, не более 15 часов в течении 30 дней, блджад!

Прохождение квеста "Лицензия на травматическое оружие"

Делюсь опытом (цены на 1 человека):
— обучение в "Байкальский щит" = 1200р (+ 300р, если не хочешь 3 дня к ним ездить за диск с курсом), т.е. приезжаешь, платишь, берешь диск, сваливаешь, приезжаешь через 2 дня, сдаешь тест, выдают бумажку об окончании курсов;
— справка на получение оружия = 175р + 200р (психиатр) + 200р (нарколог). Реально пройти за 1 день (лучше в клинике МВД на Литвинова);
— сейф = от 1440р за простой, до.... до дохуя бесконечности, в общем.

Если нужно еще и ружье для охоты, то:
— охотничий билет = 1 фотография, неделя делов и он готов (бесплатно, бессрочно);

— потом ищешь участкового. Он осматривает сейф, пишет характеристику на тебя. Мчишься со всеми этими бумажками в полицию. Через месяц или менее выдается лицензия.

Примечание: В случае, если приобретаете оружие на двоих (например, приобретаете оружие себе и своей девушке), то нельзя иметь один сейф на двоих. Плюс, если ваша девушка прописана в одном месте, а проживает в другом, то нужно временное разрешение не менее, чем на 5 лет на текущий адрес проживания. __________
NiTRO (10:01:12 5/10/2011)

Беспроводное псто

Наконец-то, узнал, какая разница между беспроводной точкой доступа и wi-fi-маршрутизатором и почему цена на них почти одинаковая (а иногда точка доступа даже дороже). Все дело в цене за компоненты и наборе функций. Например: с помощью двух точек доступа можно объединить две сети (точки умеют делать туннель). Маршрутизаторы такого не умеют.

Excel + SQL

Увидел тему у подруги, решил раскопать методу. Нашел здесь. Архивы положил в дропбокс.

Using SQL in VBA There are two files available: excelsql_dao2.zip demonstration using DAO excelsql_ado2.zip demonstration using ADO The files demonstrates how to use SQL in Excel to: create a database, create a table and add data to it, select data from a table, delete a table, delete a database. 13-Mar-2011 Author's note: The demo files have been updated and both now include a "Run All" procedure as a way of testing the overall functionality. For the DAO file the procedure is BygDao_RunAll and for ADO it's BygAdo_RunAll.You can find them either by inspecting the VBA code, or by clicking on VBA in the sheet, "05_CodeNotes".   Below is a short overview of the file and some of the code.   I have tried to make the code simple so you can follow what I am trying to achieve and consequently I have restricted error checking to a bare minimum. If you choose to use this code in your own application, please remember that more error checking will probably be required.    Where ever possible I have used SQL code because it is widely known and more likely to make sense to anyone who has had database experience and now wants to use Excel as a front-end to an Access back-end. There are two cases, in this demonstration, where SQL code can't be used.   Below are lists of SQL data definition and manipulation commands. Those in BLUE are covered in the workbook.   Data Definition CREATE TABLE CREATE INDEX ALTER TABLE CONSTRAINT DROP  Data Manipulation SELECT SELECT … INTO INSERT INSERT … INTO UPDATE DELETE INNER JOIN LEFT JOIN, RIGHT JOIN PARAMETERS UNION CREATE TABLE The first task is to create a database. I use two routines: "CreateADatabase" to do the donkey work, and "CreateDb" as a cover which can be used anywhere in your code.    (Please note: these examples are from the DAO workbook) Sub CreateDb() '' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * '' Purpose : Cover to create an Access database '' Written : 20-Oct-1999 by Andy Wiggins, BygSoftware.com '' Revised : 11-Nov-2010 by Andy Wiggins, BygSoftware.com '' Dim lStr_Db As String lStr_Db = ThisWorkbook.Path & Application.PathSeparator & gConStr_Db & ".mdb" '' Test for the demo database's existance If Len(Dir(lStr_Db)) > 0 Then '' If the database already exists, we don't need to create it Else '' Otherwise, create it CreateADatabase lStr_Db End If End Sub   Sub CreateADatabase(aStr_DbName As String) '' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * '' Purpose : Create an Access database '' Written : 03-Jul-1997 by Andy Wiggins, BygSoftware.com '' Dim lObj_Dbs As Database Dim lStr_Message As String On Error GoTo ErrorHandler '' See "CreateDatabase Method" in help for available options Set lObj_Dbs = Workspaces(0).CreateDatabase(aStr_DbName, dbLangGeneral, dbVersion30) 'dbVersion20) for Jet v2 Set lObj_Dbs = Nothing Exit Sub ErrorHandler: lStr_Message = "Database creation error" lStr_Message = lStr_Message & _ Chr(10) & _ Chr(10) & "Error Number: " & Err & _ Chr(10) & "Error Description: " & Error() MsgBox lStr_Message, vbInformation, gConStr_Byg End Sub   INSERT This routine does a lot of work. It opens the database so it is ready to receive new data, creates a new table, copies the data from an Excel range into the table, and closes the database. Sub CreateTableAndAddData() '' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * '' Purpose : Create a table from a range on a sheet '' Written : 19-Oct-1999 by Andy Wiggins, BygSoftware.com '' Dim lObj_Dbs As Database Dim lLng_Cols As Long Dim lLng_Rows As Long Dim lLng_Count As Long Dim lLng_RCount As Long Dim lStr_WrapChar As String Dim lStr_Sql As String Dim lStr_Message As String On Error GoTo ErrorHandler ThisWorkbook.Activate '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Open the database Set lObj_Dbs = OpenDatabase(ThisWorkbook.Path & Application.PathSeparator & gConStr_Db) '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Go to the top left corner of the range Application.GoTo reference:=Range("rtlData") ''Get some info about the range With ActiveCell.CurrentRegion lLng_Cols = .Columns.Count lLng_Rows = .Rows.Count End With '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Ensure the target table does not exist - careful, there's no recovery '' if you delete a table that you wanted. '' This users an error-handling routine to check for the table's existance On Error Resume Next lStr_Sql = "" lStr_Sql = lStr_Sql & " DROP TABLE " & gConStr_Sheet lObj_Dbs.Execute lStr_Sql On Error GoTo ErrorHandler '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Create the table '' Go to the top left cell in the current range ActiveCell.CurrentRegion.Cells(1, 1).Select lStr_Sql = "" lStr_Sql = lStr_Sql & " CREATE TABLE " & gConStr_Sheet & " (" '' Loop around each column to create the SQL code '' Column names must not contain spaces With ActiveCell.CurrentRegion For lLng_Count = 1 To lLng_Cols lStr_Sql = lStr_Sql & .Cells(1, lLng_Count) & "x " & fGetCellFormat(.Cells(2, lLng_Count)) If lLng_Count <> lLng_Cols Then lStr_Sql = lStr_Sql & ", " Else lStr_Sql = lStr_Sql & ")" End If Next End With '' This has created the following SQL code ... ''CREATE TABLE DataSource '' (Staff_Nox NUMBER, '' Salaryx CURRENCY, '' Namex TEXT, '' Boolyx BIT, '' Regionx NUMBER, '' Datex DATETIME) ''.. which is exexcuted in the database lObj_Dbs.Execute lStr_Sql '' Note: I have concatenated an "x" to the field name to try '' and avoid reserved word conflicts in Access, e.g., if '' a column was called "Date" '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Insert data into the table With ActiveCell.CurrentRegion For lLng_RCount = 2 To lLng_Rows lStr_Sql = "" lStr_Sql = lStr_Sql & " INSERT INTO " & gConStr_Sheet lStr_Sql = lStr_Sql & " VALUES (" For lLng_Count = 1 To lLng_Cols Select Case fGetCellFormat(.Cells(2, lLng_Count)) Case "TEXT" lStr_WrapChar = """" Case "DATETIME" lStr_WrapChar = "#" Case Else lStr_WrapChar = "" End Select lStr_Sql = lStr_Sql & lStr_WrapChar & .Cells(lLng_RCount, lLng_Count) & lStr_WrapChar If lLng_Count <> lLng_Cols Then lStr_Sql = lStr_Sql & "," Else lStr_Sql = lStr_Sql & ")" End If Next lObj_Dbs.Execute lStr_Sql Next End With '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Close and tidy up lbTidy: lObj_Dbs.Close Set lObj_Dbs = Nothing Exit Sub '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - ErrorHandler: lStr_Message = "Table and data creation error" lStr_Message = lStr_Message & _ Chr(10) & _ Chr(10) & "Error Number: " & Err & _ Chr(10) & "Error Description: " & Error() MsgBox lStr_Message, vbInformation, gConStr_Byg Resume lbTidy End Sub       SELECT Sub SelectAndReturnRecords() '' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * '' Purpose : Select records from a table '' Written : 19-Oct-1999 by Andy Wiggins, BygSoftware.com '' Dim lObj_Dbs As Database Dim lObj_Rs As Recordset Dim lStr_Sql As String Dim lLng_NumberOfRows As Long On Error GoTo ErrorHandler ThisWorkbook.Activate '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Open the database Set lObj_Dbs = OpenDatabase(ThisWorkbook.Path & Application.PathSeparator & gConStr_Db) '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' The Execute method is valid only with action queries. '' Select queries contain a SELECT statement and can return records - action queries do not. lStr_Sql = "" lStr_Sql = lStr_Sql & " SELECT * " lStr_Sql = lStr_Sql & " FROM " & gConStr_Sheet lStr_Sql = lStr_Sql & " WHERE Namex Like 'R*'" Set lObj_Rs = lObj_Dbs.OpenRecordset(lStr_Sql) With ThisWorkbook.Sheets(gConStr_Target) With .Cells(1, 1) .CurrentRegion.Clear '' Copies the contents of a DAO Recordset object onto a worksheet lLng_NumberOfRows = .CopyFromRecordset(lObj_Rs) End With End With '' The number of rows returned, but .. '' MsgBox lLng_NumberOfRows '' .. here's an alternative '' With lObj_Rs '' .MoveFirst ''Ensure we are at the first record before we go into the loop '' .MoveLast ''Access/Jet thing - go here before counting '' fRecordCount = .RecordCount ''Count the number of records '' End With '' - - - - - - - - - - - - - - - - - - - - - - - - - - - - '' Close and tidy up lbTidy: lObj_Dbs.Close Set lObj_Dbs = Nothing Set lObj_Rs = Nothing Exit Sub       Published: 2003 Last edited: 13-Mar-2011 18:43

Консоль восстановления Windows XP

Редки случаи, когда необходима консоль восстановления Windows XP (Windows XP Recovery Console). Устал искать ее на установочных дисках Windows XP. Похоже, все имеющиеся у меня диски ее не имеют, потому что мне так и не удалось увидеть заветный экран:

Вместо него сразу появляется этот:

В итоге, нашел образ только с файлами консоли, без установочных файлов (7 МБ всего) - тынц. Еще в дропбокс положил.

Ammyy ver. 2.13

1. Скачать программу "Ammyy Admin 2" по следующей ссылке:
http://www.ammyy.com/AA_v2.exe
2. Сохраненное приложение запустить, нажать кнопку "Запустить" и сообщить значение из поля "Ваш ID".

Инструменты тестирования

Ознакомиться: TestComplete, Selenium / WebDriver

Маленькая мечта

Кто знает, как убрать кнопку Microsoft Lync с панели задач? Она сводит меня с ума ...

Виртуалне машинке псто

Сегодня опять забыл, где настраивается автоматическое включение/выключение виртуальных машинок. Сделал фото на память:

Неявно выраженная мысль

— Если кому-то что-то, как "раз плюнуть", то еще нужен кто-то, кто должен плюнуть.

Время - не деньги

Макросс

Кажется, этот мультик в дестве в душу запал (потому что не дали его досмотреть толком). Надо поправить дело - бдыщ.

Консольне псто

Parameters

A parameter (or argument) is any value passed into a batch script:

C:> MyScript.cmd January 1234 "Some value"

Parameters may also be passed to a subroutine with CALL:

CALL :my_sub 2468

You can get the value of any parameter using a % followed by it's numerical position on the command line. The first item passed is always %1 the second item is always %2 and so on

%* in a batch script refers to all the arguments (e.g. %1 %2 %3 %4 %5 ...%255)

Filename Parameter Extensions
When a parameter is used to supply a filename then the following extended syntax can be applied:

we are using the variable %1 (but this works for any parameter)

%~f1 Expand %1 to a Fully qualified path name - C:\utils\MyFile.txt

%~d1 Expand %1 to a Drive letter only - C:

%~p1 Expand %1 to a Path only - \utils\

%~n1 Expand %1 to a file Name, or if only a path is present (with no trailing backslash\) - the last folder in that path

%~x1 Expand %1 to a file eXtension only - .txt

%~s1 Change the meaning of f, n and x to reference the Short name (see note below)

%~1 -Expand %1 removing any surrounding quotes (")

%~a1 Display the file attributes of %1

%~t1 Display the date/time of %1

%~z1 Display the file size of %1

%~$PATH:1 Search the PATH environment variable and expand %1 to the fully qualified name of the first match found.

The modifiers above can be combined:

%~dp1 Expand %1 to a drive letter and path only

%~nx2 Expand %2 to a file name and extension only

When writing batch scripts it's a good idea to store these values in a variable SET _LogFile=%~dp1, the rest of the script can then refer to the easy-to-read variable name %_LogFile% This will also make life easier if you later need to change around the order of the parameters.

Note on short file/folder names:
There is a bug involving the ~s option - the displayed output may be wrong if the current directory name is not the same as the short (8.3) name of the directory.
A workaround is to run command.com /c rem which will change the current directory to 8.3, details here.

FOR command parameters

The FOR command creates parameters which are identified with a letter rather than a number. These are easily confused with the parameter modifier letters described above.
Therefore when using FOR it's best to avoid the letters (a, d, f, n, p, s, t, x, z), apart from making code easier to follow, this can avoid problems when running under NT 4 and Windows 2000:

%0 - the Batch Script itself

You can get the pathname of the .CMD script itself with %0

If the script is stored on a network share, it may be accessed directly from the UNC share or via a mapped drive.
You cannot set the current directory to a UNC path but you can refer to other files in the same folder as the batch script by using this syntax:

  CALL %0\..\SecondBatch.cmd

This can even be used in a subroutine, Echo %0 will give the call label but, echo "%~nx0" will give you the filename of the batch script.

When the %0 variable is expanded in Windows XP, the result is enclosed in quotation marks.

Examples:

Pass parameters from one batch to another:

   MyBatch.cmd SMITH 100

Or as part of a CALL :

   CALL MyBatch.cmd SMITH 100

Passing values from one part of a script to another

   :: Using CALL to jump to a subroutine
   CALL :s_staff SMITH 100

   :: Calling a subroutine from a FOR command
   FOR /F %%G IN ('DIR /b *.*') DO call :s_subroutine %%G

"A gift is pure when it is given from the heart to the right person at the right time and at the right place, and when we expect nothing in return" - The Bhagavad Gita

Related:

CALL - Call one batch program from another
CMD - Start a new DOS shell (cmd.exe)
IF - Test that required inputs are in place (not NULL)
FOR - Conditionally perform a command several times
SHIFT - Shift the position of replaceable parameters in a batch file
Equivalent bash command (Linux): dirname - Convert a full pathname to just a path

--
Подсмотрено тут - пыщ.

Структура таблиц Oracle

Структура таблиц Oracle: http://download.oracle.com/docs/cd/B19306_01/server.102/b14237/index.htm

Сохранение фотографий

1. Открыть список альбомов, щелкнув по ссылке http://fotki.yandex.ru/users/denisyaga/albums.
2. Выбрать понравившийся альбом (см. рис.)

3. Щелкнуть на понравившейся фотографии (см.рис.)

4. Щелкнуть по фотографии правой кнопкой мыши и в открывшемся меню выбрать пункт "Сохранить изображение как..." (см.рис.)

5. Открыть папку для сохранения (см.рис.)

6. Сохранить фотографию в указанную папку (см.рис.)

7. При желании можно вернуться назад к списку фотографий текущего альбома, нажав кнопку "Назад":

8. Если же нажать кнопку "Назад" еще раз, то вы попадете на страницу выбора альбомов:

Маме.

Oracle directories

Добавление директории в базу Oracle (например, директории дампов):
CREATE OR REPLACE DIRECTORY backup_dir AS 'c:\ora_backups';
GRANT READ,WRITE ON DIRECTORY backup_dir TO SYSTEM

-- Как-то я забыл выставить привилегии на папку и при ресторе получил ошибку:
ORA-39002: недопустимая операция
ORA-39070: Невозможно открыть файл журнала.
ORA-29283: недопустимая операция с файлом
ORA-06512: на "SYS.UTL_FILE", line 475 ORA-29283: недопустимая операция с файлом

Записи о директориях хранятся в таблице dba_directories.

Аналоги ПО

Бесплатные аналоги платного софта - бдынс.

Бесплатного софта псто

Будет пополняться по мере завершения тестирования той или иной программы.
- Screenshot software GPL "Greenshot" - http://getgreenshot.org/ - принято на вооружение.
- Desktop video recorder "CamStudio" - http://camstudio.org/ - протестировать.

Дефрагментация табличного пространства в Oracle

Необходимо автоматизировать дефрагментацию табличного пространства.

Удаление баннера с рабочего стола, разблокировка Windows

Антивирус Касперского против блокеров.

Открывание двери автомобиля

— Открывание двери автомобиля с помощью теннисного мяча
— Открывание двери автомобиля с помощью деревянного клина и железного прута
— (не совсем про дверь) Отключение сигнализации с помощью мобилки
— Открывание двери автомобиля с помощью резиновой груши, вантуза и электрошокера

Как аккуратно наколоть дрова

Смотрим сюда.

Завершение работы системы без выполнения входа в систему

В окне авторизации "Windows Server 2003" недоступна (не активна) кнопка "Завершение работы..."

Чтобы активировать ее нужно поправить локальную политику:
Конфигурация компьютера > Конфигурация Windows > Параметры безопасности > Локальные политики > Параметры безопасности > Завершение работы: разрешить завершение работы системы без выполнения входа в систему = "Включен"

East Village Studio

http://www.jpda.net/projects/east-village-studio

Компактная мебель

Компания "Resource Furniture"
http://www.youtube.com/watch?v=UrqWPP7y3xE

Главный грузчик

Все в той же песне "Грузчик" (команда КВН "Станция Спортивная" - запись на youtube.com) есть слова:

Знайте, главный грузчик может слова сказать,
После которых каждый захочет поразгружать.

После них мне кажется, что автор лично знаком с Сергеем Шкляр :-)

Грузчик, парень работящий

В песне "Грузчик" (команда КВН "Станция Спортивная" - запись на youtube.com) Оля вместо слов "прет, кладет и тащит" услышала "пьет, крадет и тащит".

А-ху-ен-но

Это ахуенно.


— Чтобы в темноте мимо бабы не промахнуться? (с) Оля.

Процесс не может получить доступ к файлу, так как файл занят другим процессом

На этой странице - http://technet.microsoft.com/ru-ru/sysinternals/bb896653
вверху-справа находится ссылка на загрузку утилиты Process Explorer для Windows. С ее помощью можно узнать какой процесс использует тот или иной файл (см. пример на скрине)


Другой вариант, с помощью утилиты WhoLockMe - http://www.dr-hoiby.com/WhoLockMe/

Игры престолов. Серия 1 (она же 00). Повествование от Снаке

[9:58:50] [Snake]: чювак идет по лесу .. там костер потушен дымица .. подходит ... там на снегу разчлененые тела дядек, тетек, детей ... он ахуел .. решил сьебаца, поворачиваеца, а за спиной на дереве приколоченая палкой через пузо к дереву телка с зашитым ртом, мутно белыми глазами - мертва ))
он ахуел и убежал ... к своим друщьям 2м. ....
говорит там все дохлые ....
друзья не верят ... пайдем посмотрим говорит ...
приходят они на это место ... там никаких трупов нет ...
но, тут хуяк и какой то трупак из неоткуда начинает убивать главного друга.
остальные сьебались ... и бегут по лесу, бегут ... падают и один видит как другому другу отрезает голову та самая мертвая телка которая висела дереве ....
он какулю быстро в штанишу отлажил и побежал ...

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

приехал, дизертир говорит я видел "белых ***" (непомню ) .... , бос говорит ты пидор, ты сбежал, отрубает голову ...

все ... ну чето было еще, я не помню, спал уже)

Антивирусной помощи псто

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

Сегодня рекомендую:
1. AVG - www.freeavg.com

___________________________________________
2. Cure It - www.freedrweb.com

Для загрузки нужно заполнить имя, адрес электронной почты и небольшую анкету, в которой сразу рекомендую в поле
Вы собираетесь скачать Dr.Web CureIt! и использовать ее для
указать значение
лечения своего домашнего компьютера:

___________________________________________
3. Avast! - www.avsoft.ru
Как у Cure It перед загрузкой надо заполнить анкету (думают, что мы без анкет жить не можем)
___________________________________________
4. Ad-Aware - www.lavasoft.com
Помогает избавиться от программ, которые не приносят вреда (как вирусы), но достают всех принудительным показом рекламы.

Моим друзьям.

P.S. Псто периодически обновляется.

Магаданский интернет

[14:09:13] [Snake]: это ахуенный еще пинг

C:\>ping ya.ru

Обмен пакетами с ya.ru [77.88.21.3] с 32 байтами данных:
Ответ от 77.88.21.3: число байт=32 время=567мс TTL=53
Ответ от 77.88.21.3: число байт=32 время=575мс TTL=53
Ответ от 77.88.21.3: число байт=32 время=598мс TTL=53
Ответ от 77.88.21.3: число байт=32 время=577мс TTL=53

Статистика Ping для 77.88.21.3:
Пакетов: отправлено = 4, получено = 4, потеряно = 0
(0% потерь)
Приблизительное время приема-передачи в мс:
Минимальное = 567мсек, Максимальное = 598 мсек, Среднее = 579 мсек

[14:17:57] d'Greeze: В Магадане нет пословицы "Магаданский интернет ночью синхронизируют с основным" ? )

Полноэкранная форма

Невидимое содержимое панели задач (некрасивый вариант, имхо):
//To hide the task bar use
ShowWindow(FindWindow
('Shell_TrayWnd',nil), SW_HIDE);

//To show the task bar use
ShowWindow(FindWindow
('Shell_TrayWnd',nil), SW_SHOWNA);
--

Полноэкранная форма (это гораздо симпотичнее):
BorderStyle := bsNone;
WindowState := wsMaximized;

Задача

— Linux, основы изучить (особенно про часть, где говорится о разных пространствах (то ли адресных, то ли еще каких-то), которая позволит мне на одну ОС поставить несколько СУБД, в том числе Firebird 1.5 и 2.0).

P.S. Попросить Потапа свести меня с тем админом.

Skype full setup

Каждый раз забываю ссылку, по которой можно скачать полноразмерный дистрибутив Skype.
http://www.skype.com/go/getskype-full

Свободное место на диске

Меня больше не заябывает искать, чем же занято место на диске, потому что за меня это делает:
SpaceSniffer, тыц.

Глоза

Волшебные капли, вернувшие мне красотень:
— Офтальмоферон
— Ципромед
— Сульфацил натрия (альбуцид)
— Дексаметазон

Михалевски party

1. Сектор Газа - Лирика
2. No Doubt - Don't speak
3. Оскар - Бег по острию ножа
4. Сектор газа - 30 лет
5. Сектор газа - Life
6. "Здравствуй мама, вот пишу тебе письмо" (в исполнени Кондрата и Ко)
7. "Споем, жиган" (в исполнении Дмитрия и Константина)
8. Оскар - Пятый угол
9. Оскар - Ветер
10. Color of the night
11. Комбинация - Косые дожди
12. ...

Firebird 1.5 и 2.1 на одном сервере

Суть проблемы:
При установке двух версий СУБД Firebird, например:
- Firebird 1.5 и Firebird 2.1 (или выше);
- Firebird 2.0 и Firebird 2.1 (или выше);
сообщения в лог выводятся кривые (например, при бэкап-ресторе).

Пример правильных сообщений:
--restore.log Firebird 1.5 (или 2.0)--
gbak: opened file bo_2.25.11.110_20110310_170500.fbk
gbak: transportable backup -- data in XDR format
gbak: backup file is compressed
gbak: created database localhost/3050:D:\base.fdb, page_size 4096 bytes
gbak: started transaction
gbak: restoring domain RDB$1
gbak: restoring domain RDB$3

Пример неправильных сообщений:
--restore.log Firebird 2.1 (или выше)--
can't format message 12:169 -- message system code -4can't format message 12:100 -- message system code -4.
can't format message 12:169 -- message system code -4can't format message 12:100 -- message system code -4.
can't format message 12:169 -- message system code -4can't format message 12:100 -- message system code -4.

Причина:
В параметре HKLM\Software\Firebird Project\Firebird Server\Instances\DefaultInstance указывается значение одного из установленных СУБД: 'C:\Firebird_1_5'. Поэтому Firebird 2.1 (или выше) при процедуре рестора пытается извлечь сообщения из файла Firebird.msg, который находится в 'DefaultInstance' несоответствующей версии.


Решение:
Удалить строковый параметр HKLM\Software\Firebird Project\Firebird Server\Instances\DefaultInstance

P.S. Путь к ключику для Windows x64:
HKLM\Software\wow6432Node\Firebird Project\Firebird Server\Instances\DefaultInstance

Не открываются ссылки в QIP 2005

Около 3-4 месяцев назад QIP 2005 перестал открывать ссылки. Только сегодня руки дошли погуглить. Ответ нашелся:
qip.exe /urldef

Публичные чаты Skype

Вчера узнал, что в Skype можно создавать публичные чаты. У такого чата есть ссылка, которую удобно передавать нужным людям (впервые подобное увидел в MS Lync), назначать пользователям роли, указывать пароль и т.д.

И снова здравствуй, Ария.

Знакомлюсь с группой "Ария" заново:

Мания величия (1985)
С кем ты? (1986)
Герой асфальта (1987)
Игра с огнём (1989)
Кровь за кровь (1991)
Ночь короче дня (1995)
Генератор зла (1998)
Химера (2001)
Крещение огнём (2003)
Армагеддон (2006)

Себе про Delphi

FuncINI.pas:

function ReadIni(FName, ASection, AString : String) : String;
var
sIniFile: TIniFile;
begin
sIniFile:=TIniFile.Create(FName);
Result:=sIniFile.ReadString(ASection, AString, 'ReadIni_error');
sIniFile.Free;
end;

function ReadIniBool(FName, ASection, AString : String) : Boolean;
var
sIniFile: TIniFile;
begin
sIniFile:=TIniFile.Create(FName);
Result:=sIniFile.ReadBool(ASection, AString, False);
sIniFile.Free;
end;

// Пример использования
daIniFile := 'config.ini';
daLIO := ReadIniBool(ExtractFilePath(paramstr(0))+daIniFile,'Log','LogIsOn');
daLogFileName := ReadIni(ExtractFilePath(paramstr(0))+daIniFile,'Log','LogFileName');

Себе про Delphi

FuncLog.pas:

var daLogFile: TextFile;

procedure InitLog(fname:string; Lio:Boolean);
begin
if Lio then begin
AssignFile(daLogFile,fname);
if FileExists(fname) then Append(daLogFile) else Rewrite(daLogFile);
end;
end;

procedure WriteLog(Str:String; Lio:Boolean);
begin
if Lio Then begin
str:=DateToStr(now)+' '+TimeToStr(now)+' '+str;
Writeln(daLogFile,str);
Flush(daLogFile);
end;
end;

// Пример использования:
InitLog(daLogFileName, daLIO);
Writelog('Application started', daLIO);

Себе про Delphi

● Обработка исключительных ситуаций в Delphi
● Управление ошибками, или обработка исключений в Delphi

Пример использования:
...
try
idpop31.Connect();
// При ошибках подключения отписываемся в логе
except
on daExcepti: Exception do
begin
Writelog('Connection failed:'+#13#10+daExcepti.Message, daLIO);
end;
end;

Звуки шума

Трейлер фильма «Звуки шума» (2010).

Самый странный игровой скриншот

--

Oracle: Кодировка вывода, NLS_LANG

Как же зафакали кракозябры ... Короче, это как-будто письмо себе в будущее:

Дорогой я.
Не знаю, как у вас там в будущем, но у нас тут оракл (10g между прочим) все еще херует кодировку при выводе русского языка (например выводя инфу в SQLplus и RMAN). Боремся мы с этим так:
1. Убеждаемся, что в качестве шрифта вывода в CMD указан шрифт "Lucida Console".
2. В переменых среды должна быть переменная "NLS_LANG" = "RUSSIAN_RUSSIA.RU8PC866".

--
Было
HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\KEY_OraDb10g_home1\NLS_LANG=RUSSIAN_CIS.CL8MSWIN1251. String.

Ссылочная

● Дизайнерские кровати. Больше всего вот эта понравилась (Снаке: нет, не из-за мужика). А дизайнер этой меня пугает.

● Дизайн интерьера квартиры и дома. Особенно понравился раздел "Интерьер минимум" для малогабаритных квартир.
Pocket Wall - загляденье, прям.
Мебель из бетона сама по себе мне не нравится, но фотографии посмотреть стоит, есть просто интересные идеи.
О вечном: самое крутое надгробие, которое я видел - пыщ.

● Стикеры на стены. Отличный вариант для детской.

● Республика детства.

● Окаменелости нового времени или раковина, от которой глаз не отвести.

P.S. На все эти ссылки я наткнулся пока искал название название кроватей, подобных этой:

Но к сожалению, не нашел.

Себе про Oracle

При изучении/знакомстве/работе с Oracle, нужно не забыть, что хоть популярной GUI-оболочкой считается "SQL Navigator", но не стоит забывать про продукты EMS.
http://www.sqlmanager.net

Текущее чтиво

Трилогия Алексея Сергеевича Колентьева "Счастье для всех", книга первая "Жизненное пространство".

СчастливоСпасибоЕщёПожалуйста

Фильм «СчастливоСпасибоЕщёПожалуйста» - любителям Теда Мосби ... и Бурдуковского, конечно :-)

— А что мы ей скажем, если она паршиво поёт?
— Скажем, что она красивая!

— Ты должен много читать, ладно? И никогда не прекращай рисовать, потому что когда много лет спустя я приду на твою выставку без гроша за душой, я попрошу тебя нарисовать что-нибудь на салфетке, потом продам, чтобы обеспечить себе достойную старость, понял?

— А чем ты занимаешься по жизни?
— Я пою.
— Поешь? То есть песни, что ли? :-)
— Да, песни, типа кабаре. А ты чем занимаешься?
— А я пишу.
— Слова? :-)

King's speech must be seen

Фильм "Король говорит" (2011).
Я знаю, сейчас доступно 2 версии: с субтитрами Олега Папулова одна и в двухголосом переводе - вторая. Не поленитесь и посмотрите с субтитрами. Главный герой все равно заикается, так что не бойтесь не поспеть за сабами.

Личные папки Windows XP - копирование на другой компьютер

Чтобы в следующий раз не забыть:

ДубльГИС для Android

Дистрибутив: http://4pda.info/news/20194/
Карты в архиве: http://forum.allnokia.ru/viewtopic.php?t=72081

--- update ---
Наконец-то, информация о мобильной версии появилась на официальном сайте.

Опробовать виртуализацию

На Димкином сервере стоит AMD Phenom II X4 955 с поддержкой AMD-V. Надо как-нибудь проверить производительность своих в.м. (проверить поддержку на m4a88t-m)

Big Bang Secret

I'd like to know who is voicing Howard Wolfowitz's mother?