OS X El Capitanのアップデートしましたよ(^o^)

2015.10.01

Logging


OS X El Capitanのアップデートを行いました。
今回のアップデートはiosの機能とOSXの機能を合した
アップデートなのですんなりと
古いiMacでもインストール可能でしたが
次のアップデートには自分のiMacでは
対応できないだろうなと感じています。
ちなみにiMacを購入するために
少しづつ銀行に貯金を行おうと思っています。
下記を購入するために貯金を行うつもり
iMac貯金とPC貯金とPS4貯金です。
15万+20万+3.5万=38.5万円
はぁ( ´Д`)=3
どこにそんな金があるって言うだ。
書いたら買う気が失せてきた。
壊れるまで使い倒しますが・・・
貯金もします!!
OS X El Capitanのアップデートはこちらから。
ちなみにOSXのアップデートを行うとウィルス対策ソフトが使えなくなる
事象が発生する場合がありますので、その場合は
新たにウィルス対策のソフトのアップデートが
必要になります。
(※アップデートの対策の対応取れたウィルス対策ソフトを再度インストール
する必要あり)

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

15万+20万+3.5万, 38.5万円, iMac, iMac貯金, iOS, OS X El Capitan, PC貯金, PS4, アップデート, ウィルス対策, 下記, 事象, 再度インストール, 古いiMac, 少しづつ銀行, 機能, , , 貯金,

phpにはstdclassってものが有るだってさ。おそらくjavaにはないよ。

2015.08.25

Logging


phpにはstdclassってものが有る。使い方は下記の通り

$hoge = new stdclass();
$hoge->name = "(~.~)";
echo $hoge->name;

このstdclassってのは普通ならクラスの記述を書かないといけないのだけど、これはPHPの依存のクラスを使用して記述することが出来るらしい。スタンドクラス・・・、ジョジョかよと思いたくなるPHP記述ですね(((((;゚Д゚)))))。スコープとかなら、PHP以外の言語でも有ると思うけど、stdclass(スタンドクラス)は、最近、はじめて知りました。他にもつい最近、知ったPHPの記述方法とかもあります、他の言語でも同じような記述ができるか試してみたいです。この頃、全然 Javaとか触っていないしC系の言語も触っていないのが現状ですと言ってもそちらの言語ができるのかと言えば、う?んと言う回答ですけどね。あとSQLも勉強しなくちゃなと思うこの頃です。

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

, AM, echo, hoge, java, name, new stdclass, php, PHP以外, SQL, stdclass, ジョジョ, スコープ, スタンドクラス, 下記, 使い方, 依存, 現状, 言語, 記述, 記述方法, 通り,

WordPressのhttps対応化しました。ページのデザインが崩れる。

2015.08.07

Logging


 
Wordpressのhttps対応化しました。ページのデザインが崩れるため、今までhttpで表示させていましたが対応策がネットに掲載されていたので速攻ためして見たところページの崩れもなく表示されています。サイトのSSL化はこれで一応、完結とします、一部、プラグインがHTTPを参照しているのを除き、殆どのURLはSSLを参照しているので、おそらく大丈夫ではないかと思います。なお、SSL化するに当たってURLはDBを一括置換し、httpsに変換することをお忘れなく。
参照にさせて頂いたサイトのURLです。
※ちなみにFirefoxの警告表示にはまだ、未対応です。
追記:下記の方法で対応、Wordpressフォーラムより引用

functions.phpに下記の内容を記載したらできました。
ありがとうございます。
function override_server_https_env(){
$_SERVER[‘HTTPS’] = ‘on’;
}
add_action(‘after_setup_theme’, ‘override_server_https_env’);

http://coneta.jp/11936.html

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

'after_setup_theme', 'override_server_https_env', db, Firefox, function override_server_https, functions.php, https対応化, ON, override, SSL化, url, WordPress, Wordpressフォーラム, サイト, デザイン, ところページ, ネット, プラグイン, ページ, 一括, 一部, 下記, 参照, 完結, 対応策, 崩れ, 殆ど, 警告表示, 速攻,

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)

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

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

6月度のアクセス数です。この頃、右肩下がりですが(´Д`)←この嘘つきバービー!!

