@Blog
日常日誌からプログラムやYOUTUBER紹介、旅日記まで日々更新中です。
(´ι _` )アッそうなんだそうなんだPHP fileメソッド
2015.11.09
PHPのfileメソッドっていうのが便利です。
ファイルを配列として引っこ抜いてくれる。こんな関数便利だなと
おそらく他の言語でも常識的にある関数なんだろうけど
自分はあまり知らなかったので便利だなと。
もうひとつ便利な関数は配列の中に空の値があったりすると
その配列を削除してくれるarray_filterとかいうものです。
これは便利・・・何故かってPHP、配列の中が空でも
値があるよって判断するです。そういう時に少し便利です。
emptyは使えないので・・・。もし配列が空でも必要な場合は
strlenとかでバイト数を数えるなどで対応するしか無いですね。
そういう事でメモがてらに残しときます。
$hoge = file("hoge.txt"); for($i=0;$i<sizeof($hoge);$i++){ echo hoge[$i]."<br>\n"; } print($hoge); $hoge2 = array_filter($hoge); print($hoge2);
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
0, 2, array, br, echo, empty, file, filter, For, gt, hoge, lt, php, print, sizeof, strlen, txt, アッ, これ, バイド, ファイル, メソッド, メモ, もうひとつ, もの, 中, 事, 他, 便利, 値, 判断, 削除, 場合, 対応, 少し, 必要, 時, 空, 自分, 言語, 配列, 関数,
映画、MOZU(モズ)を観てきましので感想なんかを。 #映画レビュー #劇場版MOZU
2015.11.08
映画、劇場版MOZU(モズ)を観てきましので感想なんかを残しときます。
WOWOWのドラマ版、MOZUはいっさいみていないまま
今日、映画版のMOZUを観に行ってました。
今までのストーリーも何もかも知らないで
ただ、映画予告を観てみたいなと思いみてきたのです。
北野武 氏は挨拶で雑誌で書かれた妾(めかけ)の話をしたそうです。
そういうの映画にはあまり良い印象を与えない・・・
映画を純粋に楽しむ為に、俳優さんの情報はいらないと自分は
思っています。これから映画の楽しむのに余計な情報は
本当に余計です・・・。
そんなで映画を本日、観に行ってきたのですが
そんな事を忘れるぐらい、結構、衝撃的でした。
PG12だったので、それなりに残酷なシーンもありましたが
何というか、ダルマの手玉の中でずっと転がされているような
そんな感覚を感じる映画になっていたと思います。
結局、ラストどうなったのかを知りたくてエンディングの終わりに
何かあるじゃないかって席を立たなかったのですが
分からずじまいでした。自分としてはスピンオフより続編を
作って欲しいです。いったい倉木に何があったのか?
ラストの倉木はまるで・・・・ですからね。
そこが知りたいです。真実を知りたくなるっていうのは
人間の欲求なのかもしれないですね・・・。
何だか、都市伝説のように、この映画なるかもなって
密かに思ってます、実際オリンピックが2020年に東京でありますけど
その後、日本ってそれなり世の中かわるような気もします。
もうカオスは始まっているのかも・・・!!
ちなみにMOZUっていう題名の通り、百舌鳥の早贄(はやにえ)の行動も
映画の中で解説してます。←獲物を木にの枝に串刺しにする奴です。
追記:
残酷なシーンが結構あります、なので残酷なシーンや酷いシーンは
ちょっとと思う人は観ないほうが良いです。
だた、この映画が伝えたい事の中に貧困の国の問題があるなと感じました。
実際はもっと奇なりなのかもしれないと臓器売買や人身売買など
こういう闇の部分をこの劇場版MOZUを通してみることが出来ました。
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
12, MOZU, PG, WOWOW, エンディング, これ, シーン, ストーリー, ダルマ, ドラマ, まま, めかけ, モズ, ラスト, レビュー, 中, 予告, 事, 今日, 余計, 俳優, 劇場, 北野武, 印象, 妾, 情報, 感想, 感覚, 手玉, 挨拶, 映画, 本当, 本日, 残酷, 為, 純粋, 自分, 観, 話, 雑誌,

映画、エベレスト3Dを観てきましので感想なんかを。 #映画レビュー #エベレスト3D
2015.11.07
映画、エベレスト3Dを観てきましので感想なんかを残しときます。この映画、実話であり真実の物語という事で若干、感動するのかなとかそういう想いで映画を観に行きました。結果、全然違うことを感じることに。
3Dだったためか、すごく臨場感があり良かったのですが、どんどんと話が進むにつれてエベレストという山がどんなに険しくて危険な山なのかを垣間見ることが、この映画を通して観ることが出来ました。
本当にエベレストに登頂するということは命懸けなんだなと、そして一つ間違うと死んでしまう事さえもある、過酷な山。
凍傷で手や鼻が無くなっても生きているだけで本当にラッキーなんだなと思える、そんな映画です。
映画を観て山の怖さや命の尊さ(悲しみ)などを感じることになりましたが、何か映画を観て登山をしてみたい気持ちにもなりましたから不思議です。こんな人にお勧め、これから登山を始めようとか
山に興味を持っている人にお勧めですね。
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
3, エベレスト, お勧め, こと, これ, ため, ラッキー, レビュー, 一つ, 不思議, 事, 人, 凍傷, 危険, 命, 命懸け, 実話, 山, 感動, 感想, 手, 映画, 本当, 気持ち, 物語, 登山, 登頂, 真実, 結果, 臨場感, 興味, 若干, 話, 過酷, 鼻,
さくらVPSでカスタムインストールでWEB(httpd)が表示されない時の対応。
2015.11.03
さくらVPSでカスタムインストールでWEB(httpd)が表示されない時の対応。
iptablesもポート80番を開けているのに・・・何故かWEB(httpd)が表示されない
プロセスも起動しているしhttpdのプロセスも動作している。
なのに・・・表示されない。
cnetOS7を自分がインストールした時に起きた事象です。
これを解決する方法は、一度、ファイアーウォールのHTTPポートストップさせましょう。
そうするとおそらくiptablesの設定がうまく行っていたら
表示されます。
ちなみに下記のコマンドでファイアーウォールのポートは解除できます。
firewall-cmd --zone=public --add-service=http --permanent firewall-cmd --reload
自分はこれが分からなくて一時間ばかし悩んでいました。
https://knowledge.sakura.ad.jp/10534/
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
--add-service, --permanent, --reload, --zone, 7, 80, cnetOS, firewall-cmd, http, httpd, iptables, public, VPS, web, インストール, カスタム, コマンド, これ, さくら, ストップ, ファイアーウォール, プロセス, ポート, 一, 一度, 下記, 事象, 動作, 対応, 方法, 時, 自分, 表示, 解決, 解除, 設定, 起動,

この頃、記憶力が鈍化している。
2015.10.30
この頃、記憶力が鈍化している気がする・・・。前はメモをとらないで覚えていたことはたくさんあったのだけど
この頃、あまり興味のない出来事などはスカッと抜けて落ちているような気がする。
これは今に始まったことではないけれど、記憶が曖昧で結局メモをみると自分が覚えていたことが正しかったのだと
思える事が多い。{{ちなみに、この頃ではASKの質問で同じような質問があったので調べてみるとやはり同じ質問があったと言う感じです。}}
この頃続きで、いまAndroid開発の勉強をしている。勉強をしていて思ったことは習うより慣れろだと言うこと。
そして、ある程度、分かっている人なら習ったほうが身につくということである。仕事でもそうだけどOJTがある職場が正しいのではないかと自分は思うようになった。中小企業は即戦力を求めているのでOJTがある方が珍しい。
逆に言えばOJTがあれば中小企業でも人材が育ち会社もプラスになることが多いような気がする。どこに力を注ぐかだと自分は思います。ただ、人材が育つには時間がかかるので体力的に中小企業は人材を育てることをしないのだとも思います。
よくある中小企業がやりがちな人材育成は出来ないような仕事をふっかけてくるという事です。
出来ないような仕事をふっかける、出来なかったらその人は辞めざる負えなくという様に持っていく。
出来たら君は優秀だ、よくやったと労う。
これでは人は育たないし良い環境は築けないと自分は思いますが、殆どの中小企業はこの主体で生きている。
どうしてそうするか?
会社が潰れると元も子もないという話だからです。
なので会社が悪いわけでもない。
経営って難しいような気がします。
人は思ったように動きませんからね・・・・。
?
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
Android, ask, OJT, いま, こと, これ, たくさん, どこ, メモ, 中小企業, 事, 人, 人材, 今, 仕事, 出来事, 前, 力, 勉強, 即戦力, 感じ, 方, 曖昧, 気, 職場, 自分, 興味, 記憶, 記憶力, 質問, 身, 逆, 鈍化, 開発, 頃,
プロキシで表示する奴の作成途中。配布するのは今だけ?
2015.09.19
プロキシで表示する奴の作成途中。配布するのは今だけ?
あとはプロキシのリストをサイトから抽出して自分が
繰り返し表示したいサイトURLを入力すれば自動的に
表示することが可能なものをつくるか、CSVで読み込んで
無限表示を行うかという奴をつくります・・・・
ますが、配布するかどうかは未定です。
これを作ってどういうことに役に立つか。
ブログランキングサイトのランキングを嵩上げするとか
YOUTUBEの再生回数を増やすとかそういうのに
悪用できるのです。
自分もこれを作るのにかなり調べまくりました。
ヒントを言うとSystem.Runtime.InteropServicesをインポートしてwininet.dllを
使ってプロキシ経由で表示させています。賢い人は違うなと・・・。
ここらへん、VBとかじゃなくC関係とかが強い人なら可能かもしれません。
あと、wininet.dllのソース載せときます、おそらくこれが無いと煮詰まらない、かなり
ヒントになるものです。https://zip358.com/tool/wininet.txt
トイウコトデ、今から寝ます。連休一日目から・・・不規則な生活リズムです。
https://zip358.com/tool/looper.zip
※尚、セキュリティソフトを入れている場合、通信の許可を可にしてあげないと
動作しません。
※繋がらないプロキシを使うと表示されないです。とくに回線が遅い場合、表示されないことが多いです(´Д`)。
あくまでも試作版なので。
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
CSV, dll, InteropServices, Runtime, System, url, VB, wininet, youtube, あと, インポート, かなり, ここら, こと, これ, サイト, ソース, ヒント, プロキシ, ブログ, もの, ランキング, リスト, 人, 今, 作成, 入力, 再生, 可能, 回数, 奴, 嵩上げ, 役, 悪用, 抽出, 未定, 無限, 経由, 自分, 表示, 途中, 配布, 関係,
関数型プログラミングに目覚めた!IQ145の女子高校生の…
2015.08.20

