@Blog{zip358.com}

動画編集の方法をYOUTUBEで解説している人＋クリエイター

2020.01.25

Logging

動画編集の方法をYOUTUBEで解説している人 GIV-ギブさん、Premiere Pro（プレミアプロ）などの編集ソフトの方法を解説してくれてます。自分もこれから動画などをYOUTUBEにUPしていこうと思っているのでとても勉強になる動画です。動画編集の本を購入する予算がいま無いので切り詰められるところはネットで勉強して技術習得を行うつもりでいます。

ネット情報だけで、こんなにも良い情報が転がっていることが驚きです、昔は技術がこんなにもなかったと思います。ここ数年で情報がかなりオープンになってきている気がします。これはいろいろな事を始める一歩を踏みやすい状況になってきていると感じます。

最後に動画編集の解説と GIV-ギブさん のチャンネル登録URLを貼っときます。

https://www.youtube.com/channel/UCPodLbvajx-60sRzRqL338Q/featured

タグ

338, 60, channel-, com, fea, GIV-, Premiere, Pro, sRzRqL, UCPodLbvajx-, UP, url, youtube, いま, いろいろ, かなり, ギブ, クリエイター, ここ, こと, これ, ソフト, チャンネル, つもり, ところ, ネット, プレミア, プロ, 一, 予算, 事, 人, 勉強, 動画, 情報, 技術, 数, 方法, 昔, 最後, 本, 気, 状況, 登録, 編集, 習得, 自分, 解説, 購入,

WordPressのメディアライブラリについて愚痴る。

2020.01.08

Logging

過去のデータベースを引き継いでいればメディアライブラリのデータは
壊れないが、途中でXMLなどデータをインポートすると
メディアライブラリでは管理出来なくなってしまう。

これを呼び戻すには Add From Server やmedia from ftpなどのプラグインを
使用して呼び戻すしか無いようだと思っていたが、唯これをしてしまうと
いささか問題があるので使えない。
このプラグインは基本的に新規で構築する際に
画像をFTPで一先ず一括アップロードして使用する場合などに対しての
プラグインである物なのでいささか違う。

なので今回、自分で自作しようと思っていたが、、、
特に過去の画像を編集するつもりもないので辞めた。
ちなみにメディアライブラリの画像はwp_postsとwp_postmetaに
保存されている。

下記のURLを見て昔、これでトラブルになった事を思い出した。
WordPressで画像はどのようにデータベースに記録されているか

上記のようなことから、データベースの画像の欠損を復元するのは
正直なところ面倒。投稿データには大体、データは残っているのだが
メタデータが欠損していてメディアライブラリに表示されないということが
殆どだと思うが、このメタデータを復元するのは至難、なぜなら
投稿データって使っているIDとメタデータのIDのリンクを上手く結びつける
事ができないからとてもエンジニア泣かせである。

要するにメタデータIDの方が以前使っていたIDを別の要素のIDが
使っていたりして…。
これを整理しながら元に戻すのは非常に至難だと言うこと。

なので、結論を言えばちゃんとデータベースのバックアップ取りましょう?

タグ

Add, from, FTP, media', postmeta, posts, SERVER, url, WordPress, wp, xml, アップロード, インポート, これ, つもり, データ, データベース, トラブル, プラグイン, メディア, ライブラリ, 一括, 下記, 事, 今回, 使用, 保存, 問題, 場合, 新規, 昔, 構築, 物, 画像, 管理, 編集, 自作, 自分, 記録, 途中, 過去, 際,

ブログはオワコンなのか？

2020.01.07

Logging

ブログはオワコンなのか？
アンサー：ブログはオワコンではないです、ただアフェリエイターはオワコンと
言えばよいのだろうか。アフェリエイターとしてはもう稼ぐのは
難しい時代になっているようです。

長く続けているブロガーは独りで生活できる収益を最低得ていると思います。
じぶんはまだまだ年月が浅いブログ書きなので、それほど収益はありません。
これで生活が出来なくても自分はブログを続けていくつもりでいます。

理由も特に無く、ただなんとく続けています。
ちなみにブログはもうオールドツールのような物だと思います。
いま、情報発信のツールといえばNoteやYOUTUBE、Instagram、
Twitterなどで発信すると良いと言われていてブログ単独での発信だけでは
アクセス数もなかなか難しい時代になっているようです。

