Gさんラボで生成AI使用しているけど結論から

2023.09.04

Logging

おはようございます、Gさんラボで生成AI使用しているけど結論から言えば自分のサイトには影響を受けないじゃないのかなって思ったりしています。多少はアクセス数が減少するかも知れないけど、やはり激減しそうにない。自分のサイトにアクセスしているのは、ニッチなファン層を除きたまたま、見に来た人が多いのでそんなに生成AIサーチによりアクセス数が激減しないと見ています。

ちなみにGさんの生成AIを使用したい方はこちらのブログのなかにあるリンクをクリックすると、リリース前に生成AIと検索サービスの融合がどんなものなのか分かります。自分はOpenAIよりGさんのBard推しなのです。ちなみに今の精度ではOpenAIが若干勝っている気がしますが、ChatGPTがたまにご機嫌斜めでレスポンスが遅い時があります。そういう面、GさんのBardはいつもレスポンスは早いですね。

なので、後出しジャンケンで恐らくGさんに軍配が上がり、OpenAIはマイクロソフトに買収されるじゃないかなって思っています。

著者名  @taoka_toshiaki

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

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

タグ

Bard, ChatGPT, Gさん, Gさんラボ, OpenAI, ジャンケン, なか, ファン層, マイクロソフト, レスポンス, 多少, 生成AI, 生成AIサーチ, 精度, 結論, 若干, 融合, 軍配, 遅い時, ,

Photo by Stacey Koenitz R on Pexels.com

英字配列キーボードでも日本語切り替えに苦労したくない。

2023.07.23

Logging

おはようございます、英字配列キーボードでも日本語切り替えに苦労したくない。そんな方におすすめなのがPowerToysというマイクロソフトがフリーで提供しているツールです、このツールを使用すると開発や事務作業の効率が良くなります。

