@Blog{zip358.com}

自分には一貫性がない？

2016.09.02

Logging

今日のお題は「自分には一貫性がない？」です。
これを書いているのは8月23日です・・・投稿されるのは
9月2日に設定しています。

一貫性とは
始めから終わりまで同じ一つの方針・考えによっていること。
goo辞書より

 
自分で言うのも何ですが、自分は他人の意見に流されやすい所があります。
そういう意見もあるなら、それでも「いいじゃねぇ」と言うように
何か納得してしまったりします。特に尊敬している人が
言っている言葉なら、「そうだな」「それも有りだな」って具合に
鵜呑みにしてしまう時があります。
この頃は、それは「どうだろうか」と思い考えるように
していますが、それでもなかなか難しい・・・ですね。
特にTVは危ういです。何か考える隙がないような
作りにしているような気がしますね。考える隙を作らず
「YES」か「No」という気持ちに持っていく作りに
している所が危ういかなと思います。
ちなみに自分のブログの記事は
あまり一貫性はないですが、読んでいると何を
言わんとするかは分かってもらえると思います( ﾟдﾟ )。

タグ

2, 23, 8, ９, goo, nbsp, no, TV, yes, これ, それ, ブログ, 一つ, 一貫性, 人, 今日, 他人, 何, 作り, 具合, 尊敬, 意見, 所, 投稿, 方針, 時, 気, 気持ち, 納得, 自分, 言葉, 記事, 設定, 辞書, 隙, 頃, 題, 鵜呑み,

映画、秘密THE TOP SECRETを観てきましたので #映画レビュー #秘密

2016.08.06

Logging

映画、秘密THE TOP SECRETを観てきましたので感想なんかを残しときます。
前評判も若干悪い感じでしたが、言うほど悪いレベルではなかったです。
ただ、結構、残虐性のある映像とHな描写がある映画かなとソコが受け入れがたい人には評価は低いように感じます。
映像は全体を通して上手いなと思ったのですが
何か、内容が少しまとまりがなかったように感じました。
ラストを丸く収めた感が歪めない感じでし・・・。
そして原作の漫画（アニメ）を見ていないので、映画を観る前に漫画かアニメを見ておけば
また、違った感想になっていたかもという印象です。
アニメファンが、この映画を観てどう思うかだと思います。
その評価により映画の順位が変わりそう。
映像だけ言えば、シン・ゴジラより
違和感なく見れた感じです。
?

タグ

secret, The, TOP, アニメ, かな, ゴジラ, シン, ソコ, ファン, ラスト, レビュー, レベル, 人, 何, 全体, 内容, 前, 前評判, 印象, 原作, 少し, 感, 感じ, 感想, 描写, 映像, 映画, 残虐性, 漫画, 秘密, 若干, 評価, 違和感, 順位,

ぐちぐち文句言ってもハジマラナイ。前へ進もう！！

2016.08.06

Logging

今日のお題は「ぐちぐち文句言ってもハジマラナイ。前へ進もう！！」です。
男の人は結構な確率で根に持つひとが多いです。自分もその中の一人でした。派遣切りに会った時は表面上は何も言いませんでしたが、家では愚痴が多かったように思えます。立場の弱いモノは決まった事を覆すことが出来ないのです。（かなり難しいです。）
特に、立場の弱い派遣というものはそういうモノです、いつ契約を更新してもらえなくなるかは派遣を雇っている会社の事情にもよります。いろんな人がいました、態度がころりと変わる人などもいたりして、人が見えましたね。
派遣切りにあった場合など、それに妬んだりすること無く、「良い機会」だと割りきって次の仕事先を見つけることに専念したほうが良いです。
前へ進むことが、かなり大事ですね。悔しいかどうかで言えば、契約切りや派遣切りにあった人ならわかると思います。かなり悔しいですね。でも、その悔しさをバネにして次に繋げてください。

タグ