とは言え、自分のサイトも徐々にアクセス数伸びています。
何だかよくわからないけど、過去のブログやリピーター様もいるようで
アクセス数は右肩上がりです。?
たまに三桁アクセス数になったりします、前はそれが当たり前だった時も
ありましたが、、一時期休んだりSEO的にマイナス的な事をして
数ヶ月、アクセス数が一桁に落ち込んだ事もありましたが
ブログを改善して徐々にアクセス数が戻ってきてます。

ありがとうございます。

そしてこの頃は
匿名質問箱で絡んでくれるユーザーもいて、何かブログ続けていて
良かったなと思います。知人ユーザーさんもいると思いますが
それでも有り難いものです。

話戻しまして、自分は昔から書き物や描きものをすることが
好きでして、それでブログを書き始めました。
いろいろなブログを立ち上げては閉鎖するなどの事を繰り返して
今のブログに落ち着いています。ブログオワコン時代でも
ブログという情報発信ツールは消えないと思います。

なので、これからもブログを書き続けていきます。
これからもよろしくお願いいたします。

タグ

Instagram, note, Twitter, youtube, アクセス, アフェリエイター, アンサー, いま, オールド, オワコン, これ, サイト, じぶん, だだ, ツール, つもり, ブロガー, ブログ, リピーター, 単独, 収益, 右肩, 年月, 情報, 時代, 最低, 物, 独り, 理由, 生活, 発信, 自分, 過去,

質問箱とask.fmの違い

2020.01.05

Logging

質問箱とask.fmの違いは質問箱は匿名質問箱で誰でも質問OKなところ、ask.fmは匿名さんはNGにすることが出来る。

質問する側からすれば質問箱の方が気楽に質問できるので良いと思います。

本日、ask.fmの方の過去回答を全てを削除しました。
https://ask.fm/zip358com

こちらに関しては回答するつもりはあまり無いです。
なので、質問箱にご質問よろしくお願いいたします。
?
https://peing.net/ja/zip358com?event=0

タグ

358, ask, com, fm, https, NG, OK, zip, お願い, こちら, こと, ご質問, つもり, ところ, 側, 全て, 削除, 匿名, 回答, 方, 本日, 気楽, 誰, 質問, 過去, 違い,

悲しみの果てに？

2019.12.28

Logging

先日、二次面接（最終面接）に行ってきたのですが
不採用になり来年から働けるかなと言う淡い期待は消えてしまいました^^;）
まぁそれはそれで…あまり気にしていないのです。

年齢とかもあるので、いろいろと不利なのかなと思いつつ。
本当にそうなのか？
経営者の考え方もあると思いますが…。

ちなみに内定をもらっていた会社を辞退を2社しているので
あまり関係ない気もします。

トイウコトデ、今年は就職活動お休みです。

ちなみにIT関係の会社以外も来年は受けてみるつもりでいます。

タグ

2, IT, いろいろ, お休み, それ, つもり, トイウコトデ, 不利, 二, 今年, 会社, 先日, 内定, 就職, 年齢, 採用, 最終, 期待, 本当, 来年, 気, 活動, 経営者, 考え方, 辞退, 関係, 面接,

スーツ交通チャンネルが面白い。

2019.11.26

Logging

早口な喋りだけどテンポと声が良いので最後まで聞ける。
だいぶ声で得しているなという印象です、賢いしこの人が伸びるのはよくわかりますね。

ユーチューバーは嫌いか好きかに別れるぐらいがちょうどよいのかも。
そしてこれを見ているとまだまだYOUTUBEは隙間産業があるじゃないかなと思ってしまうほどです。

スーツ交通チャンネルは今後も伸びていきそうな気がします。
鉄道好きや旅好きな方、また彼の声フェチな方にもオススメできる動画かなと思います。

自分は彼の物知りなところと少しズレているところが面白みがありそして人間性が出ていて好きです。

おそらく目標金額が達成すると徐々に動画の本数が減っていくかと思います、彼もユーチューバーで
一生生活するつもりは無さそうです。

ANAダイヤモンド会員になるため修行！プレミアムクラスで沖縄３往復　羽田空港?那覇空港 12/19-0

タグ

0, 12, 19, ３, ANA, youtube, おすすめ, クラス, これ, スーツ, ズレ, ダイヤモンド, ため, チャンネル, つもり, テンポ, ところ, フェチ, プレミアム, ユーチューバー, 一生, 交通, 人, 人間性, 今後, 会員, 修行, 動画, 印象, 声, 嫌い, 少し, 彼, 往復, 方, 旅, 早口, 最後, 本数, 気, 沖縄, 物知り, 生活, 目標, 羽田空港, 自分, 達成, 那覇空港, 金額, 鉄道, 隙間産業, 面白み,

