Накопительный пакет обновления часовых поясов для операционных систем 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".