Blog
Pupilla Libertatis
GPS
GPS Grzegorz P. Świderski
92 obserwujących 1231 notek 1459077 odsłon
GPS, 29 grudnia 2009 r.

Po co piszę bloga?

Ja piszę bloga po to, by czytały to potem moje prawnuki. Czyli by nie tylko wiedziały jak pradziadek się nazywał, kiedy się urodził, kiedy umarł i co napisał w życiorysie składanym w jakimś urzędzie, ale by wiedziały co myślał i kim był naprawdę. W większości to, co pozostaje po przodkach, są to jakieś dokumenty urzędowe, a my, Polacy, najczęściej w urzędach kłamiemy, więc te dokumenty nie oddają rzeczywistości.
Drugim powodem pisania przeze mnie bloga jest to, by się w dyskusjach nie powtarzać. Ja lubię polemizować i często używam tych samych argumentów - lepiej jest gdy jakąś kwestię precyzyjniej wyjaśnię i uzasadnię w bardziej szczegółowej notce na blogu, a potem, gdy będzie taka konieczność w dyskusjach i polemikach, będę podawać odnośnik do tej notki.
Ja jestem polemistą, szukam sporów, mam temperament erystyczny, głównie dyskusja powoduje to, że chce mi się coś zrozumieć, napisać lub wyjaśnić. Dyskusje, kontrowersje, polemiki, spory, prowokacje, kłótnie, kontakt z innymi ludźmi, rozmowy - to wszystko powoduje, że chce mi się myśleć.
Janusz Korwin-Mikke zauważył kiedyś, że ludzie jak ich spytać kim są, to najczęściej wymieniają swój zawód - mówią: jestem lekarzem, piwowarem, informatykiem, dziennikarzem, muzykiem itd… - a to jest trochę głupie, bo najczęściej ten zawód wykonują po to by zarobić i wydać pieniądze na to, co najbardziej lubią, a przecież to co najbardziej lubią decyduje o tym kim są, a nie to w jaki sposób na to zarabiają. Ci ludzie najczęściej są filatelistami, podróżnikami, odkrywcami, kolekcjonerami sztuki, artystami, majsterkowiczami, piwoszami itd…
Dlatego ja napisałem w nagłówku swojego bloga kim jestem i zrobiłem w związku z tym kilka notek z tym związanych. A jestem:
To szóste to mój zawód. Nie zrobiłem na ten temat jeszcze żadnej notki. No to nadrabiam ten brak i publikuję przykład mojej działalności zawodowej. Wybrałem mały kawałek, ale tak by był ciekawy i stanowił odrębną całość. Oczywiście niech nikt teraz dalej tego nie czyta, bo to jest dla moich prawnuków, którzy przeczytają to za sto lat. Fajnie by było poczytać co myślał nasz pradziad sto lat temu, nie? I fajnie wiedzieć jak na to zarabiał, by myśleć.
To jest procedura w języku T-SQL, która generuje inną procedurę, która generuje inną procedurę - a wszystko po to by wygenerować skrypt dodający do tabeli dane - po to by utworzyć skrypt instalacyjny jakiejś bazy danych, w którym wypełniamy danymi różne tabele konfiguracyjne. Daleko jej do tego by przedstawiać ją jako jakiś sensowny kawałek kodu do naśladowania - nie ma w tym komentarzy, nie jest całkiem uniwersalne, zostało zrobione na chybcika i bardzo dawno temu. Ta procedura jest bez sensu, takie sprawy fachowo załatwia się inaczej, niemniej działa i myślę, że to wystarczy, by całkowicie zademonstrować mój zawód. Dodatkowo piękno tej procedury leży w tym (a większość informatyków uzna to za kompromitującą wadę), że łatwiej ją napisać od nowa niż zrozumieć.
A wygląda tak:
 
CREATE PROCEDURE [dbo].[generuj_skrypt_wypelniajacy]
       @tabela varchar(50)
