弱者に優しくない会社は無くなるだろうか？。

2016.03.08

Logging

弱者に優しくない会社は無くなるだろうと言う事を聞いたことがある。
SNSなどの普及に伴い、誰でも情報を発信できるようになってきている。
ある意味、弱者の反撃みたいなものがいろいろな所で起きているような気がします。
昔は会社でなぁなぁで済ませてきたことが済ませなくなってきているようにも思えます。
健全な社会であれば良いのかという疑問を自分は持っています。いま何もかも正しいことが正義という風潮に
なってきているけど、本当は白黒付けずにグレーぐらいが良いんじゃないかなと思う所があります。
何もかもアメリカよりになってきている世の中、いまの社会がこのまま、うまく行く（経済成長する）とは
自分はどうも思えないのです。
何処かに歪みができて、その歪が大きくなり亀裂になってしまうように思えてなりません。
日本に合わないものを無理して受け入れても最終的には駄目だったという様になるのではないでしょうか？
派遣が良い例で、結局、日本では非正規社員より正社員が良いという事になり政府も派遣から正社員雇用を推し進めているわけですから・・・。
要するになぁなぁ具合の方が日本には合ってるのでは無いかと自分は思います。
日本語は曖昧な表現が多いことからも言えます。
 

タグ

2, 5, com, GOrw, https, ozg-B, SNS, watch, www, youtube, アメリカ, いま, いろいろ, グレー, こと, このまま, もの, 世, 中, 亀裂, 事, 会社, 何もかも, 何処か, 健全, 反撃, 弱者, 情報, 意味, 成長, 所, 日本, 昔, 普及, 本当, 正義, 歪, 気, 無理, 疑問, 発信, 白黒, 社会, 経済, 自分, 誰, 風潮, 駄目,

PS3とかPS4を液晶ディスプレイに繋げれば出力されるじゃないか

2016.01.18

Logging

https://vine.co/v/iOt3tDOYtqw

PS3とかPS4を液晶ディスプレイに繋げれば出力されるじゃないか？と思いつき、HDMI端子のある液晶ディスプレイに繋いだところ表示できました。音声内蔵のHDMIディスプレイが、必要。もしくは音声出力は外部スピーカーへ出力するHDMI液晶ディスプレイなら表示は可能なようです。実際、何が得か？？テレビが必要ないということです。例えば、PS4を繋いでいる状態でネット共有の出来るブルーレイレコーダーがあれば録画した映像は見えるようになりライブ映像が視聴可能なレコーダーであればPS4とレコーダーの電源をONにしていればテレビに繋がなくとも視聴が可能なります。よって、テレビが無い環境でもブルーレイレコーダーと液晶ディスプレイとPS4などを揃えればTV＆ゲームが視聴できる環境が整います。ちなみに、ブルーレイレコーダーと液晶ディスプレイがあれば、テレビは必要ないという事も言えます。ただし、画質はテレビよりは良くないと思います。ちなみにHDMI端子のない液晶ディスプレイにHDMIからDMIへ変換する端子で取り付けても映像は出力されますが、音声は出力されません。あくまでも、HDMI端子のある液晶ディスプレイの話です。

追記2021年：今では当たり前の話になりましたね。因みにPS4からゲーム中継などが出来るようになっていますよね、時代流れは進む一方です。

タグ

３, 4, HDMI, ON, PS, TV, いま, ゲーム, こと, スピーカー, ディスプレイ, テレビ, ところ, ネット, ブルーレイ, ライブ, レコーダー, 事, 何, 共有, 内蔵, 出力, 可能, 外部, 実際, 得, 必要, 思, 映像, 液晶, 状態, 環境, 画質, 端子, 表示, 視聴, 録画, 電源, 音声,

Raspberry Pi 2を使った自作IoT体験キットが玄人志向から売られてた。

2016.01.12

Logging