無職あまり響きが良くないよな。

2019.11.21

Logging

今日から無職です。
早くお仕事に就きたいです、前職を何故辞めたかについては
ブログで書くこともないかなと思います。

IT業界の人々は退社したことをブログなどで書かれていますが
本当に良い会社なら辞めずに働いていることが多いじゃないかな。
ステップアップのため辞める人も結構増えてきていますが・・・。

この一ヶ月で4社受けて、2社面接まで進みました。
1社は人工知能の会社です、こちら仕事内容が違っていたので
何となく面談でその流れになり辞退のようなものになりました。

今日、1社、面接を受けてきました、どう判断するかは未知数です。
もし不採用だったら2,3社受けてそれでも駄目だったら
今後プログラミングは趣味兼副業として行うつもりです。

正直なところ、高知県で働きたいIT会社ってあまりないのが現状、
そして高知県のIT会社は4割はブラックです。
現状を知っているので受けたくないのです・・・。

タグ

１, 2, ３, 4, IT, アップ, お仕事, こちら, こと, ステップ, それ, ため, つもり, ところ, ブラック, ブログ, プログラミング, もの, 一, 人, 人々, 人工, 今後, 今日, 仕事, 会社, 兼, 内容, 判断, 前職, 副業, 採用, 未知数, 本当, 業界, 正直, 無職, 現状, 知能, 趣味, 辞退, 退社, 面接, 面談, 駄目, 高知県,

オブジェクト指向を勉強するのに最適なのは

2019.04.05

Logging

オブジェクト指向を勉強するのに最適なのはjavaのような気がする。
C言語で理解するというのはベタなのかもしれないけれど、
javaが最適化と思ったりする。
javaとjavascriptとは全然違うけれど、javascriptもかなり
ゴリゴリ書こうと思えば書けます。
プログラムをどこから学べ良いだろうかと悩んでいる方は
ソフトウェア系ならjava、Web系ならjavascriptが良いじゃないだろうか。

仕事でコードのレベルを上げるべきなのかというのは
人それぞれ考え方が違うかもしれないけれど、人が多ければ多いほど
平均に合わさないといけないのではないだろうかと思うのです。
これ本当に大事なことなんです。
訳のわからないコードは負の遺産に他ならない。
自分は他人のコードを見て大体の平均に合わせて書いているつもりです。
新人が入社してきてもそれまで勉強してきたことで
理解できるレベルでコードを書いている。
なのであまりコメントは書かない。
修正に修正を加えたコードを見ているとこれは直すべきだと思う人も
いると思う、昔はそう考えていた時もあったけれど
今はそれで良いじゃないだろうかと思っています。
何故かといえば、処理がかなりの遅延になっていれば
それは直さないといけないけれど、そうではない場合は
わざわざ直す必要はないと教えられてきたこともあり
直さない。先人に敬意を払うということだ。
言語のバージョンによって直さないといけない箇所は
出てきます、そういう箇所は修正しないといけないかもしれないが
そうではない場合、直さなくて良いが
答えではないだろうか。
来週からコードサンプルに戻ります。

タグ

java, javascript, web, オブジェクト, かなり, コ, コード, こと, これ, ソフトウェア, それぞれ, それまで, つもり, どこ, プログラム, ベタ, レベル, 人, 仕事, 他人, 入社, 勉強, 大事, 大体, 平均, 指向, 新人, 方, 最適, 最適化, 本当, 気, 理解, 系, 考え方, 自分, 言語, 訳, 負, 遺産,

javascriptを勉強中

2018.12.15

Logging

var a = 3;
var b = 10;
var obj = {
        hoge:function(a){
            a = a + a;
            return a;
        },
        a:a = a && 5,
        b:b = b || 3
    };
console.log(obj.hoge(2));
console.log(obj.a);
console.log(obj.b);

上記のCodeを動かすと仕事と表示されます（笑）、4，5，10と表示されます。
何故そうなったかを考えるとキリがないのでそういうものだと
思ったほうが良いかもしれないです。
説明するとhogeはオブジェクトです。あとは変数とIF文の省略系を
記述しているだけです、実際は＝もいらないですが・・・。
わかりやすく自分なりに記載したつもりです。
javascriptライブラリってこういうのが何百行も記載して成り立っていますが
概念はこういう事です。自分は基本的に概念しか覚えないのです。
何故、そうしているか・・・自分が怠惰な人間だからです。
 