AS
BEGIN
       DECLARE pola_cur INSENSITIVE CURSOR
       FOR
             SELECT
                    syscolumns.name AS pole,
                    systypes.name AS typ,
                    syscolumns.length AS dlugosc
             FROM  
                    systypes INNER JOIN
                    syscolumns INNER JOIN
                    sysobjects
                           ON syscolumns.id = sysobjects.id
                           ON systypes.xtype = syscolumns.xtype
             WHERE 
                    systypes.status = 0 AND
                    sysobjects.name = @tabela
       FOR READ ONLY
 
       DECLARE     
             @pole varchar(30),
             @typ varchar(30),
             @dlugosc int,
             @declare varchar(8000),
             @insert varchar(8000),
             @into varchar(8000),
             @values varchar(8000),
             @proc varchar(8000),
             @select varchar(8000),
             @drop varchar(1000),
             @proc1 varchar(50),
             @proc2 varchar(50),
             @first smallint,
             @a char(1)
 
       SELECT @a = char(39)
       SELECT @first = 1
      
       OPEN pola_cur
 
       FETCH NEXT FROM pola_cur INTO @pole, @typ, @dlugosc
 
       WHILE @@FETCH_STATUS = 0
       BEGIN
             IF @pole not in
                   ('Kto_utworzyl','Kto_modyfikowal','Data_utworzenia',
                    'Data_modyfikacji','create_date','Update_date',
                    'Create_by','Update_by')
             BEGIN
                    IF @first = 1
                    BEGIN
                           IF @typ<>'text'
                           BEGIN
                                  select @declare =
                                        ' DECLARE @' + @pole + ' ' + @typ
                                  select @insert =
                                        ' INSERT INTO '+@tabela+' (' +@pole
                                  select @into =
                                        '@' + @pole
                                  select @select = @pole
                                  IF     @typ='char' or @typ = 'varchar' or
                                        @typ = 'datetime'
                                        select @values =
                                               '+@a+rtrim(isnull(convert(varchar(300),
                                               @'+@pole+'),'+@a+'null'+@a+'))+@a'
                                  ELSE
                                        select @values =
                                               '+isnull(convert(varchar(300),@' +
                                               @pole+'),'+@a+'null'+@a+')'
                                  select @first = 0
                           END
                    END ELSE
                    BEGIN
                           IF @typ <> 'text'
                           BEGIN
                                  select @declare = @declare +
                                        ',@' + @pole + ' ' + @typ
                                  select @insert = @insert +
                                        ',' +@pole
                                  select @into = @into +
                                        ',@' + @pole
                                  select @select = @select + ',' + @pole
                                  IF     @typ in('char','varchar','datetime')
                                        select @values = @values +
                                               '+' + @a + ',' + @a +
                                               '+@a+rtrim(isnull(convert(varchar(300),
                                               @'+@pole+'),'+@a+'null'+@a+'))+@a'
                                  ELSE
                                        select @values = @values +
                                               '+' + @a + ',' + @a +
                                               '+isnull(convert(varchar(300),@' +
                                               @pole+'),'+@a+'null'+@a+')'
                           END
                    END
                    IF @typ = 'char' or @typ = 'varchar'
                           select @declare = @declare +
                                  '(' + convert(varchar(4), @dlugosc) + ')'
             END
             FETCH NEXT FROM pola_cur INTO @pole, @typ, @dlugosc
       END
 
       close pola_cur
       DEALLOCATE pola_cur
 
       SELECT @proc1 = 'gen_'+@tabela+ '_1'
       SELECT @proc2 = 'gen_'+@tabela
 
       SELECT @proc= '
             CREATE PROCEDURE '+@proc1+ '
             AS
             BEGIN
                    ' + @declare+'
                    DECLARE      @proc varchar(8000),
                                  @drop varchar(1000),
                                  @a char(1)
                    SELECT @a = char(39)
                    SELECT @proc=' + @a + ' ' +@a +'
                    DECLARE tabela_cur INSENSITIVE CURSOR FOR
                           SELECT '+@select+'
                           FROM '+@tabela+'
                    FOR READ ONLY
                    OPEN tabela_cur
                    FETCH NEXT FROM tabela_cur INTO '+@into+'
                    WHILE @@FETCH_STATUS = 0
                    BEGIN
                           select @proc = @proc +' + @a + @insert + ') VALUES
                                  (' + @a + @values +' +' + @a + ')' + @a +'
                           IF len(@proc)>7500 goto koniec
                           FETCH NEXT FROM tabela_cur INTO ' + @into + '
                    END
                    koniec:
                    SELECT @drop = ('+@a+'
                    if exists (select * from sysobjects where id = object_id('+
                           @a+'+@a+' + @a + @proc2 + @a +'+@a+' + @a + ') and
                           OBJECTPROPERTY(id, ' + @a +'+@a+' + @a + 'IsProcedure'+
                           @a+'+@a+' + @a + ') = 1)
                           drop procedure '+@proc2+ @a + ')
                    EXECUTE (@drop)
                    EXECUTE ('+@a+'CREATE PROCEDURE '+@proc2+ '
                    AS
                    BEGIN '+@a+'+
                    @proc +'+@a+'
                    END'+@a+')
 
                    close tabela_cur
                    deallocate tabela_cur
             END'
 
       SELECT @drop=
             'if exists (select * from sysobjects where id = object_id('+
             @a + @proc1 + @a + ') and
             OBJECTPROPERTY(id, '+@a+'IsProcedure'+@a+') = 1)
             drop procedure '+@proc1
 
       EXEC(@drop)
 
       EXEC(@proc)
 
       EXEC(@proc1)
 
       EXEC(@drop)
 
END
Grzegorz GPS Świderski

Koneczny o UE <- poprzednia notka
następna notka -> Kara śmierci a pomyłka

 

Skomentuj Obserwuj notkę Napisz notkę Zgłoś nadużycie
NEWSY - TOP 5

O mnie

Jestem skrajnie konserwatywnym arcyliberałem, Sarmatą, żeglarzem, paleolibertarianinem, katolikiem, informatykiem, trajkarzem i monarchistą.


Mój e-mail: gps65(szympans)interia.eu

By wyszukać moje notki należy w guglu wpisać słowo kluczowe "gps65" i dowolną frazę dotyczącą kwestii, którą być może kiedyś poruszałem


Zgadzam się na dowolne rozpowszechnianie, publikowanie, kopiowanie, przeinaczanie i wykorzystanie moich notek, ale proszę przy rozpowszechnianiu, czy publikowaniu w innych miejscach, dołączać na końcu link do oryginalnej strony, z której notka została skopiowana.


Proszę nie zamieszczać w komentarzach pod moimi notkami filmów czy obrazków lub długich tekstów przekopiowanych z innych miejsc, bo to niepotrzebnie obciąża stronę. Traktuję to jako spam. Zamiast tego proszę wstawiać odnośniki do źródła informacji. Polecam tworzenie notek blogowych i gdy są na temat to umieszczanie u mnie linków do nich. Zachęcam do dyskusji merytorycznej. Osoby niegrzeczne wypraszam, a jak to nie poskutkuje blokuję.


Ostatnie notki

Obserwowane blogi

Najpopularniejsze notki

Ostatnie komentarze

  • No ale w tym znaczeniu, to państwo polskie to też totalitaryzm. No bo wtrynia się i reguluje...
  • A niech sobie używają. Co mnie to obchodzi? Ja używam zwrotu "za darmo", co znaczy, że ktoś...
  • "To: "nie mordują dzieci po zapłodnieniu" - to dodane bez sensu." Dlaczego? Bez sensu byłoby:...

Tagi

Tematy w dziale