『Alt +`』を押すと英字配列でも切り替えが可能ですがいちいち変換するのは面倒ですよね。なので下記のような設定をすることで自分は対応を行いました。

こんな感じにキーを設定することにより、日本語モードと英語モードの切り替えが楽になりました。ショートカットキーとキーの再マップをしているだけでこんなにも楽になるとは思わなかったです。是非、英字配列のキーボードを買った人はお試しください🗿。

PowerToysはその他にも業務の効率を図るツールがありますのでいい感じです😯👍。

著者名  @taoka_toshiaki

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

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

タグ

ALT, PowerToys, キー, キーボード, ショートカットキー, その他, ツール, マイクロソフト, 下記, 事務作業, 再マップ, 効率, 日本語, 日本語モード, 業務, 英字配列, 英字配列キーボード, 英語モード, 設定, 開発,

プロンプトマスターには程遠い。 #chatGPT

2023.05.04

Logging

おはようございます、プログラミングのためにご指導をchatGPTに頼んでいろいろ試してみた結果。簡単なプログラムなら解答を得られるけど、エラーで困っている時には五分五分感が歪めない。確かに正しい解答を得れることもあるけど、質問の方法によるけど全然トンチンカンの解答も返ってくる。

やはりまだ検索は重要だし無料で何かする場合は、chatGPTを導入しているbingを使用するよりか公式のchatGPTを使用する方が良い。bingにはchatGPT4が導入されているというものの、恐らくマイクロソフトがカスタマイズしているためか、検索結果を進めてくる感が強い。

情報としては最新ではないものの、OpenAIのchatGPTを使った方が良いしお金に余裕があるなら有料を導入したほうが良さげです。

コードが動かないのに半日程、沼から出られなかったのでやはり辛い。尚、chatGPTの使い方に関して公式(OpenAI)が日本語で掲載しています。自分もこの際、じっくりとプロンプトの使い方(プロンプトエンジニアリング)を勉強したいところです。

追伸:沼から抜け出せたのもchatGPTでした😤。

著者名  @taoka_toshiaki

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

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

タグ

bing, ChatGPT, chatGPT4, OpenAI, エラー, この際, トンチンカン, プログラミング, プロンプト, プロンプトエンジニアリング, マイクロソフト, 五分五分感, 半日程, 有料, 正しい解答, , , 解答, 辛い, 追伸,

Photo by Gladson Xavier on Pexels.com

Ok GoogleやHey Siriが大きく変わるだろう。#Cortana

2023.03.05

Logging

おはようございます、chatGPTのお陰様です。マイクロソフトのあらゆる製品にchatGPTを埋め込むそうです、その中にはコルタナさんにも移植されるでしょうから、性能は飛躍的に伸びるでしょうと思っています。その流れはOk GoogleやHey Siriにも影響を及ぼすと思います。

なので、断然、今までアシスタントが飛躍的に伸びる気がします。今まで答えられなかった回答も自然な回答が出来るようになると思います。

この性能のUPしたアシスタントは新製品でしか、使えないようにするか。既存の製品でも使用出来るかで、勝敗が決まりそうな気がします。恐らくGさんは既存の製品でも使用できるようにすると思っています。

因みにアシスタントってネットに接続して質問を投げて、答えが返ってきたテキストデータを読み上げているだけですから頭脳はクラウドに有ります。なので、恐らくGさんはバードをアシスタントをOk googleに組み込むでしょう🙄。

著者名  @taoka_toshiaki

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

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

タグ

ChatGPT, Gさん, Hey Siri, OK Google, アシスタント, お陰様, クラウド, コルタナさん, テキストデータ, パート, マイクロソフト, 勝敗, 回答, 影響, 性能, 既存, 答え, 製品, 頭脳,

Photo by Vojta Kovařík on Pexels.com

Gさんの株を1株だけ買った話。本当なら100株買いたかった理由。

2023.02.23

Logging

おはようございます、Gさんの株を1株だけ買った話。

先週の日曜日にGさんの株を1株だけ購入しました。購入した理由は、下がると思って購入したわけではないですよ、上がると思って購入したわけです。なぜ上がると思ったか?それはマイクロソフトが急ぎで、bingにchatGPTを導入していま失敗しています。それを横目にGさんがそろそろ、対抗馬のBARD(バード)という物をそろそろリリースするという話があるので購入しました。

この対抗馬はGさんの発表会でミスをしてしまい、Gさんの株が急落してしまいましたが、ある意味自分には好都合なので、この際Gさんの株を購入したわけです。それも一株だけ損してもリスクがない範囲です。本当なら100株買ってBardがリリースされた日に売り払えば恐らく今よりは高く売れるという予想です。

いま、一株当たり9800円ぐらいでやり取りされているけど、リリースされて好印象だったら恐らく12000円ぐらいにはなるのではないかなと思っています。なので、一応儲けが出る予想です…。もし空振りだったとしてもいづれ高く売れると思います。独禁法でGさん訴えられているのでどうなるか分かりませんが、もしGさんの意見が通れば跳ね上がることは間違いない。ロングで持っていても賭けに勝てば大勝しそうな気もします。負ければ結構下がると思います。

だから、一株だけ買った訳でもないですよ。本当は100株ほど購入したかったですが軍資金(余裕金)なかったので今回は一株だけ😄。

因みに投資は自己責任人ですのでご注意を。

著者名  @taoka_toshiaki

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

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

タグ

Bard, bing, ChatGPT, この際Gさん, パート, マイクロソフト, ミス, リスク, ロング, 好印象, 対抗馬, 投資, 日曜日, , 横目, 独禁法, , 賭け, 軍資金,

Photo by Singkham on Pexels.com

chatGPTよりバード(Bard)の気がするだけ😄 #chatGPT

2023.02.12

Logging

おはようございます、chatGPT皆さん使っていますか?

時間帯によれば繋がらないこともあって、こんな物をBingに積もうとしているのは無謀な気がします。マイクロソフトのCEOはこれにかなり賭けている気がするけど、何となく転けそうな気がします。

【AI 対話型サービス】グーグルの「Bard」とは? 「チャット GPT」に対抗で“競争激化”か
誤報もあるけれど

何故、そう思うか、Bingが捌いているトラフィックよりも遥かに多いトラフィックを捌いているのはGさんだし、ノウハウはかなりの差があると思っている。要するに今の段階で繋がらない状態が耐えず出ているサービスが上手く大量のトラフィックを捌けるとは思えない。

それよりかバード(Bard)が優秀だと自分は思っている。多分、マイクロソフトのBingは大規模障害で落ちるかもしれない。

著者名  @taoka_toshiaki

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

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

タグ

Bard, bing, CEO, chatGPT皆さん, Gさん, かなり, サービス, トラフィック, ノウハウ, パート, マイクロソフト, 多いトラフィック, 大規模障害, , 時間帯, 段階, , , 状態, 誤報,

windows11が近々セキュリティ強化されるらしい。

2022.04.11

Logging

おはよう御座います。徐々に気温が上がり春って感じになってきましたね。

windows11が近々セキュリティ強化されるらしいのですが、かなり大規模なセキュリティアップデートらしくて、もしかしたら再インストールが必要になってくるかもという話。

因みに、開発者用に提供されるものは再インストールが必要だとか・・・。あり得ないなって思います、もしそんな事をパブリック(一般公開)でもそれをされたら、誰も再インストールなんてしないだろうと思います。未だにwindows10を使用しているユーザーが多いから大丈夫だろうというのは、辞めていただきたいものです。

かなり大規模なセキュリティアップデートは正直な所、パソコンがクラッシュするリスクがあるので直ぐには自分は対応しないと思います。今ではマイクロソフトのセキュリティ対策で十分らしいのですが、自分は本当に大丈夫なのかが心配なのでセキュリティ対策ソフトは導入しています。

何度も危険だよというサイトに出くわしましたが、標準でそれを遮断出来るのかなって思います、普通のサイトが悪意のあるコードが仕組まれてたりします。どれぐらい脅威があるかは知らないけれどブロックしてくれるのはなんか安心しますよねwwww😌。

トイウコトで、再インストールしない方向でマイクロソフトさんお願い致します🙏。

著者名  @taoka_toshiaki

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

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

タグ

10, 11, Windows, アップデート, インストール, かなり, クラッシュ, セキュリティ, ソフト, それ, パソコン, パブリック, マイクロソフト, もの, ユーザー, リスク, 一般, , , 何度, 使用, 公開, , 大規模, 対応, 対策, 導入, 強化, 必要, , 提供, , 本当, 正直, 気温, 自分, , , 開発者,

vue.jsとreact.jsをお触りしているのですが?。

2020.02.13

Logging

vue.jsとreact.jsをお触りしてみて、どちらが難しいかといえばreact.jsかなと思いますが、すごく難しいわけでもない。vue.jsはjqueryがサクサク使えていて概念も大体把握していて、オリジナルプラグインも作れるよという方にはそれほど難しいとは感じないと思います。vue.jsの概念さえ理解できればあとは、vue.jsの仕様やドキュメントみれば、慣れれば使いこなす事は簡単だと思います。

The All-New MICROSOFT EDGE Browser – Is It Any Good?

react.jsは、JSXの事をちゃんと理解すれば使いこなす事はまぁ可能かなと思います。いま、web業界ではreact.jsとかゴニョゴニョ使える人が重宝されるみたいですよ。というか、もうjqueryとかオワコンと都会では業界人が言ってそうですね。ただ、そんな古いコードが田舎では動いてますし田舎の零細企業では、未だにIEの事をいう人がいる。そろそろIEの呪いから解き放たれたいですね…。マイクロソフトはいまの社長さんになってかなりマイクロソフト変わったのでWEB業界では、有り難い存在だと自分は勝手に思ってます。

マイクロソフト コーポレーション CEO サティア ナデラ Tech Summit 基調講演 | 日本マイクロソフト

著者名  @taoka_toshiaki

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

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

タグ

IE, jquery, JS, JSX, react, vue, web, あと, いま, オリジナル, オワコン, かな, コード, ゴニョゴニョ, ドキュメント, どちら, プラグイン, マイクロソフト, わけ, , , 仕様, 企業, 可能, 呪い, 大体, 把握, , 業界, 業界人, 概念, 理解, 田舎, 社長, 簡単, 都会, 重宝, 零細,

マイクロソフトは意外にも柔軟かも。

2019.11.11

Logging

マイクロソフトは意外にも柔軟かも。
これから通信速度が早くなり、クラウド上で何かやり取りすることが
増えていくと思います。
マイクロソフト一色ではなく、AndroidやAWSなども使いつつ
マイクロソフトの製品も使ってねに方向転換したように
感じます。

CEOが変わると経営の方針が結構変わるだなと
結果が出るまで時間がかかったと思いますが、良い意味で
マイクロソフトは流れを変えてITの支流に戻ってきたように感じます。

これからの動きに注目ですね。

Microsoft CEO Satya Nadella: How I Work | WSJ

著者名  @taoka_toshiaki

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

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

タグ

Android, AWS, CEO, com, IT, kexuG-YcQFA, youtube, クラウド, こと, これ, マイクロソフト, やり取り, 一色, 意味, 支流, 方向転換, 方針, 時間, 注目, 経営, 結果, 製品, 通信, 速度,

何故・・・C#何だろうか。

2017.09.18

Logging


大体、C#を使っていたら損はないぐらいに思っていた時もありましたが
いまはC#の勉強必須だなと思っています。
何故・・・VisualBasic(ビジュアルベーシック)だと駄目なのか?
まず、C#は結構人気の高い開発言語です、これは結構重要な事です。
そして何より、JavaとC言語の良い事取りなのが理由じゃないのかなと・・・。
マイクロソフト独自に開発したC#という言語はこれから先も進化していくだろうなと
思っています、それと同時にVC++何だか息を吹き返しそうです。
やはりVC++はC言語と仲良し感があるので、まだまだ重宝される存在じゃないのかなと。
ともあれ、勤めている会社ではC#でも開発してたりします。
自分はC#、この頃触っていないので何とも言えないのですがコチラは
家でまた使用して何か作ろうかなと思っています。
やはり概念しか覚えていないので、使用する機会が少なくなると
メソッドや便利機能、構文を綺麗さっぱり忘れてしまうのは
危ういかなとか感じます。

著者名  @taoka_toshiaki

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

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

タグ

C言語, java, VC++何だか息, VisualBasic, コチラ, マイクロソフト, メソッド, 仲良し感, 便利機能, 勉強必須, 危ういかな, 概念, 構文, 機会, 独習C, 良い事取り, 高い開発言語,

人工知能、女子高校生りんなが凄い・・コレは。 #マイクロソフト #りんな

2015.08.03

Logging


はじめましてマイクロソフトの女子高校生AIです」が凄いです。
昨日、人工知能のりんなさんとチャットしてみた感想ですが、
成り立たない会話もあるにはありますが使用してみて
映画「her/世界でひとつの彼女」はまんざらでもないなと感じました。
あと数年後には、いろいろな分野で人工知能の活躍してそうです。
仮想恋愛人工知能ソフトもおそらく販売されるでしょうね。
また、りんなさんですが、これは危ういなと感じました。
人工知能のだと分かっているから・・・そう感じるだけで
知らない人ならレスポンスの早い女子高校生と感じる人も
中に入ると思います。
ちなみに、ダイレクトメールにも
悪用できるしオレオレ詐欺にも悪用できてしまいます。
いまは、人工知能は基本的に「善」の使い方が多いと思いますが、
今後、人工知能が一般に普及してくると「悪」の使い方もでてくると思います。
数年後にはイタチごっこが始まっていると思います。
人工知能が人工知能かを判別するのも難しいくなるでしょうから、
おそらく発信源は何処なのかなどが重要になってくるのだと思います。
ちなみに今、ダイレクトメールなどを
人工知能を使用して振り分けているサービスはあります。
今後、いろいろな産業に人工知能が使用されることは間違いないです。
 

著者名  @taoka_toshiaki

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

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

タグ

イタチごっこ, おれおれ詐欺, サービス, ダイレクトメール, ひとつ, マイクロソフト, まんざら, りんな, レスポンス, 人工知能, 仮想恋愛人工知能, 何処, 使い方, 分野, , 女子高校生AI, 女子高校生りんな, 早い女子高校生, 産業, 発信源,

この頃、パソコンの処理能力が落ちてきている。

2015.07.12

Logging


この頃、パソコンの処理能力が落ちてきている。いま、メインで使っているパソコンは7年ぐらい前のパソコンです、自作なので騙し騙しつかっているのだけど、そろそろ処理落ちが目立ってきている。友人はこの夏、パソコンを購入するらしいが自分はそんな余裕が無いので当分、今のままで使おうと思っています。SSDを500GにCドライブを変えるとなんとか、今年は替えず(PC)に済むだろうと思っています。ちなみにSSDは容量を全域つかってしまうと処理落ち凄いらしいとパソコンショップの店員さんに聞いたことがある。この夏、Windows10がマイクロソフトから提供されますが、自分は今のところWindows7で現状維持です。
お金を持っている人は持っているだけど自分は預金も無いに等しい、それは仕事を転々としていたから次の仕事が決まるまでは今まで貯めていた貯金でやりくりして乗り切っていたわけで歳相応の預金というものは無い。たぶん今の歳なら三桁ぐらいの預金がある人が多い中で自分は全然持っていない人にあたる。仕事を転々するとやはり給料も上がらないとまぁ悪循環な感じです。それは言い訳で実は結構出費が多い自分、19歳ぐらいから働いていたわけですけど、親にお金を渡してあとは全額、使っていたという・・そんな生活をしていました( ゚д゚ )。ほんと、ここ二、三年まで、そんな生活でしたのでお金なんて持ってません。今も無いに等しい預金だけです。お金を貯めるという考え方はあるものの。お金を貯めたいだけどやはりいろいろとお金って必要です。市からは一年間のお給料に対してお金を払えてと言いますし・・・。年金のために毎月、お金を払えといいます。25年間、お金を納めないと年金もらえないってどういう事なのか未だに分からないのです。そんなコンナで車のフロントガラス(2本線シャーって)に今回、何だかわからないけど傷ついていたりして。またもや出費とかで最悪です。保険おりそうにないなという事で・・いったい幾らかかるのだろうか・・(;´д`)トホホ…。