タグ

10, 2, ３, 4，5，10, 5, amp, Code, console, function, hoge, if, javascript, log, obj, return, var, あと, オブジェクト, キリ, つもり, もいら, もの, 上記, 仕事, 勉強, 変数, 実際, 文, 省略, 自分, 表示, 記載, 記述, 説明,

副業はしない方向へ但し！？

2017.11.01

Logging

副業はしない方向へ但し
副収入や運用とかするつもりでいますし、しています。
副業するのが結構面倒くさい、仕事が終わってクラウドソーシングの仕事が請け負えるどうかワカラナイものにチャレンジするよりも、運用とか株式運用とかしている方が自分にはあっているのかなと思えてきた。
運用ではそれなりに収益も出てるからその方が良いかなと。
ちなみに株式運用とか口座は有るけれどまだ始めてはいません。
来年から始める予定でいます。二年ぐらい運用してオリンピックが始まった頃に現金化し、オリンピック後一時期、日本は不景気になるだろうから株価が下がった頃に、じぶんがコレだなと思う銘柄を購入するつもりでいます。
副業することが一番、収入が増えると思いますが本業が終わった後、副業するのは正直な所、面倒です。
体力的にも大変ですし、体を壊したりしたら元も子もないので、今のところ副業する事は一旦、保留にします。
でも、今のお給料で一人暮らしは大変かなと。

タグ

オリンピック, お給料, クラウド, こと, コレ, じぶん, ソーシング, それなり, チャレンジ, つもり, ところ, もの, 一人暮らし, 一旦, 一時期, 不景気, 予定, 事, 二, 今, 仕事, 但し, 体, 保留, 元, 副業, 収入, 収益, 口座, 大変, 子, 後, 所, 方, 方向, 日本, 本業, 来年, 株価, 株式, 正直, 現金, 自分, 購入, 運用, 銘柄, 面倒, 頃,

高知県では上映されない映画だけど観てみたい映画。

2016.08.08

Logging

高知県では上映されない映画だけど観てみたい映画、
タイトルは「奇跡の教室 受け継ぐ者たちへ」です。実話を基にした映画だそうで
ますます観たくなったのですが、高知県では上映されないので
レンタルが始まったら観てみようと思っています。
http://kisekinokyoshitsu.jp/
ちなみにこれから観に行く映画は、X-MENとジャングル・ブックです。
ちょうど、15日、16日が夏季休暇なので観に行くつもりです。
観たら映画の感想を載せます。

タグ

15, 16, X-MEN, これ, ジャングル, タイトル, ちょうど, つもり, ブック, レンタル, 上映, 基, 夏季休暇, 奇跡, 実話, 感想, 教室, 映画, 者, 観, 高知県,

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

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

FF15がヤバい事になってる…(・・)

2015.10.04

Logging

FF15（ファイナルファンタジー15）の体験版がヤバい事になってるけど凄いなコレ、どんだけお金をつぎ込んでいるだ。
是非ともPC版も出して欲しい所です。PS4で購入するつもりでいるけど何だか、アクションRPGみたいになってるみたいだからアクションが不得意な自分にとってはクリアするのに一年ぐらいかかりそうな気がします。
おそらく、スクウェア・エニックスは開発以上の収益は得られそうにない気がします。もしくは赤字ポッい
タイトルですね、当初のリリース日から延期に延期と…いつになったら発売されるだみたいな事になってますから。
おそらく、FF16とかその他のRPGなんかにも汎用性あるように開発しているだろうから
長期的にみれば元は取れるだろうとは思いますが、このFF15、１タイトルだけでは開発費用は回収できそうにないですね。
発売されれば購入するつもりでいます。おそらく来年辺りには発売されるだろうなと思っています。それまで貯蓄して待っときます。

タグ

１, 15, 16, 4, FF, https, PC, PS, RPG, アクション, いつ, エニックス, お金, クリア, コレ, スクウェア, その他, それまで, タイトル, つもり, ファイナルファンタジー, リリース, 一, 不得意, 事, 体験, 元, 収益, 回収, 延期, 当初, 所, 来年, 気, 汎用性, 版, 発売, 自分, 貯蓄, 費用, 購入, 赤字, 開発,