Raspberry Pi 2を使った自作IoT体験キットが玄人志向から売られてた。
このRaspberry Pi 2（ラズベリーパイ）ですがLinuxの雑誌には大体、登場しています。
去年辺りから火がついてきた品物ですがこれを使っていろいろな事ができるです。簡単にいえば昔のポケコンのLinuxバージョンだと思っていただけるとわかりやすいと思います。
Raspberry Pi 2からWindows10もサポートされているみたいですが、動作しないとかBBSに書き込まれています。
実際、キワモノの商品なので玄人志向の方々にしか使用が難しいのかも？Iot＝モノインターネットのがじわじわと侵食してきています。
でも、いまのところ流行というよりはじわじわと試行錯誤しながら、新しい家電製品などに組み込まれているIot、そんなIotを格安で楽しめちゃうのが、Raspberry Pi 2という認識でいる自分。
実際、温度計センサーとRaspberry Pi 2を結びつけて、ある温度になると暑いとつぶやき事も可能です、他にもカメラと結びつけることも可能ですし、使いみちはいろいろとあると思います。
自分もちょっと興味ありです。
http://www.kuroutoshikou.com/product/others/others_iot/kuro-iotexp_kit/

タグ

10, 2, BBS, IoT, Linux, Pi, Raspberry, Windows, いま, いろいろ, インターネット, キット, キワ, これ, サポート, センサー, ところ, バージョン, はい, ポケコン, もの, ラズベリー, 事, 体験, 使用, 侵食, 動作, 去年, 品物, 商品, 大体, 実際, 家電, 志向, 方々, 昔, 格安, 流行, 温度計, 火, 玄人, 登場, 簡単, 自作, 自分, 製品, 試行錯誤, 認識, 雑誌,

この頃、記憶力が鈍化している。

2015.10.30

Logging

この頃、記憶力が鈍化している気がする・・・。前はメモをとらないで覚えていたことはたくさんあったのだけど
この頃、あまり興味のない出来事などはスカッと抜けて落ちているような気がする。
これは今に始まったことではないけれど、記憶が曖昧で結局メモをみると自分が覚えていたことが正しかったのだと
思える事が多い。｛｛ちなみに、この頃ではASKの質問で同じような質問があったので調べてみるとやはり同じ質問があったと言う感じです。｝｝
この頃続きで、いまAndroid開発の勉強をしている。勉強をしていて思ったことは習うより慣れろだと言うこと。
そして、ある程度、分かっている人なら習ったほうが身につくということである。仕事でもそうだけどOJTがある職場が正しいのではないかと自分は思うようになった。中小企業は即戦力を求めているのでOJTがある方が珍しい。
逆に言えばOJTがあれば中小企業でも人材が育ち会社もプラスになることが多いような気がする。どこに力を注ぐかだと自分は思います。ただ、人材が育つには時間がかかるので体力的に中小企業は人材を育てることをしないのだとも思います。
よくある中小企業がやりがちな人材育成は出来ないような仕事をふっかけてくるという事です。
出来ないような仕事をふっかける、出来なかったらその人は辞めざる負えなくという様に持っていく。
出来たら君は優秀だ、よくやったと労う。
これでは人は育たないし良い環境は築けないと自分は思いますが、殆どの中小企業はこの主体で生きている。
どうしてそうするか？
会社が潰れると元も子もないという話だからです。
なので会社が悪いわけでもない。

経営って難しいような気がします。
人は思ったように動きませんからね・・・・。
?

タグ

Android, ask, OJT, いま, こと, これ, たくさん, どこ, メモ, 中小企業, 事, 人, 人材, 今, 仕事, 出来事, 前, 力, 勉強, 即戦力, 感じ, 方, 曖昧, 気, 職場, 自分, 興味, 記憶, 記憶力, 質問, 身, 逆, 鈍化, 開発, 頃,

基本情報技術者試験を受けることにしました。

2015.10.26

Logging

