Windows10のコンピューターが毎日特定の時刻にスリープ状態から復帰するよ!?なぜ

2016.03.12

Logging

Windows10のコンピューターが毎日特定の時刻にスリープ状態から復帰するよ!?なぜ
ANSWER

Windows Media Center の更新機能が自動的に開始されるときに発生します。ということです。

この問題を解決するには下記のURLをクリックして、手順に従ってスケジューラから変更等を行ってください。

https://support.microsoft.com/ja-jp/kb/979878

このようにスリープ状態から勝手に起動するようなソフトがインストールされている場合があるので注意してください。今回は、マイクロソフト社のソフトでしたが他のソフトでもこのような設定になっている場合があるので、気をつけてください。また、スケジュールに設定する事によって起動時にソフトを起動することや曜日によってソフトを起動するなどの設定するなどの設定を追加することも可能です。

タグ

10, 979878, ANSWER, Center, com, https, ja-jp, kb, media', microsoft, support, url, Windows, インストール, クリック, こと, コンピューター, スケジューラ, スケジュール, スリープ, ソフト, とき, マイクロソフト社, 下記, , 今回, , 勝手, 可能, 問題, 場合, 変更等, 復帰, 手順, 時刻, 曜日, 更新, 機能, 毎日, , 注意, 特定, 状態, 発生, 解決, 設定, 起動, 追加, 開始,

チームラボの展示会が徳島であるだけどハードルが高い。

2016.02.29

Logging

チームラボの展示会が徳島であるだけどハードルが高い・・・。場所はあすたむらんど徳島です。そこでデジタル・アート展が行われるだけど下記の動画のようなのが展示されるらしいだけど・・・・。
観に行きたいだけど、これって男一人では観に行くのハードルが高いなぁ・・・・。こんなとき誘う子がいれば良いのだけど今のところいないです。ネットで募集しますっていうのはパターンもありますが、おそらくこないだろうなぁ。
全然、TwitterでDM(設定変更済)くれても良いですよ。その代わり無口で喋るのが下手なのがそれが嫌にならない方、限定ですが(´Д`)。
どうもこれは・・・ひとりで観に行くのはちょっと難しい気がする。そんな事を言いながらぼっちで観に行くかもしれませんがぼっちで電車に揺られバスに揺られながら徳島に行くのは帰りが切ないなと・・・・。

Crystal Universe / クリスタル ユニバース βVer.


彼女がいればなぁ・・・とか思います。
でも、婚活はしたくないですよね・・・あまり、いきなり、それは重いからね。恋活も恋活で・・・なんか嫌なんですよね。たまに恋活したほうが良いのかなぁとか思ってます。
ちなみに恋活(恋しよ)というサイトが高知県にはあります。
登録しているかどうかはご想像にお任せします。
登録だけして行動に移さないことはいっぱいあります。
行動に移さないのは、本当に気の許せる人しかっていう
タイプなのが駄目なんでしょう。変わらないとなとは思うだけど
変わらないですね・・・・。
(´Д`)人をあまり信用していないですね。
話が逸れましたので元に戻して
徳島に見に行くかはわかりませんが
teamLABの作品は本当に綺麗なものが多いので
オススメですよ(`・ω・´)
?

タグ

IT企業社長, No1, SEO, TOHOシネマ, キーワード, ググッ, ここら, タイトル, タイトル名, ヒント, ライブドア事件, リンク, 上映予定, 下記, 予告, 人生, 公式ページ, , 大事, 映画予告, 約束,

さくらVPSでカスタムインストールでWEB(httpd)が表示されない時の対応。

2015.11.03

Logging


さくら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/

タグ

--add-service, --permanent, --reload, --zone, 7, 80, cnetOS, firewall-cmd, http, httpd, iptables, public, VPS, web, インストール, カスタム, コマンド, これ, さくら, ストップ, ファイアーウォール, プロセス, ポート, , 一度, 下記, 事象, 動作, 対応, 方法, , 自分, 表示, 解決, 解除, 設定, 起動,

企業とSNSの問題(巷の噂や暴露話の原因。)

2015.10.20

Logging

zip358.comの中の人です。
会社(企業)がSNSを規制すると影でSNSを使用するという問題が
生じてしまう。逆に会社はSNSに寛容になったほうが良いと自分は
思います。ちなみに今の会社の人と自分はSNSで
流れ的に繋がりました。
ちなみに前の務めていた会社ではSNSは基本的に過敏でした。
規制する会社の言い分は下記のような問題があるからです。
もしもの時に会社の信用問題になりかねないとか、もし会社の取引先を
暴露されてしまったらとか個人情報などを暴露されたらとかの問題があるなど。
なぜ、SNSに寛容になったほうが良いか?
SNSを規制しても影で使う人は使います。なので、規制すること事が
無駄なのです。規制よりも会社がSNSを把握することのほうが大事なのです。
SNSを使っている人にSNSをみて間接的なイジイジしないことです。
逆効果です。もしそんな事をしていたら辞められた時に前の会社の
事を良いようには言わないでしょう。若い人たちの殆どは
何かしらのSNSを今は使っています。それを規制してSNSを把握することが
出来ますかと自分は言いたいです。
規制するよりか、会社が寛容になりSNSを把握することに
力を注いだほうが良いです。もしもの時に把握していると
事態の終息や誰がそのような行為を行ったかなど
原因を突き止めるのに時間がかからないと自分は思っています。

タグ

SNS, zip358.com, しも, 下記, 事態, 企業, 会社, 信用問題, 個人情報, 原因, 取引先, , 暴露話, 殆ど, 終息, 行為, 規制, 言い分, 逆効果,

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のアップデートを行うとウィルス対策ソフトが使えなくなる
事象が発生する場合がありますので、その場合は
新たにウィルス対策のソフトのアップデートが
必要になります。
(※アップデートの対策の対応取れたウィルス対策ソフトを再度インストール
する必要あり)

タグ

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も勉強しなくちゃなと思うこの頃です。

タグ

, 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

タグ

'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)

            

タグ

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

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

2015.07.13

Logging


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

 

タグ

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’);に変更。

タグ

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

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

2015.06.11

Logging


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

タグ

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などを入れておいた方が良さそうですね。

タグ

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ファイルのパーミッション設定には注意が必要です。
 

タグ

'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

 

タグ

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

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

2014.09.08

Logging


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

 
 
 

タグ

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

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

2014.08.26

Logging

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

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

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

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

タグ

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

タグ

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