いつ, かなり, ぐち, こと, それ, ハジマラナイ, バネ, ひと, もの, 一人, 中, 事, 事情, 人, 今日, 仕事, 会社, 何, 前, 場合, 大事, 契約, 家, 専念, 愚痴, 態度, 文句, 時, 更新, 根, 機会, 次, 派遣, 男, 確率, 立場, 結構, 自分, 表面, 題,

お一人様ですが何か！？

2016.08.03

Logging

小中高の夏休み、もっと遊んでたらと思うより
あの休みの時間、もっと学んでいたらとか、自分の好きなことに
もっと目を向けていたら今と違った人生になってただろうなと思う時があります。
今日のお題は「お一人様ですが何か！？」です。
映画館やお食事に自分はお一人様でって事が9割を占めています。
恐らく、大体の人は「お一人様」で行動することが
躊躇いがちなひとが多いと思います。
特に男性はひとりで行動することを躊躇いがちです。
ひとりが寂しいとか言う人は「お一人様」は恐らく無理です。
お一人様デビューしたのは、東京で仕事をしている時でした。
ほぼ、休みの日はひとりで外出していました。
周りの目を気にしていましたが、東京って事も手伝って
いつの間にか気にならなくなってました。
東京にはお一人様が結構な確率でいます。
なので、そんなに気にならないですね。
そういう訳で、地元に帰ってもお一人様で
行動することが多くなりました。
友達と行動することが悪いわけではないです。
友達と時間や体験を共有することも大事だと思います。
しかし、「お一人様」として行動することも
大事かなと思う事もあります、ひとりで行動することで
ひとりで行動している人の気持も分かったりします。
何でもそうですが、体験することが
大事だと思います。
なので、「お一人様」で行動したことがないよと
言う方はぶらりと休日出かけてみてください(*´ω｀*)。

タグ

９, お食事, こと, デビュー, ひと, ひとり, 一人, 事, 人, 人生, 今, 今日, 仕事, 休み, 何, 友達, 周り, 地元, 夏休み, 外出, 大体, 小中高, 日, 映画館, 時, 時間, 東京, 気, 男性, 目, 確率, 結構, 自分, 行動, 訳, 題,

何も云わない人の方が賢明だと思うのだ。だけど、それで良いのだろうか？

2016.07.22

Logging

この頃、帰宅後、間食をせずに暮らしています。「痩せないと」って思ってるうちは
痩せることはないだと誰かに聞きました。
今日のお題は「何も云わない人の方が賢明だと思うのだ。だけど、それで良いのだろうか？」です。
先日、会社で全体会を行いましたが、誰からも意見が出ないのです。
結局、自分が発言して終わり・・・、こんな月例会を何度も繰り返しています。
何のための会議なのか、わからない感じがします。
憎まれ役は自分かなと思いながら意見するのは
正直な所、辛いものです。
言わないことのほうが賢明だなと感じます。言わないで
月例会を終わらすほうが簡単な話です。
黙っていれば良いのですから。
何だか日本という国は発言すると
打たれるので大体控えめで、みんなに合わそうという
タイプが多いですね。自分はそういう教育ではない教師のもとで
２年間、教育を受けたので多分、ちょっと外れているだと思います。
来月の会議は・・・どうしよう？。

タグ

2, うち, こと, すほう, それ, タイプ, ため, みんな, もと, もの, 人, 今日, 会社, 会議, 何, 何度, 先日, 全体会, 国, 帰宅, 意見, 感じ, 憎まれ役, 所, 控えめ, 教師, 教育, 方, 日本, 月例会, 来月, 正直, 発言, 簡単, 自分, 話, 誰, 誰か, 間食, 頃, 題,

誰もSEOについて語らなくなってきている。

2016.06.12

Logging