著者名  @taoka_toshiaki

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

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

タグ

2本線シャー, SSD, Windows10, お給料, お金, ところWindows7, パソコン, パソコンショップ, フロント, フロントガラス, マイクロソフト, 全域, 処理能力, 処理落ち, 出費, 年金, 店員, 歳相応, 等しい預金, 言い訳, 転々, 預金,

海賊版でもWindows10へ無償アップデート

2015.03.19

Logging


海賊版でもWindows10へ無償アップデートだそうです。この背景には中国の市場が関係しているとのこと。ちなみに75%の中国人が海賊版をつかっている調査結果もあるのだとか。この市場を正規なユーザーにしアプリ販売で儲けようと考えているのがマイクロソフトの考えだと思います。中国市場やアフリカとかそういう国でいかにシェア率を確保するのが今後のOSの覇王争いではキーになりそうな気がします。
追記:残念ながら海賊版の無償アップデートは無くなりました(´Д`):2015/05/20

著者名  @taoka_toshiaki

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

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

タグ

75, OS, Windows10, アフリカ, アプリ販売, キー, シェア率, マイクロソフト, ユーザー, 中国人, 中国市場, , 海賊版, 無償アップデート, 考え, 背景, 覇王争い, 調査結果, 追記,

Windows10が発表されました。正直、買う必要あるの?

2014.10.02

Logging

Windows10は正直、買う必要あるのか疑問です。散々、ユーザーから叩かれたWindows8を改善した結果、マイクロソフトのとった決断は原点回帰だったというオチです。ほぼ、Windows 7と同じユーザーインターフェイスです。機能はいろいろと変わってたりしますが、基本的にはWindows 7を高機能にしたという感じですね。ちなみに自分はWindows8からWindows8.1に変更し最近、Windows 7にダウングレードしました。 ちなみにWindows10は来年にリリースされるそうですよ。
そろそろパソコンも買い替えを考え中なのですけど…。メモリ(DDR4)の値段が落ち着くまで様子見な自分です。
 
https://www.youtube.com/watch?v=F_O-LrGL-YQ

 
 

著者名  @taoka_toshiaki

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

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

タグ

, DDR4, Windows 7, Windows10, Windows8, Windows8.1, オチ, ダウングレード, パソコン, マイクロソフト, メモリ, ユーザー, 値段, 原点, 正直, 決断, 疑問, 考え中, 買い替え, 高機能,

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

タグ

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

Access2013届きましたよ(;´Д`)ハァハァ