2015.07.13

Logging


 
 
6月度のアクセス数です。この頃、右肩下がりですが今月からアクセス数を掲載していきます。直帰率を見ていただければ分かるように記事が面白く無いのでほぼ一見さんばかりだということです((´∀`)なんて)。一時期、300人超えをした時もあったのですがアレから急激なアクセスがあるとすごく変動したりするので今のところ、こんな感じです。広告収入で生活できるレベルまでは全然程遠いかんじですね。広告収入で生活できるレベルは1万超えしなければ無理です。日に1000件のアクセス数があったらお小遣い程度の収益は見込めますが、生活できるレベルには達することは不可能です。まず、今年の目標は長期的にアクセス数を伸ばすことにあります。記事が面白く無いのか読みにくいのか・・・すぐにページを離れる傾向にあります。なので、滞在時間を増やして記事を読んでもらえるように専念したいと思います。ちなみにページビュー数は下記の表のとおりです。

 

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

6月度, アクセス数, アレ, お小遣い程度, とおり, ところ, ページビュー数, 一時期, 一見, 下記, 傾向, 収益, 右肩下がり, 嘘つきバービー, 広告収入, 滞在時間, 目標, 直帰率, , 記事,

WordPressを別のURLへ移行する方法。

2015.07.08

Logging


WordPressを別のURLへ移行する方法ですが、いろいろと巷では、WordPressのPHPを修正すれば良いよとか記載していますが、本当はこれだけで良いはずです。WordPressが保管されているデータベースのデータの任意のURLを全て置換するという方法です。そうすればエラーなどもなく移行することが可能ですが、ただ、データが多いと結構、大変な作業です。全てのURLを直さなくて良い場合などは・・・大変な作業になることは間違いないです。ほぼ、人力ですね。一括置換で良さそうな場合はすごく手間がかかりません。下記の方法がよく見かける方法ですが・・・おそらく上手くいきませんという場合が多いです。

WordPressのindex.phpの中の
require(‘./wp-blog-header.php’);

require(‘./wordpress/wp-blog-header.php’);に変更。

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

index.php, require, url, WordPress, wp-blog-header.php', エラー, これだけ, データベース, 一括置換, 下記, 人力, 作業, 全て, 変更, , 手間, 方法, 良いはず, 良い場合,

再購入したAMAZONの作り方とWEBAPIプログラミング入門。

2015.06.11

Logging


再購入したAMAZONの作り方とWEBAPIプログラミング入門ですけど、良い感じです。良い感じというのは中古商品なので本の質のことです。新品までとはいかないものの、ほぼ綺麗なままでした。本の中身はWeb Api プログラミング入門の方はApiの触り程度のないようなので今読むと詳しい内容が然程ないなとわかります。俺流AMAZONの作り方は今読んでもためになる本です。結構ずっしり記載された本です、素人向きではありません。
この頃、ちょっと頭が硬くなってきたなと感じることがありました・・・。前から性格上カタイかもしれませんがアイディアなどは前は結構思い浮かんでいたのですけど、この頃、しょぼいアイディアすら浮かばなくなって、なにか作ろうにもアイディアが出てこないという事になっています{何か浮かべば・・・・下記の本を使ってなにか作ろうと思います}。
 

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

WEBAPIプログラミング, WEBAPIプログラミング入門, しょぼいアイディア, 下記, 中古商品, 中身, 作り方, 俺流AMAZON, 性格上カタイ, 新品, , 素人向き, 良い感じ, 触り程度, 詳しい内容, , ,

[解決]さくらサーバでファイルの一覧(Index of)が見えてしまって困っています。

2015.05.17

Logging


さくらサーバでファイルの一覧(Index of)が見えてしまって困っていますを解決する方法。これを解決するにはindex.htmlファイルをディレクトリの中に置くことで解決します。ちなみにindexファイルを使いたくない場合は、下記のように記入することで解決します(htaccessファイルを作成し、下記のコードを記入し保存、ディレクトリにアップロード)。

DirectoryIndex 任意のファイル名

上記のように記入するとそのファイル名がディレクトリの中になければ、ファイル一覧が表示されるようになります。ちなみに、さくらサーバでは初期の設定で下記のファイル名がファイル一覧を非表示にさせるファイル名となっています。

  • index.html
  • index.htm
  • index.shtml
  • index.cgi
  • index.php
  • index.hdml

※共有サーバーで、複数のドメインを管理している方は/home/アカウント名/www/の中にはindex.htmlなどを入れておいた方が良さそうですね。

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

DirectoryIndex, htaccessファイル, index.cgi, index.hdml, index.html, index.htmlファイル, index.php, index.shtml, indexファイル, アカウント名, アップロード, コード, さくらサーバ, ディレクトリ, ドメイン, ファイル一覧, ファイル名, 上記, 下記, 共有サーバー, 初期, 複数, 解決,

最後のWindowsが夏頃、リリースされます。

2015.05.14

Logging


最後のWindowsが夏頃、リリースされますが、ちょっと様子見でWindows7のままで使用しようと思っています。恐らく無償版のアップグレードするとダウングレードすることが出来ないと思うので自分は様子見です。話、脱線して昨日の続きです。PHPを使用しPOSTしてデータを渡し受け取る方法ですが、SSLでなければ下記のコマンドをLinux上で打てば処理されます。なのでコマンドとPHPとの合わせ技で処理します。

curl http://hoge.com -d "name=hoge" -d "pass=pass_hoge"

上記の様に記載したshファイルを任意の場所に置き、Linuxで処理するか、PHPで実行させるかなど方法があります。今回はPHPで実行する方法を記載します。上記のファイルをhello.shというファイルに保存したと過程して、PHPファイルで実行させた場合の処理を記載します。下記のコードをPHPファイルに記載すれば実行可能です。

$put =nl2br(shell_exec('sh hello.sh'));
echo $put;

あとは戻ってきた値を処理して必要な情報だけを抽出するコードを書けばいろいろな事が可能です。ちなみに今回はPOSTとする方法でしたが、それ以外にも階層のファイルの一覧を抽出した場合などもshに記載して結果を返す方法などが可能です。
※shファイルのパーミッション設定には注意が必要です。
 

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

'sh hello.sh', $put, Linux, nl2br, PHPファイル, POST, shell_exec, shファイル, Windows7, アップグレード, コード, コマンド, パーミッション設定, 上記, 下記, 合わせ技, 夏頃, 方法, 無償版, 階層,

centOS7になってMYSQLじゃなくmariadb(MYSQL)変わったけど。

2015.05.12

Logging


centOS7になってMYSQLじゃなくmariadb(MYSQL)変わったけど特に問題なく動いてます。ちなみにphpMyAdminが動かないと思ったらこれをひと通りyumで下記を入れとけば実行されます。centOS7からPHPバージョンが5.4になりました。いま、自宅のローカルWebサーバにnode.jsを入れようと思ってます・・・・。まだ導入はしていないのですが、そろそろ入れようかなと動作とかがうまく機能したら仮想サーバをレンタルしてゴニョゴニョしてみようと思います。まだ先の話なので当分は自宅のローカルで試行錯誤してnode.jsで何が出来るのかを試してみようと思っています。

yum install php php-ldap php-mysql php-pear php-mbstring

 

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

, centOS7, mariadb, node.js, phpMyAdmin, PHPバージョン, yum install php php-ldap php-mysql php-pear, ゴニョゴニョ, ローカルWebサーバ, 下記, 仮想サーバ, , 動作, 導入, 当分, 自宅,

未来{ミライ}を語る、未来を想像する{思い描く(´∀`)}