誰もSEOについて語らなくなってきている。
SEOの攻略法って基本的にソーシャルメディア以外なし。
もうひとつ付け加えるとするならば、今までのアクセス数はそのサイトの信用となりうるという事です。
ドメインも買えないならば、日々、記事を書き続けることにしか、チャンスはないとも言える。
自分が出した、いまの結論です。
簡単にいえば、サイトの構造というのは意味をなさない。javascriptのエラーが吐かれていないかとかは、注意はした
方が良いですが・・・。
※昔からあるサイト構造をガラッと変えるのはリスクを伴います。
YOUTUBEなどを貼り付けてたら、JSエラーを吐き出したりしますが、さほど、影響はないに等しいです。
そんな事より、サイトの中身を充実させたほうが今は良いんですね。どこから訪問者が来たか、検索キーワードが
何なのか分からなくなってきている中で、どうすればアクセス数が増えるかなど分かりづらくなっています。
アクセス数は百の壁、千の壁、1万の壁という様に壁があります。凡人が超えれる壁は千の壁までだと自分は
思っています。日に1000人のアクセス数を出すことは不可能ではないです。ただ、1万の壁を超えるのは難しい。
その壁を超えるには広告やメディア戦略が必須となります。なのでお金もかけないでアクセス数をUPするには
ソーシャルメディアを活用することをオススメします。
[余談]
なぜ、昔からのサイト構造を一気に変更するのにはリスクを伴うのか？
答えは簡単で、クローラーが今まで見に行っていたURLが急に見えなくなると、このサイトは移転した可能性があるという判断をするため、急激に検索順位が下がっていく可能性あります。
検索アルゴリズムは移転という可能性を排除しないからです。
なので文言や旧ファイルは残しておく事が一般的です。
?

タグ

１, javascript, JS, SEO, youtube, アクセス, いま, エラー, キーワード, こと, サイト, ソーシャル, チャンス, どこ, ドメイン, メディア, もうひとつ, リスク, 万, 中, 中身, 事, 今, 何, 信用, 充実, 千, 壁, 影響, 意味, 攻略, 方, 日々, 昔, 検索, 構造, 注意, 百, 簡単, 結論, 自分, 記事, 訪問者, 誰,

なんか自分が正しいと思う人が増えている。

2016.04.24

Logging

なんか自分が正しいと思う人が増えている。
多種多様の意見があっていいと思うけど、この頃、SNSが出来てから、その多種多様な意見が正義という名のもとに
一本化される動きが出てきて他の意見を排除しようと言う流れが続いている。
ネットで有名人がちょっとした問題発言をすると一斉に叩くという事が頻繁に起きていて、それをマスメディアが流すことによって、もっと炎上するということが起きている。
ちょっとした問題発言も出来ない社会は正直なところ、どうかと思うです。
そのうち、その正義というものが仇になるじゃないのかなと思うですね。
俗にいうネトウヨさんが増えないことを祈ります・・・・というよりはマスメディアが取り上げるから駄目なんだと
思うわけです。何が正しいのかを見極めることなんて誰も出来やしないのだから…。
自分がやられて嫌だと思うことは相手にするものじゃないなと。

タグ

SNS, うち, こと, それ, ところ, ネット, ネトウヨ, マスメディア, もと, もの, 一本化, 事, 人, 仇, 他, 何, 名, 問題, 多種多様, 意見, 排除, 有名人, 正直, 正義, 炎上, 発言, 相手, 社会, 自分, 誰, 頃, 頻繁, 駄目,

SQL実践入門って本がある。

2016.03.28

Logging

SQL実践入門って本がある。ちょっと値段が高いので立ち読みで済ましたけど、今後お金があるときに購入しようと思っている本です。ちなみに自分はSQLの事は全然って言ってほど無知なのです。この本をとって見てみて「あ?こんな事が出来るだ」って思ってしまったわけです。
おそらく知っている人のレベルでは触り程度の話かもしれませんが、知らない人には勉強になる本です。おそらく入門書をみて、こんなのインターネット上でググればあるなと思う方は、こちらのSQL実践入門がオススメです。この頃、大体の事はググればあるという時代になってきているのですが、ガリガリコードが書けるようになっていると何かと困ることはないですねって、、、、思うわけですね。
もっと実力がほしい今日このごろ。