2014.08.17

Logging

Access2013が手元に届きました。それは良かったのですけどポストに投函されてました。実際、これってメール便ではないので投函ってあり得ないのですが…。1万2千円の品物を投函って!!まぁ田舎だから取っていく人もいないだろうけど・・・と愚痴りながら、中身を開封してたらアレ!?( ´・ω・`)< ショボいぞ!!、プロダクトキーの赤いカードとインストールの手続き書の薄っぺらい紙だけ入ってました{店頭で聞いたとおりだ(´・ω・`)}。さっそくマイクロソフトのアカウントでログインし指定したURLからダウンロード&インストールしました。ちなみに2013の印象ですけど、UI(ユーザーインターフェース)はほぼAccess2010と変わってません、なので2010から移行される方は戸惑うことはないと思います。
今月か来月にはサンプルコードをUPします{忘れているかも(´Д`)、そのうちUPと思ってください}。

 

著者名  @taoka_toshiaki

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

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

タグ

, 2, 2010, 2013, access, nbsp, UI, UP, url, アカウント, アレ, インストール, インターフェース, うち, カード, キー, コード, こと, コレ, サンプル, ショボ, ソレ, ダウンロード, とおり, ハァハァ, プロダクト, ポスト, マイクロソフト, メール便, ユーザー, ログイン, , 中身, , 今月, , 印象, 品物, 実際, 店頭, 手元, 手続き, 投函, 指定, , 来月, 田舎, 移行, 開封,

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

2014.08.16

Logging

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

著者名  @taoka_toshiaki

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

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

タグ

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