関数型プログラミングに目覚めた!IQ145の女子高校生の先輩から受けた特訓5日間という本を買ったのですが、プログラミングの作法はあまり書かれていなく、どちらかと言えば解説が多い本です。ただ、自己流でいままで作ってきた人にはそれなりに知識の得られる本になっていると思います。自分はいままで誰かに習った経験がないので結構ためになった本です。習える環境がある人達を見ていた経験(派遣)から言うと羨ましい限りです。習えない環境の下で働いている人達の方が貪欲であることは確かだと思います。これって良い例かわからないですが、日本と昔のアフリカの教育みたいなものでアフリカの生徒たちは日本の生徒たちに比べて貪欲に学習します。教わることが当たり前の環境の下とそうでない違いは明らかに違ったりするのです。この「関数型プログラミングに目覚めた!」という本はそんな貪欲にプログラミングを学びたい方には結構ハードルが高いですが、勉強になることは確かだと思います。Amazonの評価は若干、低いものの、そう書いていることは悪く無いと感じました。
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
145, 5, IQ, アフリカ, こと, これ, それなり, ため, どちらか, ハードル, プログラミング, もの, 下, 人, 作法, 例, 先輩, 勉強, 女子, 学習, 当たり前, 教育, 方, 日本, 昔, 本, 派遣, 特訓, 環境, 生徒, 知識, 経験, 自分, 自己流, 解説, 誰か, 貪欲, 違い, 関数, 限り, 高校生,