来年の春に基本情報技術者試験を受けることにしました。それと同時に今年度の基本情報技術者試験の問題を解説していこうと思います。丁寧な解説ではないですが自分の勉強のためにも毎日、2問ずつつ問いを問いていくつもりです。基本情報技術者試験のまずは今年度、秋期から解いていきます。尚、掲載開始日は11月1日からです。ちなみに自慢ですが？今の今までロクに基本情報技術者試験の勉強をしたことがありません、一応、ITパスポート持ってます。基本情報技術者はニアミスぐらいまでの点数は何度か経験しましたが勉強不足のため、試験は受かってません。
そして、ここ数年、試験会場に足を運んでいないのでブランクが有りますが、来年こそは受かりたいので今から頑張ります。合格率は20％?30％の狭き門ですが受かれば自分にとっては悲願の合格になります。基本的に来年の4月まで基本情報技術者試験ネタが多くなると思いますがご了承ください。尚、映画ネタや本ネタはいままで通り、掲載していくつもりでいます。
追記：問題を解いていくつもりでいましたがどうも試験問題掲載が著作権問題にひっかかるようなので掲載を控えます。引用でもNGポッいIPAの承諾なしでは掲載できないポッい。

基本情報技術者過去問道場
https://www.fe-siken.com/fekakomon.php
追記2021年：基本情報の午前の攻略法は過去問を解きまくるです。午後は攻略法は概念を理解せよ、そして解きながら文章を読めです。

タグ

１, 11, 2, 20, 30, 4, IT, いま, ここ, こと, ご了承, それ, ため, つもり, ニアミス, ネタ, パスポート, ブランク, 丁寧, 今, 今年度, 会場, 何度か, 勉強, 合格, 問題, 基本, 悲願, 情報, 技術者, 掲載, 数, 映画, 春, 本, 来年, 毎日, 点数, 狭き門, 秋期, 経験, 自分, 自慢, 解説, 試験, 足, 開始,

映画、バクマンを観てきましので感想を。 #映画レビュー ＃バクマン

2015.10.03

Logging

映画、バクマンを観てきましので感想を残しときます。
週刊少年ジャンプに連載されていたバクマンの実写化した映画、「バクマン」ですが
何ていうか、見ていて良い意味で漫画好き（ヲタク）には受けが良さそうな気がしましたが。
若干、ヒロイン役とのやり取りや演じ方などが「う?ん」ってなりつつもコレはコレで成立している感じかなと…。
この映画「バクマン」は全然NGかOKかに別れる気がします。
おそらくツマンナイと思う人も中に入ると思いますが映像は斬新でインパクトが有りそれだけでも見る価値ありかなと思います。自分としては、ヒロイン役の小松菜奈さんがでていた時の演出（映像）はそれまでの展開とのギャップがあり過ぎて若干、拒絶感がありました。
この映画は漫画好き、漫画の世界が知りたいという方にはオススメできる映画だと思います。
追記：映画の中で登場する漫画、「Wアース」と「この世は金と知恵」はいまの社会を物語っているなと感じました。
少年ジャンプから「友情＋努力＋…」の時代は消えつつあるのかなと感じる印象の受けましたが、夢のある「ワンピース」などは未だに根強い人気ですし、みんなそういうモノを買っているだなと思いました(ﾟ∀ﾟ)。
ターゲット層はバクマン好きだった若者たち！！
————————
少年ジャンプの宣伝(´∀｀*)ﾎﾟｯい
|彡ｻｯ

タグ

NG, OK, アース, いま, インパクト, おすすめ, ギャップ, この世, コレ, ジャンプ, それだけ, それまで, バクマン, ヒロイン, やり取り, レビュー, ヲタク, 世界, 中, 人, 価値, 実写, 小松菜奈, 少年, 展開, 意味, 感, 感じ, 感想, 成立, 拒絶, 斬新, 方, 映像, 映画, 時, 気, 演出, 漫画, 登場, 知恵, 社会, 自分, 若干, 追記, 連載, 週刊少年ジャンプ, 金,

cronPHPを作ってみた朝の続き。

2015.06.24

Logging

 
cronPHPを作ってみた朝の続き・・・たぶん、コレだけで十分かと思います（稼働させてないのでどう動くかは不明？）。仕事帰って作りました。この頃、もっと勉強しないとなと思うこの頃です。いまの自分に足りないのは間違いなく技術力です、あとタイピングとか・・・かなり遅いので生産性がかなり低いです。英語を打つのに遅すぎる・・・・。日本語はまぁまぁ早いのですけど。キーを覚えているというよりは何となく覚えているので・・・・なぜ、タイピングできるのか自分でも不思議なのです。
 