速報 平成27年度、春期 基本情報技術者の午前の解答はこちら。(^^ゞ

2015.04.19

Logging

速報 平成27年度、春期?基本情報技術者の解答です。試験お疲れ様でした、今回は残念だったひとは次回頑張ってください。私なんて受けてもないですから次回、合格するつもりで今からコツコツと勉強するつもりでいます。基本情報の合格率は25％?30％なんですから落ちてもめげることはないかと思います。頑張らない程度に頑張りましょう(^^ゞ
追記：2015/10/18
http://www.o-hara.ac.jp/best/jyoho/sokuhou/kihon1510.pdf??平成27年度、秋期?基本情報技術者 解答リンク
下の解答はあくまでも私的解答ですので上記のリンクを目安にしてください。
平成27年度、秋期?基本情報技術者 解答
——————————————————————-

https://twitter.com/zip358com/status/655657591243014144

https://twitter.com/zip358com/status/655657623119790082

https://twitter.com/zip358com/status/655657651645231104

https://twitter.com/zip358com/status/655657651645231104

https://twitter.com/zip358com/status/655657680388751360

https://twitter.com/zip358com/status/655657710759776256
?
https://twitter.com/zip358com/status/655657744175898624

https://twitter.com/zip358com/status/655657782046121984
?
https://twitter.com/zip358com/status/655657814828822528
——————————————————————-
平成27年度、秋期?基本情報技術者 解答
https://twitter.com/zip358com/status/589707472874508288
https://twitter.com/zip358com/status/589707546807508992
https://twitter.com/zip358com/status/589707588360491009
https://twitter.com/zip358com/status/589707621638115329
https://twitter.com/zip358com/status/589707651241521153
https://twitter.com/zip358com/status/589707693696241665
https://twitter.com/zip358com/status/589707724042043392

タグ

-------------------------------------------------------------------, 10, 1510, 18, 2015, 25, 27, 30, ac, best, http, https, jp, jyoho, kihon, o-hara, pdf, sokuhou, twi, www, こちら, こと, つもり, ひと, リンク, 上記, 今, 今回, 勉強, 午前, 合格, 基本, 平成, 情報, 技術者, 春期, 次回, 残念, 目安, 私, 秋期, 程度, 解答, 試験, 追記, 速報,

12月到来、、｛PGなどの話。｝

2014.12.03

Logging

12月到来して、数日経ちましたが来年（2015）までに何か一つ作ろうかなと思います。
あと、休んでいたブログを土曜日から適度な更新に変更します（たぶん）。
追記：
現在、ガソリン代節約のため試しに電車通勤をしています、今のところ、出発の時間帯があわないところもありますが、それほど不便とは思わなくなりました。来年からは、本格的に電車通勤でと言うことも考えています（ガソリン代が落ちれば車通勤に変えますが・・・今のところは電車通勤を継続するつもりでいます。）

タグ

12, 2015, PG, ガソリン, こと, ため, つもり, ところ, ブログ, 一つ, 不便, 今, 出発, 到来, 土曜日, 変更, 帯, 数日, 時間, 更新, 来年, 現在, 節約, 継続, 話, 車, 追記, 通勤, 適度, 電車,

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

2014.10.01

Logging

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

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

追記日：2022/09/30

タグ

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

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

良いこと聞いた、今のマイクロソフトの製品は｛知らなかっただけ｝

2014.08.16

Logging

今のマイクロソフトの家庭向け製品は、パッケージとか言いつつも全てダウンロードしてインストールする方式になっているのだと言う事を知ったU＞ω＜)ﾉ｛情報筋はアプライド｝。ちなみにヤマダ電機にも足を運んだのですが、アカデミック版しか在庫がないと言われてアプライドへ行ってきましたが、値段が少々、ヤマダ電機よりお高いので断念。結局、買わずに帰ってきてネットでパッケージ版を購入しました。先ほど言ったようにマイクロソフト製品はダウンロード版に移行したということなので、ネット購入したほうが安くOffice製品は買えるということです！！。メモ書き程度に残しときます。
ちなみに、ひとつ疑問を抱いたのが・・・それってOSの方もなのかなぁっていう疑問です？、次期OS、Windows9になったらOSを移行するつもりなので、それまでは疑問符です｛一度、8.1にバージョンアップしていたのですが、結局、7に戻しました。｝。

タグ

7, 8.1, ９, Office, OS, Windows, アカデミック, アップ, アプライド, インストール, こと, ソレ, それまで, ダウンロード, つもり, ネット, バージョン, パッケージ, ひとつ, マイクロソフト, メモ書き, ヤマダ電機, 一度, 事, 今, 値段, 全て, 在庫, 家庭, 少々, 情報, 断念, 方, 方式, 次期, 疑問, 疑問符, 移行, 製品, 購入, 足,