пятница, 28 октября 2011 г.

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

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

вторник, 25 октября 2011 г.

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

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

четверг, 20 октября 2011 г.

— Я узнала, что Гагарин не был на Луне, когда посмотрела Трансформеры-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).

вторник, 18 октября 2011 г.

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

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

Про цирк

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

понедельник, 17 октября 2011 г.

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

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

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

1) Генерация следующего значения:
insert into table1(ID, ...) values (table1_seq.NEXTVAL, ...);
2) Получение текущего значения генератора:
table1_seq.CURRVAL

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

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

суббота, 8 октября 2011 г.

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

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

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

пятница, 7 октября 2011 г.

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

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

среда, 5 октября 2011 г.

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

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

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

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

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

понедельник, 3 октября 2011 г.

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

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

Excel + SQL

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

SQL in Excel

Using SQL in VBA

There are two files available:

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 МБ всего) - тынц. Еще в дропбокс положил.

суббота, 1 октября 2011 г.

Ammyy ver. 2.13

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

Архив