追記2022/09/06：詳しくは、こちらを参照くださいませ。

<?php
//5分刻みに対して有効な無限クローン 処理が負荷の場合どうなるかは知りません。
date_default_timezone_set('Asia/Tokyo');
class cron{

    public function d_m($obj)
    {
            if($obj->m==="*")return true;
            if(preg_match("/,/",$obj->m))return $this->comma($obj->m,date("m"));
            if((int)$obj->m === (int)date("m"))return true;

            return false;
    }

    public function d_d($obj)
    {
            if($obj->d==="*")return true;
            if(preg_match("/,/",$obj->d))return $this->comma($obj->d,date("d"));
            if((int)$obj->d === (int)date("d"))return true;

            return false;
    }

    public function d_H($obj)
    {
            if(preg_match("/\*\/[0-9]{1,2}/",$obj->H)){
                $H = explode("/",$obj->H);
                if((int)$H[1]>0 && ((int)date("H") % (int)$H[1])===0)return true;
            }else{
                if($obj->H==="*")return true;
                if(preg_match("/,/",$obj->H))return $this->comma($obj->H,date("H"));
                if((int)$obj->H === (int)date("H"))return true;

            }
            return false;
    }

    public function d_i($obj)
    {
            if(preg_match("/\*\/[0-9]{1,2}/",$obj->i)){
                $i = explode("/",$obj->i);
                if((int)$i[1]>0 && ((int)date("i") % (int)$i[1])===0)return true;
            }else{
                if($obj->i==="*")return true;
                if(preg_match("/,/",$obj->i))return $this->comma($obj->i,date("i"));
                if((int)$obj->i === (int)date("i"))return true;

            }
            return false;
    }

    //曜日 0=日曜日 6=土曜日
    public function d_w($obj)
    {
            if((int)$obj->w[date("w")]===1)return true;
            return false;
    }

    public  function comma($c="",$t=""){
        if($c==="")return false;
        if($t==="")return false;
        $flg = false;
        foreach(explode(",",$c) as $cc){
            if((int)$cc===(int)$t)$flg = true;
        }
        return $flg;
    }


    public function d_command($obj){
        if($obj->command){
            exec($obj->command . " > /dev/null &");
        }
        return true;
    }

}
if ($argv[1]) {
   $filename = $argv[1];
    if(is_file($filename)){
        $jsn = json_decode(file_get_contents($filename));
        $cron = new cron();
        try {
            foreach($jsn as $obj){
                if($cron->d_m($obj)){
                    if($cron->d_d($obj)){
                        if($cron->d_H($obj)){
                            if($cron->d_i($obj)){
                                if($cron->d_w($obj)){
                                    $cron->d_command($obj);//波動拳{{{{
                                }
                            }
                        }
                    }
                }
            }
        } catch (\Throwable $th) {
            print $th->getMessage();
        }
    }
}

タグ

06, 09, 2022, 39, 5, Asia, class, cron, cronphp, date, default, function, lt, nbsp, obj, php, public, set, timezone, Tokyo, いま, かなり, キー, クローン, こちら, コレ, ダイビング, 不思議, 不明, 仕事, 処理, 分刻み, 勉強, 参照, 場合, 技術力, 日本語, 有効, 朝, 無限, 生産性, 稼働, 自分, 英語, 負荷, 追記, 頃,

スマホ対策をしないと収益につながらないみたいだ。

2015.05.21

Logging