タグ

SQL, インターネット, おすすめ, お金, コード, こちら, こと, とき, レベル, わけ, 事, 人, 今後, 今日このごろ, 何, 値段, 入門, 入門書, 勉強, 大体, 実力, 実践, 方, 時代, 本, 無知, 立ち読み, 自分, 話, 購入, 頃,

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

THE X-FILES | Re-Opened(Xファイル|レオープン)シーズン10

2015.12.29

Logging

THE X-FILES（Xファイル）は、もうシーズン10になっていた所が
驚きです。シーズン1からシーズン3まではおそらく
中学生か高校生に見た覚えがあります。
その後、映画化されたエピーソードを見ましたが
それ以後、Xファイルからは遠ざかっていました。
Xファイルとは超常現象やUFOなどの未解決事件を
モルダーが解決していくと言うお話です。
実際は謎が謎を呼ぶことが多いのですが、みていると
何だか、その中にどっぷりと引き寄せる感じがします。
ちなみに自分は宇宙人というものがいると思っています。
地球人がいるのなら、宇宙人がいて当然なのではないかと
思うわけです。ただ、その宇宙人がこの地球に
いるかどうかはわかりませんが、おそらく宇宙人は
確率的にいるじゃないかと思います。
何億光年離れた場所からこの地球に
宇宙人が来るとは考え難いですし、もし来たとして
地球人と戦うことになったとしたら間違いなく
地球人は負けてしまうだろうなと思っています。

タグ

0, １, 10, ３, 4, com, Re-Opened, The, UFO, X-FILES, yDbG, youtube, ZT, エピーソード, お話, こと, シーズン, それ, ファイル, もの, モルダー, レオープン, 中, 中学生, 事件, 何, 億, 地球, 地球人, 宇宙人, 実際, 当然, 後, 感じ, 所, 映画, 未解決, 現象, 自分, 解決, 謎, 超常, 高校生,

何がいいかなんて終わってみないとわかりません。著：ミゾイキクコを読んで。

2015.12.27

Logging

何がいいかなんて終わってみないとわかりません。著：ミゾイキクコを読んで。
なんか、経験から発せられる言葉は唯唯、納得ですね。
これを読んでいるとそれなりに生きる糧になるのかもと思ってしまいます。
行った事は巡り巡って自分のもとに返ってくるだなと感じます。

人にはそれぞれその人に合った
生き方があるのですから。
どれが良くてどれが悪いではなく、
それぞれに合った生き方で
十分自分を生かすことが良いはずです。
こっちが良ければそっちが悪い
ではないんですね。
こっちも良くて、そっちも良い。

引用：何がいいかなんて終わってみないとわかりません。著：ミゾイキクコより。
上記のような言葉がこの本にはいっぱい詰まってます。
歳を重ねていくとおそらく我が強くなっていきます。
それは、その人が経験したものが積み重なって、その時の行動が正しいと感じるようになるからだと思っています。
この本を読んで違うそんなことはないと思う方もいると思います。それはおそらく生きてきた道が違うからなんだと思います。

タグ

イキ, クコ, こっち, こと, これ, そっち, それ, それぞれ, それなり, どれ, パス, ミゾ, もと, もの, 上記, 事, 人, 何, 引用, 我, 方, 時, 本, 歳, 生き方, 糧, 納得, 経験, 自分, 著, 行動, 言葉,

WinSCPというソフトが有るのだけど。

2015.07.16

Logging