2014.09.08

Logging


未来を想像して、それに近づけようとしている研究者がいるから技術は進歩していく。最近、この想像するという力が徐々に退化してきているように思えます。いまの子供達(先進国)は生まれた時からネット環境が身近あるために、自分で想像したり考えたりすることが少なくなってきているように思えるわけです。良くも悪くもネット上から膨大な知識が得られるため、自分で調べるという事が昔に比べて少なくなってきているらしいです。
文明が進むにつれ今まで絵空事だった事が現実味を帯びてきています、再生医療やロボット工学、人工知能など、早ければ2025年には再生医療は可能だと唱える学者もいます。あと、11年と少しでそうなるかは分かりませんが、あと30年もすれば確実に再生医療は誰もが受けれる可能性があり、もしかすると不死の時代が到来するかも知れないのです。いま再生医療などで議論されているのが、人の在り方{生と死の問題}などです。これは、再生医療が進み、人が不死を手に入れても議論することなる問題だと思います。
未来がどうなるのかは誰も知り得ませんが、未来を想像して、それに近づけようとする研究者がいる限り人がそれに近い未来図が待っているのだと下記の動画を見て思いました。
https://www.youtube.com/watch?v=a6cNdhOKwi0
 
 
 

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

すがた, ネット環境, ミライ, ロボット工学, 下記, 不死, 人工知能, 先進国, 再生医療, 叡智, 可能性, 問題, 在り方, 学者, 文明, 日本未来図2030 20人, 未来, 現実味, 知識, 研究者, 絵空事, 身近あるため, 近い未来図,