見知らぬ誰かとチャットを楽しめるWebサービス。chatpad
2015.03.04
chatpadは見知らぬ誰かとチャットを楽しめるWebサービスです。一昔前ならヤフーチャットっていう大きなサービスがあったんですけどね。いまの若い人達はチャットというWEBサービスなんてものを知らないで生きている人もいるかと思います。サービスの作りはLINEとさほど変わらないですね。LINEと違いチャットはリアルタイムに不特定多数やり取りするサービスです。テキスト系のメッセンジャーやスカイプと近いサービスと思ったら理解しやすいと思います。情報の交流のWEBサービスは結構出来たけど、逆にサービスが多くなりユーザーの分散化が進んでいるそうです。これから必要とされるサービスは一つのアプリでいろいろなWebサービスへ投稿できたり、情報を収集することのできるサービスが必要になっているのだとか。LINEというサービスが流行すると他者も同じようなサービスを提供しだしますが、結局、生き残るは2,3社ぐらいで後は消えていきます。いま、Webサービスは飽和状態なで、これからは淘汰される時期に来ているのかと思ってます。
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
2,3, chatpad, line, web, アプリ, いま, いろいろ, こと, これ, サ, サービス, スカイプ, チャット, テキスト, メッセンジャー, もの, ヤフー, やり取り, ユーザー, リアルタイム, 一, 一つ, 不特定, 交流, 人, 他者, 分散, 収集, 多数, 後, 必要, 情報, 投稿, 提供, 昔, 流行, 理解, 誰, 逆,