スマホ対策をしないと収益につながらないみたいです。いま、このサイトを訪問してくれてる半分の人がスマホ、あとの半分がPC、そしてその他２％の人がタブレットというアクセス結果になっています。アクセスの大半は映画ネタとPGネタが大半です。とくに映画ネタへのアクセスは好評です、有難いものですが・・・・いまのところ、収益にはつながっていないのが現状。むかし、違うブログサイトを運営していた時はスマホなんてものが無かったので訪問者のほぼ大半がPCでした。その為、いまと変わらないアクセス数で収益につながっていました。いまはスマホに広告を掲載していないので収益に繋がっていないというのは、分かっているのですが今のところ広告掲載はせずアクセス数を増やすことを考えいきたいです。ちなみにGoogleがリアルタイム検索サービス（モバイル版で）を復活させましたので、日本でもサービスが近日中に使用できるようになると思います。そうなったら結構、アクセス数が上がるじゃないかと期待しています(^^ゞ
 

タグ

2, Google, PC, PG, アクセス, あと, いま, こと, サービス, サイト, スマホ, その他, タブレット, ところ, ネタ, ブログ, むかし, もの, モバイル, リアルタイム, 人, 今, 使用, 半分, 収益, 大半, 好評, 対策, 広告, 復活, 掲載, 日本, 映画, 時, 検索, 為, 現状, 結果, 訪問, 訪問者, 近日, 運営,

2015年：砂浜Tシャツアート展/高知県幡多郡黒潮町の入野海岸

2015.05.05

Logging

砂浜Tシャツアート展/高知県幡多郡黒潮町の入野海岸へ行ってきました。
行きは車で一般道路を通って黒潮町まで行ったのですが、到着するのに三時間ぐらい費やしました。
高知市内だと二時間半ぐらいはかかると思います。帰りは高速道路を使ったので一時間ほど短縮出来ました。
砂浜Tシャツアート展ですが、行って良かったものの少しばかり遠いなと感じます。
今度、行く時には電車で行こうかなと考えています。
電車だと片道4850円ぐらい費用が発生する（高知駅から土佐入野駅まで）ものの車酔いは発生しませんし、運転手だと疲労困憊になる事はないです。
主催している砂浜美術館には申し訳ないのですが、桂浜で同じようなイベントを行って欲しいと若干感じました。
ちなみに応募した皆さんが描かれたTシャツですが、風が吹いているとTシャツに描かれた作品があまり見えないのが若干難…。
しかし、風に無数のTシャツがなびいているのは圧巻でした。それを見るだけでも見に行く価値ありかと思います。

2016年の動画に差し替え。
 

タグ

2015, 4850, アート, ありか, イベント, いま, シャツ, それ, もの, 一, 一般, 三, 主催, 事, 二, 今度, 作品, 価値, 入野, 到着, 半, 土佐, 圧巻, 少し, 市内, 幡多郡, 応募, 思, 時, 桂浜, 海岸, 無数, 片道, 疲労困憊, 発生, 皆さん, 短縮, 砂浜, 美術館, 若干, 費用, 車, 車酔い, 運転手, 道路, 難, 電車, 風, 高知, 高知県, 高速道路, 黒潮町,

MonacaはHTML5でマルチプラットフォーム対応のモバイルアプリ開発が行えます。

2015.04.26

Logging

MonacaはHTML5でマルチプラットフォーム対応のモバイルアプリ開発が行えます。このサービスには落とし穴があります、フリー版だとリリース出来るアプリは3つです。有料版だと月に980円、5000円、8000円とそれぞれコースがあり、作れるアプリはそれぞれ10個、100個、無制限となっています。試しに作ってみようと思う方にはオススメしますが、有料版で制作するよりはJAVAやObject-Cで制作してそれぞれReleaseする方が経済的なのかなぁと思ってしまいます。有料版でリリースしても元がとれなければ無駄な感じがします。このサービスの利点はHTMLとjavascriptで制作が行える事です。AndroidStudioでいま、この前作ったものを改良しているのですが落ちまくるんですIDEが・・・・・。すごく開発しづらい

タグ

10, 100, ３, 5, 5000, 8000, 980, AndroidStudio, html, IDE, java, javascript, Monaca, Object-C, release, アプリ, いま, おすすめ, コース, サービス, それぞれ, プラットフォーム, フリー, マルチ, もの, モバイル, リリース, 事, 元, 利点, 制作, 前, 対応, 改良, 方, 月, 有料, 無制限, 無駄, 落ち, 落とし穴, 開発,

さくらのVPSを使ってみた。標準OSインストールは初心者におすすめ。

2015.04.04

Logging

さくらVPSを使ってみた。さくらVPSをレンタルして標準OSインストールしてみました。インストール後、root権限でログインしてApacheをインストール（yum install httpd ）してみたら、そのままの状態でWEBが表示された・・・・。ポートの開放とかの設定はしなくても良かったです。標準OSのセキュリティの設定でゴニョゴニョされていて特にWEBで使う分にはiptablesを触らなくても良さそうでした。インストール後、phpをインストールしてhttpdのconfig設定を変更して再起動すればphpが実行できる環境になりますから、あとはMysqlをインストールしたい方は、インストールしてゴニョゴニョ設定するだけでWEB環境を整います。あとは、ftpを使用したい方はインストール（yum install vsftpd）すれば良いだけです。FTP経由かSSH経由でコードをアップロードすればサイトを構築できてしまいます。
 

タグ

Apache, config, FTP, httpd, install, iptables, MYSQL, OS, php, root, SSH, VPS, vsftpd, web, yum, アップロード, あと, いま, インストール, おすすめ, コード, ゴニョゴニョ, サイト, さくら, さくらの, セキュリティ, そのまま, ポート, レンタル, ログイン, 使用, 再起動, 分, 初心者, 変更, 実行, 方, 構築, 標準, 権限, 状態, 環境, 経由, 表示, 設定, 開放,

見知らぬ誰かとチャットを楽しめるWebサービス。chatpad

2015.03.04

Logging

chatpadは見知らぬ誰かとチャットを楽しめるWebサービスです。一昔前ならヤフーチャットっていう大きなサービスがあったんですけどね。いまの若い人達はチャットというWEBサービスなんてものを知らないで生きている人もいるかと思います。サービスの作りはLINEとさほど変わらないですね。LINEと違いチャットはリアルタイムに不特定多数やり取りするサービスです。テキスト系のメッセンジャーやスカイプと近いサービスと思ったら理解しやすいと思います。情報の交流のWEBサービスは結構出来たけど、逆にサービスが多くなりユーザーの分散化が進んでいるそうです。これから必要とされるサービスは一つのアプリでいろいろなWebサービスへ投稿できたり、情報を収集することのできるサービスが必要になっているのだとか。LINEというサービスが流行すると他者も同じようなサービスを提供しだしますが、結局、生き残るは2，3社ぐらいで後は消えていきます。いま、Webサービスは飽和状態なで、これからは淘汰される時期に来ているのかと思ってます。

タグ

2，3, chatpad, line, web, アプリ, いま, いろいろ, こと, これ, サ, サービス, スカイプ, チャット, テキスト, メッセンジャー, もの, ヤフー, やり取り, ユーザー, リアルタイム, 一, 一つ, 不特定, 交流, 人, 他者, 分散, 収集, 多数, 後, 必要, 情報, 投稿, 提供, 昔, 流行, 理解, 誰, 逆,

宇宙兄弟LIFT OFF!の感想なんかをイマゴロ。

2014.08.24

Logging

宇宙兄弟LIFT OFF!の感想なんかをイマゴロ書きたいと思います。俗に言うエンターテイメントに仕上がっている映画になっています。特にお気に入りはオープニングの映像かなと思ったりしてます。アレで結構、映画の中に引き込まれそうな、そんな感じのオープニングです。ちなみにCG技術はアメリカには劣る感じがします。若干、CGは見劣りするもののストーリー事態がしっかりしているので見やすいです。あと、原作の漫画のキャラクターと実写の配役が結構うまいと思います。
2014/08/24：宇宙兄弟#0が映画館で上映中です、ちょっち観たいような気がしますが、今のところ保留にしています。宇宙兄弟#0も実写映画化して欲しいトコロですけど予算的に無理だったからアニメ映画になったか、もしくは実写映画効果でさらにファンが付いたからアニメ映画でGOサインが出たのかも。｛勝手な思い込み(^_^)です｝。

タグ

0, 08, 2014, 24, Cg, go, LIFT, off, アニメ, アメリカ, アレ, いま, エンターテイメント, オープニング, お気に入り, キャラクター, ごろ, サイン, ストーリー, ちょ, ところ, トコロ, ファン, もの, 上映, 中, 事態, 今, 保留, 兄弟, 効果, 勝手, 原作, 宇宙, 実写, 感じ, 感想, 技術, 映像, 映画, 映画館, 気, 漫画, 若干, 見劣り, 配役,

覚悟の磨き方 超訳 吉田松陰を少しほど読んでみて(´Д｀)感想などを。

2014.08.23

Logging

覚悟の磨き方という本を本屋（TSUTAYA）で見かけて衝動買い｛この時、合わせて100の基本も購入｝しました、衝動買いというよりポイント購入と言った方が良いのですけど…（ポイントもお金ですからね）。そんな事はどうでもよくて本の中身ですけども、いま54ページぐらいまで読みを終えまして少し感想です。吉田松陰という人物を自分はあまり知らない自分ですけど、この本｛覚悟の磨き方｝は読みやすいです、現代風に置き換えて書かれているためか読みやすく、頭に入ってきます。そして恩着せがましくなく書かれているので拒絶反応も少ないです。自己啓発書というよりは道理とかそういうものが書かれている本だと思います。
覚悟の磨き方のおすすめ度と言われるとクエションですが｛人それぞれ考え方が違うので書店で一度中身をパラパラめくると良いかも｝、自分は好きです。

タグ

100, 54, TSUTAYA, いま, おすすめ, お金, クエ, ジョン, それぞれ, ため, ポイント, もの, 一度, 中身, 事, 人, 人物, 反応, 吉田松陰, 啓発書, 基本, 少し, 感想, 拒絶, 方, 時, 書店, 本, 本屋, 現代, 考え方, 自分, 自己, 衝動買い, 覚悟, 購入, 超訳, 道理, 頭,

Accessのさんぷるコードができましたので(´Д｀)貼っときます。

2014.08.21

Logging

突貫工事で作ったのでバグは多少あると思いますが{例えばsql インジェクション対策とか。}、Accessのsampleコードができましたので貼っときます。なお、これで何が出来るかって言えばDBの修正、追加、削除といった基本的な動きをします｛挙動不審ぎみ嘘！？｝。若干、ソースコードを弄くれば使い回しが出来るようにしております。飯くったり他のことをしながらもガリガリとコードを書きました。ちなみにAccessのViewerをマイクロソフトからダウンロードすると動作すると思います。ファイルは下記からダウンロードください。 追記：暇な時に改良していきますので( ﾟдﾟ)ﾉ ﾖﾛｼｸとコメントも暇があれば書いときます。そして無駄なコードがありますが、それも軽量していくつもりです(｀・ω・´)。ちなみにいまはDBを空にすると落ちますので・・・・（直しました。）。?samplezip358.zip?[https://zip358.com/tool/samplezip358.zip][08/21 11:26]

Option Compare Database
Public db_x As Long
Public max As Variant
Function sel_all(tablename As Variant, tal_valname As Variant) As Variant
    Dim x As Long
    Dim y As Long
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge(999, 999) As Variant
    Dim val_n As Variant
    Dim val As Variant
    Set db = CurrentDb
    sql = "SELECT * FROM " & tablename & " ORDER BY ID ASC;"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    Do Until RS.EOF
        For y = 0 To UBound(tal_valname)
            hoge(x, y) = RS.Fields(tal_valname(y))
        Next y
        RS.MoveNext
        x = x + 1
    Loop
    Set db = CurrentDb
    sql = "SELECT MAX(ID) as maxs  FROM " & tablename & ";"
    MsgBox sql
    Set RS = db.OpenRecordset(sql)
    max = RS.Fields("maxs")
    db_x = x - 1
    Set db = Nothing
    sel_all = hoge
End Function
Function up_in(chk As Boolean, tablename As Variant, tal_valname As Variant, tal_val As Variant, ID As Long) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge_valname As String
    Dim hoge_val As String
    Dim hoge As Variant
    If chk = True Then
        For i = 0 To UBound(tal_valname)
            hoge_valname = hoge_valname & tal_valname(i) & ", "
        Next i
        hoge_val = sql_str(tal_val, "", "", True)
        sql = "INSERT INTO " & tablename & " (" & Left(hoge_valname, Len(hoge_valname) - 2) & ")VALUES (" & hoge_val & ");"
    Else
        hoge_valn_val = sql_str("", tal_valname, tal_val, False)
        sql = "Update " & tablename & " Set " & hoge_valn_val & " WHERE ID = " & ID & ";"
    End If
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    up_in = True
End Function
Function del(tablename As Variant, tal_valname As Variant, tal_val As Variant) As Variant
    Dim sql As String
    Dim RS As DAO.Recordset
    Dim db As DAO.Database
    Dim hoge As Variant
    sql = "DELETE FROM " & tablename & " WHERE " & tal_valname & " = " & tal_val & ";"
    MsgBox sql
    Set db = CurrentDb
    db.Execute (sql)
    Set db = Nothing
    del = True
End Function
Function sql_str(hoge As Variant, tal_valname As Variant, tal_val As Variant, chk As Boolean) As Variant
    Dim i As Long
    Dim hoge_str As Variant
    If chk = True Then
        For i = 0 To UBound(hoge)
            If IsNumeric(hoge(i)) Then
                hoge_str = hoge_str & hoge(i) & ", "
            Else
                hoge_str = hoge_str & "'" & hoge(i) & "', "
            End If
        Next i
    Else
        For i = 0 To UBound(tal_valname)
            If IsNumeric(tal_val(i)) Then
                hoge_str = hoge_str & tal_valname(i) & " = " & tal_val(i) & ", "
            Else
                hoge_str = hoge_str & tal_valname(i) & " = '" & tal_val(i) & "', "
            End If
        Next i
    End If
    sql_str = Left(hoge_str, Len(hoge_str) - 2)
End Function

↑クラスdbソースコード

Option Compare Database
Dim max As Long
Dim ID As Long
Dim val_val As Variant
Private Sub Form_Load()
lod
End Sub
Sub lod()
    Dim db As db_db
    Dim val_name As Variant
    Dim x As Long
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    val_val = db.sel_all("tableone", val_name)
    max = db.max + 1
    If cmb.ListCount > 0 Then
        For x = 0 To cmb.ListCount - 1
            cmb.RemoveItem 0
        Next
    End If
    For x = 0 To db.db_x
        cmb.AddItem val_val(x, 1)
    Next
    Set db = Nothing
End Sub
Private Sub cmb_Click()
    If cmb.ListIndex >= 0 Then
        Viw cmb.ListIndex
    End If
End Sub
Private Sub del_btn_Click()
    Dim db As db_db
    Dim hoge As Variant
    Set db = New db_db
    val_name = Array("ID", "表題", "数値", "文字")
    If ID > 0 And max > 1 Then
        hoge = db.del("tableone", "ID", ID)
    End If
    Set db = Nothing
    lod
End Sub
Private Sub in_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("ID", "表題", "数値", "文字")
    val = Array(max, cmb, suuzi, moji)
    Set db = New db_db
    hoge = db.up_in(True, "tableone", val_name, val, max)
    Set db = Nothing
    lod
End Sub
Private Sub upd_btn_Click()
    Dim db As db_db
    Dim val_name As Variant
    Dim val As Variant
    Dim hoge As Variant
    chkchk
    val_name = Array("表題", "数値", "文字")
    val = Array(cmb, suuzi, moji)
    Set db = New db_db
    If ID > 0 And max > 1 Then
        hoge = db.up_in(False, "tableone", val_name, val, ID)
    End If
    Set db = Nothing
    lod
End Sub
Sub Viw(i As Long)
    ID = val_val(i, 0)
    suuzi = val_val(i, 2)
    moji = val_val(i, 3)
End Sub
Sub chkchk()
    If IsNumeric(suuzi) Then
        If suuzi > 9999 Then
            suuzi = 9999
        End If
    Else
        suuzi = 0
    End If
    If IsNumeric(moji) Then
        moji = "文字が不正＞" & moji
    End If
    If IsNumeric(cmb) Then
        cmb = "文字が不正＞" & cmb
    End If
End Sub

↑formソースコード

タグ

35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,