まだ東京で消耗してるのを書いているイケダハヤトさん{現在:高知在住}

2014.08.26

Logging

イケダハヤトさんという人物を実は今まで知らなかった自分。高知県にブロガーさんが住むっていう話を新聞で見て即RSSに登録したのですけど、最初はどうかなと思って見てましたけど、先日の記事を読み、この人の印象が変わりました。それなりに有名な人は人間ができているのだなと感じました{下記の内容を読んでなるほどなと感じました}。

ぼくが名指しの他者批判をネットで書くのをおすすめしないのは、あなたは、記述したようになるからです。攻撃的な、侮蔑的な記述をすれば、あなたはリアルな社会でも、そういう人間になっていきます。
内田樹先生の言葉を借りれば、それは「呪い」としてあなたにまとわりつくでしょう。呪縛を解除するためには、他者を祝福するしかありません。
「呪い」は今や僕たちの社会では批評的な言葉使いをするときの公用語になりつつあります。「弱者」たちは救済を求めて呪いの言葉を吐き、「被害者」たちは償いを求めて呪いの言葉を吐き、「正義の人」たちは公正な社会の実現を求めて呪いの言葉を吐く。けれども、彼らはそれらの言葉が他者のみならず、おのれ自身へ向かう呪いとしても機能していることにあまりに無自覚のように思われます。

↑イケダハヤトさんと内田樹先生の言葉を抜粋。

ネット上では他者批判を結構みかけます。匿名の怖さかも知れないのですが、リアルもネットも同じように振る舞いを行わないと駄目だということ、匿名になり攻撃的になったりするとやっぱりそれは、自分にかえってきます。むしろ顔の見えないネットのほうがリアルよりも言葉を選ばないといけないと思います。この記事を読んでいて自分は、イケダハヤトさんもネット上で起こるひと通りの問題を経験したからこそ、この言葉が言えるのだなと自分は思います。人っていうのは自分で経験するとよく理解するもので、そしてそれが自分の糧になるのだなと記事を読んでいて実感しました。

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

RSS, あなた, イケダハヤト, おすすめ, ソレ, ため, とき, ネット, ブロガー, ボク, リアル, 下記, , 人物, 人間, 他者, , 先日, 先生, 公用語, 内容, 内田樹, 印象, 呪い, 呪縛, 在住, 弱者, 批判, 救済, 新聞, 最初, 有名, 東京, 正義, 消耗, 現在, 登録, 社会, 祝福, 自分, 被害者, 解除, 言葉, 記事, 記述, , 高知, 高知県,

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ソースコード

著者名  @taoka_toshiaki

※この記事は著者が30代前半に書いたものです.

Profile
高知県在住の@taoka_toshiakiです、記事を読んで頂きありがとうございます.
数十年前から息を吸うように日々記事を書いてます.たまに休んだりする日もありますがほぼ毎日投稿を心掛けています😅.
SNSも使っています、フォロー、いいね、シェア宜しくお願い致します🙇.
SNS::@taoka_toshiaki

OFUSEで応援を送る

タグ

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