WinSCPというソフトが有るのだけど自分はこのソフト、FTPのソフトだと思い込んでいたけど・・。SCPという名前の通りSCP(転送プロトコル)機能がついてたりする。面倒くさい事をさらっとやってくれるフリーソフトなわけです。そうとは知らず今までインストールすることが無かったんですけど、この度、インストールしました。ちなみに何が良いかというとFTPサービスをサーバ環境へインストールしなくてもファイルのアップロードが可能だということです。FTPがインストールされていない環境だととても重宝しそうな気がします。
ダウンロードはこちらから、WinSCP
メモがてらにもう一つ、大量のsqlデータを一括でインポートしなくてはならなくなり、昨日、調べていたらこのようなコマンドで解決することがわかりました。まず、Linuxサーバでかつポート22番が開いている事が前提です。windowsですとTera Termでサーバにログインし下記のコマンドを入力します。

mysql -u ユーザー名 -D データベース名 -p
//エンター後、Passwordの入力を行ってください。

次にMYSQLに切り替わったら、下記のコマンド入力してインポートを行います。この時の注意点ですがエラーなどが出る場合はエクスポートしたsqlファイルの最終行あたりに記入されているデータベース名やユーザー名が移行する側の名前になっているかが大事になります。なっていない場合、修正をかけ再処理を行うとインポートが行えるはずです。
尚、サーバ上に事前にsqlファイルをアップロードして置いてから処理を行ってください。

USE データベース名（インポートしたい）
SOURCE 階層を含むファイル名(/xxxx/xxxx.sql)

タグ

22, FTP, Linux, My, SCP, SQL, Tera, Term, Windows, WinSCP, アップロード, インストール, インポート, こちら, こと, コマンド, サーバ, サービス, ソフト, ダウンロード, データ, ファイル, フリー, プロトコル, ポート, メモ, もう一つ, ログイン, 一括, 下記, 事, 何, 入力, 前提, 可能, 名前, 大量, 度, 昨日, 機能, 気, 環境, 自分, 解決, 転送, 通り, 重宝,

ジョーカーゲームを観てきけど酷評しか書けない自分がいる。

2015.02.16

Logging

ジョーカーゲームを観てきけど酷評しか書けない自分がいます。
映像作品を自分はつくれませんが、一応、いろいろな映画を観てきたのでちょっと書かせてもらいます。
オープニングから無いなという感じがして最後でなんとなくB級かなって思えて最後までだら?っとそういう映像が続きます。
まず、カットが悲惨でストーリーにリアル感がなく、映画に没頭できるような要素が全然なかったです。
007と比べると天と地ぐらいの差がある映画です。
誰が大根役者なのかは言いませんが、演技もなんとも言えなくて
映像に更なる拍車をかけているような感じさえしました。
この映画、ジョーカーゲーム何を意識して撮っているのかは大体わかります。
007やミッションインポッシブルなどの映画です、そういう映画からネタ（映像）を
パクってきたと言わんばかりに似たようなシーンがあります。
その映像がズタズタで、なんとも見るに耐えない感じがしました。
全然、映像を撮れない自分がここまで酷評するのも何だと思うのですけど・・・・・。
このジョーカーゲームは亀梨和也さんや深田恭子さんで釣っているだけの作品かなと自分は思います。
まとめ、TOHO映画のランキングも現在、TOP10にランクしています。
それがこの映画に対する評価だと思います、かなり上映前に告知していたのにも
関わらずフタを開けてみるとこの評価でしたよって言うのが
この映画に対する一般市民の評価なんだと思っています。
亀梨和也さんや深田恭子さん好きならそれなりに見る価値はあるだと思います。
ここまで酷評したのはハジメテですが何か自分の中では何かモヤモヤしたものが残った映画です。
 

タグ

007, いろいろ, オープニング, カット, ここ, シーン, ジョーカーゲーム, ストーリー, なん, ネタ, ミッションインポッシブル, リアル, 何, 作品, 地, 大根, 天, 差, 役者, 悲惨, 意識, 感, 感じ, 拍車, 映像, 映画, 更, 最後, 没頭, 演技, 級, 自分, 要素, 誰, 酷評,

映画『42 世界を変えた男』が何だか泣けそう(´；ω；｀)

2014.10.01

Logging

