メモ
何が起きたの?! Slackを開いたらこんな感じで絵文字が表示されない状態となっておりました。 Slackの更新、Slackの再起動、PCの再起動、Slackを再インストールなど 試してましたが変化なし。 直せるの? はい、設定で直せます。 直し方 1.メニュー→ファイ…
今回は、新しい言語を学ぶためのサイトをご紹介します。 Progate 少し前に実際にやっていたのが「Progate」というサービスです。 多種な言語を勉強することができます。更に、プログラムを作りながら勉強することができます! どうしたらいいかわからない箇…
2036年、2038年問題ってご存知ですか? その前に、少し前に「2000年問題」というのがありました。 これは、年の下2桁で管理しているプログラムが誤作動を起こすかもしれないというもの。下2桁で年を管理している場合、「19xx」がベースになっていました。 そ…
今回は、Windowsのデスクトップアイコンの文字色に関する記事です。少し前から気になっていたのですが、デスクトップアイコンの文字色が 変になる現象が発生しています。気になって調べたところ、Windowsのバグみたいなことを書いていた記事を発見しました。…
ソースを管理するためのファイルサーバーをRaspberry Piで構築しようと思ってます。下記の記事を参考に構築しようと思います。
なんかうまく行ったので残しておきます。 絶対にSQLで書いたほうが見やすくメンテもし易いと思いますが。。さて、話を戻して複数条件の結合方法です! 下記のようなテーブルから、データを結合させて出力するパターンです。 AAA、BBB、CCCの3つのテーブルを…
Dim List = (From AAA In aaa Join BBB In bbb On AAA.コード Equals AAA.コード And BBB.コード Equals AAA.ID Order By BBB.ID) _ .Select(Function(AAABBB) New With{Key .部署コード =AAABBB.AAA.コード, Key .個人ID = hoktok.AAA.ID, Key .担当者名 = …
今回はLinqでSQL文を直接記述してデータベースと通信しようという話です。ん?それなら、SQL文だけで良いじゃないかって?た、多分、こっちのほうが処理速度が向上するんですよきっと(*_*)!! そんなわけで、記述方法載せておきます。 '登録 Dim Data1 As Int…
GROUP JOINについて今回は書きたいと思います。 前回のJOIN同様に微妙な感じですけど、参考になればと思います。まずは検索から Dim con As New DATABASS Dim JoinList = con.AAA.GroupJoin(con.BBB, Function(x) x.ID, _ Function(y) y.ID, _ Function(x, z…
JOINについて今回は書きたいと思います。 ただ、あまりいい書き方では無いかもしれません。まずは検索から Dim con As New DATABASS Dim JoinList = con.AAA.Join(con.BBB, Function(x) x.ID, _ Function(y) y.ID, _ Function(x, y) New With { _ Key .ID = …
今回は、Where区で複数条件を指定してデータを取得する方法です。 Dim con As New DB Dim getdata as AAA () = con.AAA.Where(Function(x) x.ID = CType(txtID.Text, Integer) And _ x.部署 = CType(txtBuCd.Text, Integer)).ToArray ただし、Option Strict…
IPを固定にしていないRaspberry Piに接続したい時にわざわざIPを調べるのは面倒ですよね。 なので、ホスト名を設定してホスト名で接続しようと思います。 ※あと、Raspberry Piの方に「Samba」入れてwindowsからアクセスできる共有フォルダを作成しておいて下…
Dim con As New DB Dim getdata = (From A In con.IDList Group Join B In con.SyainList On A.社員コード Equals B.社員コード Into BList = Group From BL In BList.DefaultIfEmpty Where A.社員コード = CType(txtSyaID.Text, Integer) And B.年齢 >= CTy…