パスワードのチョメチョメ(***)が見えるソフト(Windows)はこれ(ノ´∀`*)
2015.01.13
パスワードのチョメチョメ(***)が見えるソフト(Windows)はこれです。
PasswordEyeというソフトです、結構、役に立ちます。ちなみにブラウザ上の
パスワードはIE以外は対応してないだとか。あくまでもWindowsソフトのチョメチョメ(***)が
見えるソフトです。ちなみにFirefoxの場合はブラウザ上のパスワード部分が
覗ける拡張アプリが存在したことを覚えています。
余談ですが、よく巷でパスワードが流出したとか言う記事を見かけると思いますが
絶対にDB上からパスワード流出しない会社があります。その中の一つに
グーグル社がはいってるとか・・・・。
パスワードに暗号化をかけるのはどの会社も行っている
事だと思いますが、暗号化したものは基本的に復号化する事が可能だと
思います。そうではないモノのもありますが・・・。どうもグーグル社の場合は
グーグル社のサーバー上でしか復号化できないような仕様になっているらしく
社外にパスワード情報が流出しても復号化は不可能らしいのです。
ちなみに世界的に有名なポータルサイトを列挙しときます。
日本ではYahooのシェア率が高いみたいですが、世界的にはグーグルが
トップです。
追記
たまには日本以外のポータルサイトを覗いてみるのも結構たのしいですよ。
ちなみにこれが国別Yahooのポータルサイトのアドレスです。
https://everything.yahoo.com//world/
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
db, Firefox, IE, PasswordEye, Windows, アプリ, グーグル, こと, これ, サーバー, ソフト, チョメチョメ, パスワード, ブラウザ, もの, 一つ, 上, 中, 事, 仕様, 以外, 会社, 余談, 可能, 場合, 存在, 対応, 巷, 役, 復号, 拡張, 暗号化, 流出, 社, 記事, 部分,
映画『42 世界を変えた男』が何だか泣けそう(´;ω;`)
2014.10.01
42 世界を変えた男が何だか泣けそうです。映画予告を観て即購入したので、休みの日に鑑賞するつもりでいます(本日、頼んでいたブルーレイが届きましたo(^▽^)o、またもやポストに投函されていたのですけど、今回は郵便扱いになっていたので何とも言えない。)。なお、レビューは追記して書きます…。
映画予告を貼っときます。
レビュー書いていなかったのを忘れて、数年・・・経ちました。一言で言えば良かったです、何処が良いのかというのは差別に立ち向かう姿ですね。これは胸熱くなる物語です、是非、観てみてください。
追記日:2022/09/30
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
09, 2022, 30, 42, これ, つもり, ブルーレイ, ポスト, レビュー, 一言, 世界, 予告, 今回, 休み, 何, 何処, 姿, 差別, 投函, 数, 日, 映画, 本日, 物語, 男, 胸, 購入, 追記, 郵便, 鑑賞,
本日WOWOWでPM7:30から清洲会議を放送。
2014.09.07
本日(9/7)WOWOWで三谷幸喜作品特集を行うらしいですよね。三谷幸喜監督の作品ってなんだか、日常のあるある的な要素を可笑しく面白く描いている(オヤジギャグ的)ので自分は好きです。バカ笑いというより失笑(こらえ切れず吹き出して笑う)の要素を含んでいると思います。
映画、清洲会議ですけど織田信長の死後、織田家の継嗣問題の人間模様を可笑しく面白く描いていて自分は好きです。これを現代に置き換えてみても通用するから文明が進んでも人がやっている事って、昔も今もさほど変わらないだなぁと思います。結局、人の心ってあまり全体的に進化(成長)しないだということですね。
まとめ、三谷幸喜監督(脚本家)の作品は人間模様に焦点を当てた映画を撮り続けている監督さんです。
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
30, 7, 9, PM, WOWOW, おやじ, ギャグ, こと, これ, バカ笑い, まとめ, 三谷幸喜, 事, 人, 人間, 今, 会議, 作品, 問題, 失笑, 心, 成長, 放送, 文明, 日常, 昔, 映画, 本日, 模様, 死後, 清洲, 焦点, 特集, 現代, 的, 監督, 継嗣, 織田信長, 織田家, 脚本家, 自分, 要素, 通用, 進化,
Accessのさんぷるコードができましたので(´Д`)貼っときます。
2014.08.21
突貫工事で作ったのでバグは多少あると思いますが{例えば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ソースコード
著者名
@taoka_toshiaki
※この記事は著者が30代前半に書いたものです.
Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki
タグ
35, 358, access, db, https, sample, samplezip, SQL, Viewer, www, zip, いま, インジェクション, コード, こと, コメント, これ, サンプル, ソース, それ, ダウンロード, つもり, バグ, ファイル, マイクロソフト, ヨロシク, 下記, 他, 何, 修正, 削除, 動作, 嘘, 対策, 工事, 改良, 時, 暇, 無駄, 空, 突貫, 若干, 軽量, 追加, 追記, 飯,