42 世界を変えた男が何だか泣けそうです。映画予告を観て即購入したので、休みの日に鑑賞するつもりでいます（本日、頼んでいたブルーレイが届きましたo(^▽^)o、またもやポストに投函されていたのですけど、今回は郵便扱いになっていたので何とも言えない。）。なお、レビューは追記して書きます…。
 
映画予告を貼っときます。

レビュー書いていなかったのを忘れて、数年・・・経ちました。一言で言えば良かったです、何処が良いのかというのは差別に立ち向かう姿ですね。これは胸熱くなる物語です、是非、観てみてください。

追記日：2022/09/30

タグ

09, 2022, 30, 42, これ, つもり, ブルーレイ, ポスト, レビュー, 一言, 世界, 予告, 今回, 休み, 何, 何処, 姿, 差別, 投函, 数, 日, 映画, 本日, 物語, 男, 胸, 購入, 追記, 郵便, 鑑賞,

99％ありがとうをパラ読みして(｀・ω・´)

2014.08.28

Logging

藤田正裕さんは正直ものだと99％ありがとうをパラ読みして思った。

交換しよっか？
おまえとおまえのつまんねー生活への愚痴や言い訳、もう散々・・・・正直、クソくらえ。
 

この文面を読んだ時、この人は強いわ。もう十分、ALSという病に勝っている、あとは根治させる薬を待つだけです。たぶん、この人はALSという病に勝つと思います。病に勝つという気持ちを持っている人はその時点でもう勝っているだと自分は思います。毎日、生と死の戦いをしている、それだけでも並外れた精神力です。そして生きるを自分で選択している。
普通の人は病に侵されると精神がまいります｛なんで自分は、こうなるのだと思うんです普通は｝、そこから這いがってくる人は少ない、それに打ち勝つ人が中にはいます。そういう人は精神力が強い。何クソかという生へ執着心＝精神力が強い人だと思います。ALSに勝ってほしいと自分は心から思います。
こういう人こそカッコイイっていうだなと心底おもいます。

タグ

99, ALS, nbsp, あと, おまえ, クソ, そこ, それ, それだけ, もの, 中, 交換, 人, 何, 執着心, 心底, 愚痴, 戦い, 散々, 文面, 時, 時点, 普通, 根治, 正直, 正裕, 死, 毎日, 気持ち, 生, 生活, 病, 精神, 精神力, 自分, 薬, 藤田, 言い訳, 選択,

おすすめ度の高いフリーのエディタです｛Notepad++｝。

2014.08.22

Logging

おすすめ度の高いフリーのエディタです、エディタ名がNotepad++（DL日本語対応）という奴なんですけど(δ´ω｀)ｶﾕｲところに手が届く優れものです。昔は秀丸やサクラエディタを使用してたんですけど、このNotepad++に出会ってからずっとNotepad++を使用しています。何がそんなに良いのかといえば、動作が軽いこと、そしてバイナリもみえちゃうし、プラグインも充実してます。なんで、このNotepad++がおすすめです｛言語自動補完機能あり、文字コード変換あり等など｝。サクラエディタのようにgrep機能（ファイル内検索）もあります、あと正規表現の検索や置き換えなどもありますので自分としてはおすすめ度高いです。昔、務めていた会社では何故か、MIFES（マイフェス）とかいうテキストエディタを使用してました。
ちなみにファイルの差分を見たい場合は、WinMerge 日本語版など、バイナリを見たい場合は、StirlingやBZが有名ドコロです。
追記：
IDEで良い物を見つけました。
NetBaseです、これは職場でも使っています。言語自動補完機能ありますが若干遅いのが難ですね。
有料でよければ、PhpStormが良い感じですね。2万円とちょっとします。他にもatomやマイクロソフト
提供のVisual Studio Codeなどがあります。
https://netbeans.org/features/ide/
https://www.jetbrains.com/phpstorm/
https://atom.io/
https://www.visualstudio.com/ja-jp/products/code-vs.aspx

追記2 ：今では古い話なのでVisual Studio Codeを推奨します（2021年に追記）！！

タグ

BZ, DL, grep, MIFES, Notepad, Stirling, WinMerge, エディタ, おすすめ, ｶﾕｲ, コード, こと, さくら, テキスト, ところ, バイナリ, ファイル, フェス, プラグイン, フリー, マイ, 会社, 何, 使用, 充実, 動作, 場合, 変換, 奴, 対応, 差分, 手, 文字, 日本語, 日本語版, 昔, 有名, 検索, 機能, 正規, 秀丸, 自分, 自動, 表現, 補完, 言語,

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, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ﾖﾛｼｸ, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,

STAND BY ME ドラえもんが大ヒット上映中。

2014.08.17

Logging

STAND BY ME ドラえもんが大ヒット上映中です、自分が子供なら絶対に観に行く映画ですと言うのも子供の時、ドラえもんの映画とアニメ、漫画は欠かさずに見ていたぐらい好きでした。今でも好きです、夢があって良いアニメだと思います。ただ、未来を書き換えるのは犯罪行為だとも思いますが・・・・(´Д｀)。子供の時はそんな事を考えてませんでしたので、素直なのび太君と優しいドラえもんのコンビが好きでした。そして映画では、何故か大活躍ののび太君、銃を持たせば的中率100％、マヌケなのび太君ですけど何故か憎めないキャラです｛何か似てるなと思う節あり｝、そんなトコロが大好きでしたね。
このドラえもんを通して原作：藤子・F・不二雄さんが言いたかったことは何だろう？、人生は勉強だけが全てではないとかそういうこと何だろうと思います。
映画は観ていないけど、このドラえもんはおすすめ度は高いです。泣けそうな気がします・・・。ちなみにブルーレイでスタンド・バイ・ミー、ドラえもんが発売したら、もしかしたら買うかもしれない(^_^)。
http://youtu.be/IVuXGgOGR7Q　［STAND BY ME ドラえもん映画予告］
※現在TOHOシネマズ、ランキング1位です。

タグ

100, BY, ME, STAND, アニメ, おすすめ, キャラ, こと, コンビ, スタンド, トコロ, ドラえもん, のび太, ヒット, ブルーレイ, マヌケ, 上映, 不二雄, 事, 人生, 今, 何, 全て, 勉強, 原作, 夢, 大活躍, 子供, 映画, 時, 未来, 気, 漫画, 犯罪, 的中, 節, 素直, 自分, 藤子, 行為, 観, 銃,

accessを購入します｛本日、購入｝。

2014.08.16

Logging

Access2013を購入します、旧のアクセスは持っているのだけどセキュリティ上使用できなくなったので購入します。ちなみにアクセスは、いまいち使い勝手良くなかったので今まで牽制していましたが、この頃、使用してみて基本的にエクセルVBAとそんなに変わらないなという事がわかりました。エクセルVBAにDB機能とシステム要素が付与したものと考えると良い感じですね。ただ、Formの呼び出しなどが、もっとソフト開発（VisualStudio）よりな呼び出しになっている感じです｛最初はわからなったです｝。よくよく考えるとVisualStudioなんてものを使用せずとも結構これだけで、ひと通りの事が出来そうです｛前にも同じこと言っていた気がします｝。
購入して何を作るかっていう所ですけどサンプルコードをひとつ作って見ようかなと、あとは、ちょっとしたデータ入力のために簡易てきな入力システムみたいなものを作ってみようと思いますが、こちらは公開しません。

タグ

2013, access, db, Form, VBA, VisualStudio, アクセス, あと, いまいち, エクセル, コード, コチラ, こと, これだけ, サンプル, システム, セキュリティ, ソフト, ため, データ, ひとつ, ひと通り, もの, 事, 付与, 何, 使い勝手, 使用, 入力, 公開, 前, 感じ, 所, 旧, 最初, 本日, 機能, 気, 牽制, 簡易, 要素, 購入, 開発, 頃,