おぼえがきＩＴブログ

[SQLServer]エラー「プールから接続を取得する前にタイムアウト期間が過ぎました。プールされた接続がすべて使用中で、プールサイズの制限値に達した可能性があります」

2021-11-25T20:21:00.004+09:00

ある時いきなり以下のエラーが出て、その後同じアプリケーションプールを使っているシステムがすべてタイムアウトになった

プールされた接続がすべて使用中で、プールサイズの制限値に達した可能性があります

調べると１つのアプリケーションプールがＤＢに接続する際に使用するプール数ＭＡＸはデフォルト１００。

これを超えた場合、上記のような現象になる。

プール数が異常に溜まる場合は基本的にはプログラムが原因で、

きちんとDBをクローズしないようなプログラムを書いていると処理が終わった後もプールが４分～１０分残り続ける。

その間に溜まりに溜まって100以上になるとこの現象になる。

プログラムの原因は別途調べるとして

ひとまず現状を回復したい場合は web.configにてMaxPool数をデフォルトの100から200等にUPすればよい。

デメリットとしては永遠に増え続けた場合。メモリを大量に使うことになる懸念がある。

現在のプール数を調べるSQL文は以下（sa権限が必要）

--①hostname内訳
SELECT DB_NAME(sP.dbid) AS the_database,hostname
, COUNT(sP.spid) AS total_database_connections
FROM sys.sysprocesses sP
--where DB_NAME(dbid) = 'ＸＸＸＸDB'　--DB名で絞りたい場合
--and hostname in ('webサーバ名で絞りたい場合')
GROUP BY DB_NAME(sP.dbid),hostname
ORDER BY 1;

--②DB別のsleepコネクション数の分布をチェック
SELECT spid,DB_NAME(sP.dbid) AS the_database , hostname AS host, *
FROM sys.sysprocesses sP
--WHERE DB_NAME(sP.dbid) = 'ＸＸＸＸDB'　--DB名で絞りたい場合
--and hostname in ('webサーバ名で絞りたい場合')
WHERE status = 'sleeping'
ORDER BY hostname,login_time;

--③さらに詳細が知りたい場合
Select text,* from master.dbo.sysprocesses
OUTER APPLY sys.dm_exec_sql_text(sql_handle) AS qt
where
--spid = *** -- ②で取得したsession_idをここにセット
spid IN (267,
271,
264,
245,
119
)

上記ＳＱＬ文で、溜まっているＳＱＬを割り出し、そこから該当のプログラムを探し出すといいかも

[パワポマン]パワポマンコレクション【内勤の女の人】

2020-10-29T16:56:00.003+09:00

使い勝手が良くてコレクション＆独自作成している廃止されたパワポマン画像

その３．内勤の女の人

[パワポマン]パワポマンコレクション【工場の人】

2019-08-08T22:17:00.001+09:00

使い勝手が良くてコレクション＆独自作成している廃止されたパワポマン画像

その２．工場の人

[パワポマン]パワポマンコレクション【サラリーマン】

2019-07-29T20:19:00.002+09:00

使い勝手が良くてコレクション＆独自作成している廃止されたパワポマン画像

その１．サラリーマン

[C#]LINEWORKS用のJWT認証を行ってメッセージを送る

2019-07-29T17:06:00.002+09:00

そのものズバリな記事がなかったので、作成。
C#のLINEのチャットbotの作り方はありますけどLINE WORKSはまだまだ全然ない…
そもそもC#でLINE WORKS作る人少なそう…

①ー１　まずはLINEWORKSとの連携に必要な値の設定

以下の様に値を宣言します。

LINE WORKS Developersで設定した値をセットします。

static int botNo = 9999;
static string apiId = "kfew******Oy";
static string serverId = "afei*******24239e";
static string consumerKey = "WOpe*******elK";
static string privateKey = "-----BEGIN PRIVATE KEY-----MAIEvA******JZhJIZ=-----END PRIVATE KEY-----";

※serverId …ServerList(ID固定タイプ)のIDをセット

※consumerKey …ServerApiConsumerKeyをセット

※privateKey …ServerList(ID固定タイプ)の認証キーを１行につなげます。

②ー１　JWT認証を使ってアクセストークンの取得(準備）

Pemキー(privatekey)を.NETで扱うのは難しく、RSAとして使用するには一度xmlに変換しないといけないらしい…これがつらかった。

これを解消する為に、Nugetで「opensslkey」を追加しておきます。

（OpensslKey.csというプログラムが出来るだけ）

②ー２　JWT認証を使ってアクセストークンの取得(関数）

OpensslKeyを使って以下の関数を作ります。これでアクセストークンが取得できます。

public string GetAccessToken()

{

//ＪＷＴトークンの作成=======================================================

string request_jwt = null;

//privatekeyをRSAとして使用できるように変換

var pkcs8privatekey = Security.opensslkey.DecodePkcs8PrivateKey(privateKey);　

var rsa = Security.opensslkey.DecodePrivateKeyInfo(pkcs8privatekey);　　

var key = new Microsoft.IdentityModel.Tokens.RsaSecurityKey(rsa);

// トークン操作用のクラスを用意

var handler = new System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler();

// 署名情報クラスを生成

var credentials = new Microsoft.IdentityModel.Tokens.SigningCredentials(key, "RS256");

var descriptor = new Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor

{

Issuer = serverId,

SigningCredentials = credentials,

IssuedAt = DateTime.UtcNow,

Expires = (DateTime.UtcNow).AddMinutes(10),

};

// トークンの生成

var token = handler.CreateJwtSecurityToken(descriptor);

// トークンの文字列表現を取得

var tokenString = handler.WriteToken(token);

//アクセストークンの取得=======================================================

//認証URL

string TOKEN_ENDPOINT = @"https://auth.worksmobile.com/b/" + apiId + "/server/token";

var client = new WebClient();

client.Encoding = Encoding.UTF8;

var content = new NameValueCollection();

request_jwt = tokenString;

content["assertion"] = request_jwt;

content["grant_type"] = "urn:ietf:params:oauth:grant-type:jwt-bearer";

string response = Encoding.UTF8.GetString(client.UploadValues(TOKEN_ENDPOINT, "POST", content));

var result = JsonConvert.DeserializeObject<Token>(response);

return result.AccessToken;

}

③ー1 送信してみる

content(内容）は省きますが、以下の様に行えば実際に送信できます。

//（obj_contentは各自でModelを作って作成）

string jsonRequest = JsonConvert.SerializeObject(obj_content);

StringContent content = new StringContent(jsonRequest);

content.Headers.ContentType = new MediaTypeHeaderValue("application/json");

HttpClient client = new HttpClient();

var url = "https://apis.worksmobile.com/" + apiId + "/message/sendMessage/v2";

var token = GetAccessToken();

var request = new HttpRequestMessage(HttpMethod.Post, url);

request.Headers.Add("ContentType", "application/json");

request.Headers.Add("Authorization", "Bearer " + token);

request.Headers.Add(@"consumerKey", @"" + consumerKey );

request.Content = content;

var response = await client.SendAsync(request);

//string responseContent = await response.Content.ReadAsStringAsync();

[.NET]コード内Enumだけで宣言したデータでドロップダウンの候補をセット

2019-02-15T12:35:00.001+09:00

オリジナルのドロップダウンを作成する場合、宣言部だけで使いまわしたい…
ということで以下。

①Enum宣言
----------------------------------------------

public enum enumHito : byte

{

[Display(Name = "太郎")]

Tarou = 12334,

[Display(Name = "花子")]

Hanako = 19483,

}

----------------------------------------------

②宣言したEnumから属性：NameをGetする共通関数を作成しておく。

----------------------------------------------

//属性:Nameを取得

public static class GetAttribute

{

public static string Name(object obj)

{

var fieldInfo = obj.GetType().GetField(obj.ToString());

var descriptionAttributes = fieldInfo.GetCustomAttributes(typeof(DisplayAttribute), false) as DisplayAttribute[];

if (descriptionAttributes != null && descriptionAttributes.Length > 0)

{

return descriptionAttributes[0].Name;

}

else

{

return string.Empty;

}

----------------------------------------------

③②を使って①情報からドロップダウン候補をデータバインドする。

----------------------------------------------

var data = new List<Tuple<int, string>>();

foreach (enumKenaskuShubetsu row in Enum.GetValues(typeof(enumHito)))

{

data.Add(new Tuple<int, string>((int)row, GetAttribute.Name(row)));

}

ddlhoge.DataValueField = "item1";

ddlhoge.DataTextField = "item2";

ddlhoge.DataSource = data;

ddlhoge.DataBind();

----------------------------------------------

[.NET]オブジェクト内に同じプロパティがあった場合、同じ値をセットする

2019-02-15T12:18:00.001+09:00

①以下のような関数を作成。
------------------------------------------------

/// <summary>

/// 同じプロパティから同じ値をセットします

/// </summary>

/// <typeparam name="T"></typeparam>

/// <param name="self"></param>

/// <param name="Frommodel"></param>

public static void CopyFromSameProperty<T>(this T self, object Frommodel, List<string> Lstexcept = null)

{

PropertyInfo[] propertyInfo = Frommodel.GetType().GetProperties();

foreach (PropertyInfo p in propertyInfo)

{

if (Lstexcept != null && Lstexcept.Contains(p.Name)){ continue; }

//コピー元

var arg = p.GetValue(Frommodel, null);

//コピー先

PropertyInfo pTo = self.GetType().GetProperty(p.Name);

if (pTo != null)

{

pTo.SetValue(self, arg);

}

------------------------------------------------
②使い方は以下。
------------------------------------------------

// ベースとなる行

var baseRow = db.T_hoge.Where(d => d.番号 == 1234).FirstOrDefault();

var newRow = new T_hoge();

newRow.CopyFromSameProperty(baseRow); //一度全項目コピーする

------------------------------------------------

※「このプロパティはコピーしたくない！」というものがあるならば
　以下の様にプロパティ名を指定すればOK

newRow.CopyFromSameProperty(baseRow, new List<string> { "番号" }); //一度全項目コピーする

[.NET]EntityFrameWorkのSQLログを好きな箇所で保存する

2019-02-15T12:08:00.000+09:00

EntityFrameWorkでSQLログを取りたい時、以下の様に書けばいいが

db.Database.Log = sql => { Debug.Write(sql); };

これだと同じdb内で処理したところすべてのSQLを取ってしまう。

（どうでもいいSELECT文とか…UPDATEだけでいいのに的な）

①Using等でくくったところだけ、SQLログを取るようにしたかったので

　以下のようなクラスを作成。

-----------------------------------------------------------------------------

public partial class EFlogSave : IDisposable

{

bool flgWrite = false;

string tmp = true; //一時的に採取をやめる場合はここをfalseに

bool flgConfig;

string strSQLLog = string.Empty;

public EFlogSave(DbContext db, bool flg = true, string strHeadtext = null)

{

if (bool.TryParse(tmp, out flgConfig))

{

if (flg && flgConfig) { flgWrite = true; }

};

if (flgWrite)

{

if (strHeadtext != null) { strSQLLog = strHeadtext; }

db.Database.Log = x => { strSQLLog += x; };

}

public EFlogSave(DbContext db, string strHeadtext )

{

if (bool.TryParse(tmp, out flgConfig))

{

if (flgConfig) { flgWrite = true; }

};

if (flgWrite)

{

if (strHeadtext != null) { strSQLLog = strHeadtext; }

db.Database.Log = x => { strSQLLog += x; };

}

//dispose周り---------------

bool disposed = false;

SafeHandle handle = new SafeFileHandle(IntPtr.Zero, true);

public void Dispose()

{

Dispose(true);

GC.SuppressFinalize(this);

}

protected virtual void Dispose(bool disposing)

{

if (disposed)

return;

if (disposing)

{

handle.Dispose();

// Free any other managed objects here.

}

//SQLログを吐き出す

if (flgWrite) { Debug.Write(strSQLLog); }

disposed = true;

}

--------------------------------------------------------------------------

Usingでくくっておいて、disposeする時にSQL文を吐き出す、という仕組み。

②実際のコードでの使い方は以下。

---------------------------------------------------------------------------

using (var db = new HogeDBEntities())

{

var updRow = db.T_てすと.Where(d => d.番号 == 12345).FirstOrDefault()；

using (new EFlogSave(db)) // SQLログを取る時のみ指定

{

updRow.状態区分 = 3;

db.SaveChanges();

}

---------------------------------------------------------------------------

EFlogSaveでくくった、UPDATEの箇所だけSQLを吐き出してくれる。

[ASP.NET]RadioButtonListでNULLの値がセットできない時の回避法

2017-02-28T12:20:00.001+09:00


エラー内容：
追加情報:項目一覧に存在しないため、'rdo******' に SelectedValue を指定することは無効です。


NULLはありえないデータだから…ということなのか。回避方法としては以下をおこなった。

①NULLの選択肢をダミーで用意する。
　データセットするSQL文を以下の様にしてUNION ALL でダミーを作る。
　（最初に作らないと後がややこしいのでデータ段階から行うのがよい
  SELECT '' as val, '' as tmp UNION ALL  SELECT CAST([情報値] AS varchar)  , [情報1]  FROM M_マスタ 
②【rdo_DataBound_NullDisplayNone】等の関数を介してNULLの選択肢を見えなくする。
aspx
  <asp:RadioButtonList id="rdotest" OnLoad="rdo_DataBound_NullDisplayNone" … cs
 protected void rdo_DataBound_NullDisplayNone(object sender, EventArgs e)
        {
            var rdolst = (RadioButtonList)sender;
            foreach (ListItem item in rdolst.Items)
            {
                if ((item.Value ?? "") == "")
                {
                    item.Attributes.Add("style", "display:none;");
                    item.Enabled = false;
                }
            }
        }
これでNULL値をセットしてもエラーがでなくなった。

[ASP.NET]AjaxToolKitのAjaxFileUploadがうまく動かない時の対応

2017-02-24T19:38:00.000+09:00

AJAXToolkitのAjaxFileUploadが、開発環境ではうまくいっていたのに動かなかった。
アップロードが"UploadComplete"になる前にNGになる…。

以下、Web.ConfigやIISに対して行ったまとめ。

-----------------------------------------------------------------
①開発時からWen.Configに以下の様なイベントハンドラを追加。

<system.web>
  <httpHandlers>
    <add verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit" />
  </httpHandlers>
</system.web>
<system.webServer>
  <handlers>
    <add name="AjaxFileUploadHandler" verb="*" path="AjaxFileUploadHandler.axd" type="AjaxControlToolkit.AjaxFileUploadHandler, AjaxControlToolkit" />
  </handlers>
</system.webServer>

これがないと開発の段階ですらどうあがいてもNG。
http://stackoverflow.com/questions/17051845/ajaxfileupload-error

②その後ｻｰﾊﾞに移管した時にうまくいかず…。
　IIS7以上はこっちというからsystem.webserver内をこっちの書き方にした

<validation validateintegratedmodeconfiguration="false" />
<handlers>
    <add name="AjaxFileUploadHandler" verb="*">
      path="AjaxFileUploadHandler.axd"
      type="AjaxControlToolkit.AjaxFileUploadHandler, 
      AjaxControlToolkit"/>
</add></handlers>

役にたったか否かは不明…。
https://www.codeproject.com/Questions/773110/AjaxFileUpload-server-events-not-firing

③とりあえず仮想ディレクトリに権限与えまくった
　このサイトよかった。
https://creativeweb.jp/tips/iis_acl/

④それでもうまくいかず。
　アプリケーションプールが統合モードならこう書けとあったから
　上記の書き方に、preCondition="integratedMode"　を追加した。
（「preCondition="integratedMode"」と書いてあるトコ参照）
http://stackoverflow.com/questions/22706303/ajaxfileupload-not-working-in-iis-7-5-and-later

⑤それでもうまくいかず。
　よくわかんなかったが以下のサイトを見てASPXのコードのトコで
　 UseAbsoluteHandlerPath="false"　を加えた　
　アドレスがなんたららしいけど… 関係なさそうに見えたのにこれだったかも
https://github.com/DevExpress/AjaxControlToolkit/issues/43

-----------------------------------------------------------------

以上でうまくいった！

[ASP.NET]RegularExpressionValidatorやCompareValidatorを使って日付のチェックを行う。

2016-12-06T18:24:00.001+09:00

Validatorシリーズを使って
日付のエラーチェックをする方法です。

イメージはこんな感じ。

①存在する日付をチェックするにはCompareValidator を使います。

<asp:TextBox runat="server" ID="txtNyukoHi" TextMode="Date" Width="150px" CssClass="form-control" />
<asp:CompareValidator runat="server" ControlToValidate ="txtNyukoHi" Type="Date" 
 ValueToCompare="2999/12/31" Operator="LessThan"
    CssClass="text-danger" Display="Dynamic" ErrorMessage="存在しない日付です" />

②これだけだと、MM/DD/YYYYとかでもOKになってしまうみたいです。
ということで、RegularExpressionValidatorを追加します。


<asp:TextBox runat="server" ID="txtNyukoHi" TextMode="Date" Width="150px" CssClass="form-control" />
<asp:RegularExpressionValidator runat="server" ControlToValidate="txtNyukoHi" 
ValidationExpression="(19|20|21)\d{2}/(0?[1-9]|1[0-2])/(0?[1-9]$|[1-2][0-9]$|3[0-1]$)"
 CssClass="text-danger" Display="Dynamic"  ErrorMessage="[年/月/日]ではありません<br/>" />
<asp:CompareValidator runat="server" ControlToValidate ="txtNyukoHi" Type="Date" 
 ValueToCompare="2999/12/31" Operator="LessThan"

  CssClass="text-danger" Display="Dynamic" ErrorMessage="存在しない日付です" />

追記：ただしこれだと、[年/月/日]ではない場合、２つエラーが表示されるんですよね…

なので、RegularExpressionValidatorはゆるーくチェックをするだけでもいいかなと思っています。
正規表現をゆるくしました。ガチガチにしたい方は上記の正規表現がいいかなと思います。

<asp:TextBox runat="server" ID="txtNyukoHi" TextMode="Date" Width="150px" CssClass="form-control" />
<asp:RegularExpressionValidator runat="server" ControlToValidate="txtNyukoHi" 
ValidationExpression="\d{4}/\d{1,2}/\d{1,2}$"
 CssClass="text-danger" Display="Dynamic"  ErrorMessage="[年/月/日]ではありません<br/>" />
<asp:CompareValidator runat="server" ControlToValidate ="txtNyukoHi" Type="Date"  
 ValueToCompare="2999/12/31" Operator="LessThan"
 CssClass="text-danger" Display="Dynamic" ErrorMessage="存在しない日付です" />

もうちょっと正規表現緩くした方がいいかな…

[CSS]必須のマークをCSSでつける（線を引いてみる）

2016-11-29T14:29:00.002+09:00

入力フォームで必須の場合に
CSSで指定して"*"マークを後ろにつけるのはちらほら見かけるが、
今回は以下の様に線の色を変えるバージョンをCSSで作ってみる。

HTMLはこんな感じ。[Requied]を指定します。
-----------------------------------------------------------
<td class="Requied" style="background-color:Gray;">部数</td>
------------------------------------------------------------

[Requied]は以下の様に指定すればOK。

-----------------------------------------------------------

td.Requied::before {
content: "";
position: absolute;
height: 36px;
box-shadow: 0px 0px 0px 1px red;
-webkit-box-shadow: 0px 0px 0px 1px red;
-moz-box-shadow: 0px 0px 0px 1px red;
-o-box-shadow: 0px 0px 0px 1px red;
margin-left: -5px;
margin-top: -6px;
margin-bottom: -8px;
margin-right: 6px;

}

------------------------------------------------------------

[Bootstrap]Bootstrap既存のボタンの色を変える。

2016-11-22T18:15:00.002+09:00

おなじみのBootstrap既存のボタンの色違いバージョンを作りたい場合。

変えたい色１つにつき以下のようなCSSを作る。(例:btn-ccolor_g1という名前で)

/*-----------------------------------------------*/

/*カスタムカラーグラデ１（赤グラデ）*/

.btn-ccolor_g1 {

/*置換するもの*/

/*ccolor_g1　　　　　　　　　←CSS名*/

/*D11217～851818 　　　←ボタングラデ色*/

/*721717 ←フォーカス時の色*/

/*edc5fb ←disable時の色*/

background-color: #D11217;

　　　　color: white;

border-color: #851818;

}

.btn-ccolor_g1:hover,

.btn-ccolor_g1:focus {

background-color: #721717;

background-position: 0 -15px;

color:white;

}

.btn-ccolor_g1:active,

.btn-ccolor_g1.active {

background-color: #721717;

border-color: #721717;

color:white;

}

.btn-ccolor_g1.disabled,

fieldset[disabled] .btn-ccolor_g1,

.btn-ccolor_g1.disabled:hover,

fieldset[disabled] .btn-ccolor_g1:hover,

.btn-ccolor_g1.disabled:focus,

fieldset[disabled] .btn-ccolor_g1:focus,

.btn-ccolor_g1.disabled.focus,

fieldset[disabled] .btn-ccolor_g1.focus,

.btn-ccolor_g1.disabled:active,

fieldset[disabled] .btn-ccolor_g1:active,

.btn-ccolor_g1.disabled.active,

fieldset[disabled] .btn-ccolor_g1.active {

background-color: #edc5fb;

border-color: #edc5fb;

color:white;

}

/*-----------------------------------------------*/

ポイント…

①基本ボタン色・フォーカスの時の色・disableの時の色３つ用意する。

　基本ボタン色はグラデにする気がないのなら開始色も終わり色も同じ色にすればOk

　フォーカスの時の色は基本ボタン色を濃くしたもの、

　disableの時の色は基本ボタン色をかなり明るくしたもの、を用意する。

②/*置換するもの*/にあるCSS名とデフォの色を
　　①で用意した色に一斉置換でマルっと置き換える。

HTMLでの使い方は以下。btn-defaultに重ねること。

/*-----------------------------------------------*/

class="btn btn-default btn-ccolor_g1"

/*-----------------------------------------------*/

[javascript]JQueryで一覧内の特定のボタンを押した際に行を把握する。

2016-08-31T16:18:00.000+09:00

JQueryにて一覧内の特定のボタンを押した際に行を把握します。

①HTML側は以下のようにボタンを配置します。
--------------------------------------------

<table>

…

<tr>
<td>
　<button id="btnJump_0">詳細</button>
</td>
<td>
  <input id="KEYNO_0" type="hidden" value="111" />
</td>
<td>
  １行目です。
</td>
</tr>

…

</table>

--------------------------------------------

②Javascriptは以下の様に書けばOK。
【^】は前方一致で探す、というJQuery上の意味なので
ここを後方一致などに変更して使用してもOKですし
連番を振っていなくても動くと思います。
---------------------------------------------
//ボタンを押された時
    $(document).ready(function () {
        $("[id^='btnJump']").click(function () {

            //ここでボタンを押された行が把握できます。
            var row = $(this).parent().parent();

            //以降はこれを用いてそれぞれの値をゲットしたりできます。
            var KEYNO = row.find($("[id^='KEYNO']")).val();
            alert("押された行のキーNOは" +　KEYNO + "です");
        });
    });
---------------------------------------------

[ASP.NET MVC]Javascript動作も込みのヘルパーを作成（コードベース）。

2016-08-30T17:08:00.000+09:00

以下の様に

コードを入力すると名前が表示される…といった

よくある動きを込み込みにしたヘルパー（コードベース）を作成してみる。

①ヘルパーは以下の様な感じ。
-----------------------------------------
namespace TESTHelpers
{
public static IHtmlString MemberCodeFor<TModel, TProperty>(
           this HtmlHelper<TModel> helper,
           Expression<Func<TModel, TProperty>> Codeexpression,
           Expression<Func<TModel, TProperty>> Nameexpression,
           String CustomCDid = "Member_Cd",
           String CustomNameid = "Member_Name")
{
           //TextboxFor
           HtmlString htmlTextBox = helper.TextBoxFor(Codeexpression,
                            new
                            {                               @id = CustomCDid
                            });

           //Display用TextBox
       HtmlString htmlTextBox2 = helper.TextBoxFor(Nameexpression,
                            new
                             {
                           　　@id = CustomNameid,
                           　　@readonly = "readonly"
                           　});

           //div1
　　　　　var myTag = new TagBuilder("div");
　　　　　myTag.MergeAttribute("style", "width:120px");
　　　　　myTag.InnerHtml = "担当者";
　　　　　//div2
　　　　　var myTag2 = new TagBuilder("div");
　　　　　myTag2.InnerHtml = htmlTextBox.ToHtmlString();
　　　　　//div3
　　　　　var myTag3 = new TagBuilder("div");
　　　　　myTag.MergeAttribute("style", "width:240px");
　　　　　myTag3.InnerHtml = htmlTextBox2.ToHtmlString();
　　　　　//改行
　　　　　var Enter = new StringBuilder();
　　　　　Enter.AppendLine("");
　　　　　　//外出ししたScript部
　　　　　String strScript = helper.MemberJavascript(CustomCDid ,CustomNameid ).ToString();
　　　　　//連結してreturn
　　　　　var ReturnHTML = myTag.ToString() + myTag2.ToString() + myTag3.ToString() + Enter.ToString() + strScript;　　　　　return new HtmlString(ReturnHTML.ToString());
}
public static IHtmlString MemberJavascript(string fromid, string toid)
{
            //Script部生成----------------------------------------
            var sb = new StringBuilder();
               sb.AppendLine(" $(function () {");
            sb.AppendLine("   $('#" + fromid + "').change(function () {");
            sb.AppendLine("    var Member_Cd = $('#" + fromid + "').value;");
            sb.AppendLine("    alert(\"ここにWebサービス等を使用して名前を取得するスクリプトを記載\");");
             sb.AppendLine("   });");
            sb.AppendLine(" });");
            //----------------------------------------------------
             var ScriptTag = new TagBuilder("script");
            ScriptTag.MergeAttribute("type", "text/javascript");
            ScriptTag.InnerHtml = sb.ToString();

            return new HtmlString(ScriptTag.ToString());
}
}
------------------------------------------
(readonlyはbootstrap独自だったかな…）

②View側は以下の様書くだけでOK。
------------------------------------
@using HelpersTest

@Html.MemberCodeFor(m => m.Member_Cd, m => m.Member_Name, "Member_Cd", "Member_Name")
------------------------------------

[SQL]SQLServerにて一時保存テーブルを扱う。

2016-03-04T16:56:00.002+09:00

一瞬だけ取り込んで加工したい場合…
一時保存テーブルですが
きちんと消えているかはちゃんと確認したほうがいいです。
（念の為一応前後にDROP句をつけています）


---------------------------------------------

BEGIN TRAN TEST;

--ワークの事前削除
IF OBJECT_ID('tempdb..#TMP_取込ワーク') IS NOT NULL DROP TABLE #TMP_取込ワーク;

   --ワークの生成
CREATE TABLE #TMP_取込ワーク
(Folder1 varchar(100),
Folder2 varchar(100),
Folder3 varchar(100),
Folder4 varchar(100),
Folder5 varchar(100),
Folder6 varchar(100),
Level varchar(100),
Size varchar(100),
Percentage varchar(100));

   --ここを取り込みプログラムにしてみたり
INSERT INTO #TMP_取込ワーク VALUES
( '24245' ,'1503AK1502D','仕様書.xls' , NULL, NULL, NULL,NULL,'1',NULL );
INSERT INTO #TMP_取込ワーク VALUES
( '24245' ,'1403A44674D','お見積り.xls' , NULL, NULL, NULL,NULL,'1',NULL );

--できたデータをここで加工したり
  SELECT *
FROM #TMP_取込ワーク

--一応終わったら消す
DROP TABLE #TMP_取込ワーク

--ROLLBACK TRAN TEST;
COMMIT TRAN TEST;

---------------------------------------------

[CSS]表題や注意書きの前に丸や四角を表示する。

2015-10-19T21:18:00.003+09:00

よく忘れるのでメモ。
--------------
●ここに注意！
--------------
↑などを表記するとき、画像をはりつけるのは面倒なのでＣＳＳで行う。

出来上がりイメージはこちら
↓↓↓↓↓↓

CSS/HTMLは以下。

.header1-1{
height:40px;
}
.header1-1:before {
content: "";
margin-right:5px;
display: inline-block;
border: 5px solid transparent;
background: #337AB7;
border-radius: 5px;
}
.header1-2{
height:40px;
}
.header1-2:before {
content: "";
margin-right:3px;
display: inline-block;
border: 8px solid;
border-top-color: transparent;
border-right-color: transparent;
border-bottom-color: transparent;
border-left-color: red;
}
.header1-3{
height:40px;
}
.header1-3:before {
content: "";
margin-right:5px;
display: inline-block;
border: 7px solid;
border-top-color: transparent;
border-right-color: #66CC22;
border-bottom-color: transparent;
border-left-color: #CC2266;
background: #337AB7;
border-radius: 7px;
}
.header1-4{
height:40px;
}
.header1-4:before {
content: "";
margin-right:5px;
display: inline-block;
border: 7px solid transparent;
background: #337AB7;
}
.header1-5{
height:40px;
}
.header1-5:before {
content: "";
margin-right:5px;
display: inline-block;
border: 7px solid transparent;
background: #337AB7;
border-radius: 3px;
}
.header1-7{
width:22px;
color:blue;
display: inline-block;
border: 1px solid black;
background: pink;
border-radius: 10px;
}

<div class="header1-1">前に○をつけてみます。</div>

<div class="header1-2">前に△をつけてみます。</div>

<div class="header1-3">組み合わせるとおかしなものもできあがった。</div>

<div class="header1-4">シンプルな□はこれ</div>

<div class="header1-5">○の角度を変えると□っぽく</div>

やりながら思ったけど①などもＣＳＳで実装できる  →  <div class="header1-7" >a</div>

[その他]SQLServerとExcelマクロを使ってリバースER図を作成する。（エンティティのみ）

2015-06-17T15:37:00.000+09:00

①まずは以下のSQL文を↓SQLServer上指定のDB上にて実行しましょう

SELECT
object_name(sys.columns.object_id),
sys.columns.column_id,
sys.columns.name,
sys.indexes.name AS INDEX_NAME,
sys.indexes.is_primary_key AS TEST

FROM
sys.columns inner join sys.objects on
sys.columns.object_id = sys.objects.object_id

LEFT JOIN
sys.index_columns
on sys.columns.column_id = sys.index_columns.column_id
and sys.columns.object_id = sys.index_columns.object_id

LEFT JOIN sys.indexes
on sys.indexes.object_id = sys.index_columns.object_id

where

ISNULL(sys.indexes.is_primary_key ,-1) IN (-1,1)
and
sys.objects.type = 'U'

--もしER図に出したくないカラムがある場合はここで指定

--and
--sys.columns.name NOT IN ( --'created',
--'テスト項目',
--'削除フラグ'
--)

--テーブルしぼるならここで！

--and
--LEFT(object_name(sys.columns.object_id),8) IN (
--'T_氏名'
--'T_給与'
--)

order by
object_name(sys.columns.object_id),
column_id

②出力された結果をエクセルに貼り付けて以下の様にします
　（必ずＡ１セルから貼り付けてください）

③貼り付けたシート上で以下のＶＢＡマクロを実行します。

Dim WB As Workbook
Set WB = ActiveWorkbook
Dim WS1 As Worksheet
Set WS1 = WB.ActiveSheet

WS1.Select
Range("A1:E1").Select
Range(Selection, Selection.End(xlDown)).Select

'--------------------------------------------------------
'実行速度向上のため画面更新と自動計算を停止
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'-----------------------------------------------------------

'現在選択しているセルの取得
Dim intStartGyo As Integer: intStartGyo = Selection.Row
Dim intLastGyo As Integer: intLastGyo = Selection.Row + Selection.Rows.Count - 1
Dim intStartClm As Integer: intStartClm = Selection.Column
Dim intLastClm As Integer: intLastClm = Selection.Column + Selection.Columns.Count - 1

'※初期置
Dim Rng As Range
Set Rng = WS1.Cells(intStartGyo, intStartClm)

Dim lWidth As Long: lWidth = 150 'エンティティオブジェクトのサイズ
Dim lHeight As Long: lHeight = 14 'エンティティオブジェクトのサイズ

lLeft = Rng.Left + 350 '初期位置
Ltop = Rng.Top + 10 '初期位置

Dim TblCnt As Integer: TblCnt = 0
Dim TblTitle As String
Dim TblStartTop As Integer
Dim ECnt As Integer
Dim strShapes As String
Dim FlgKey As Boolean

For j = intStartGyo To intLastGyo

'テーブルカウント
If TblTitle <> WS1.Cells(j, intStartClm).Text Then
TblCnt = TblCnt + 1
TblTitle = WS1.Cells(j, intStartClm).Text
ECnt = 0
strShapes = ""
Ltop = WS1.Cells(j + 1, intStartClm).Top + 10
TblStartTop = Ltop
FlgKey = True
End If

'エンティティの作成---------------------------------------

Dim myShape1 As Shape

'主キーからそうでなくなった場合、線を足す
If WS1.Cells(j, intStartClm + 4).Text <> "1" Then
If FlgKey = True Then
Dim SShape As Shape
Set SShape = WS1.Shapes.AddConnector(msoConnectorStraight, lLeft, Ltop, lLeft + lWidth, Ltop)
strShapes = strShapes & "," & SShape.Name
FlgKey = False
End If
End If

Dim oShape As Shape
Set oShape = WS1.Shapes.AddShape(msoShapeRectangle, lLeft, Ltop, lWidth, lHeight)
With oShape
.Fill.Visible = msoFalse
.Fill.Solid 'グラデーション等無し
.Line.Visible = msoFalse
.TextFrame.Characters.Font.Color = vbBlack
If WS1.Cells(j, intStartClm + 4).Text <> "1" Then
.TextFrame.Characters.Text = WS1.Cells(j, intStartClm + 2).Text
Else
.TextFrame.Characters.Text = "■" & WS1.Cells(j, intStartClm + 2).Text
End If
.TextFrame.Characters.Font.Size = 8
.TextFrame.HorizontalAlignment = xlHAlignLeft
End With
strShapes = strShapes & "," & oShape.Name

'追加位置を下へずらす
Ltop = Ltop + lHeight
ECnt = ECnt + 1
'-------------------------------------------------------

'次が異なるテーブルor終了行---------------------------------
If Len(strShapes) > 0 Then
If WS1.Cells(j + 1, intStartClm).Text <> TblTitle Or j + 1 > intLastGyo Then

Set oShape = WS1.Shapes.AddShape(msoShapeRectangle, lLeft, TblStartTop - 20, lWidth, 30 + ECnt * (lHeight + 1))
With oShape
.Fill.Visible = msoFalse
.Fill.Solid 'グラデーション等無し
.Line.Visible = msoTrue
.TextFrame.Characters.Font.Color = vbBlue
.TextFrame.Characters.Text = TblTitle
.TextFrame.Characters.Font.Size = 8
.TextFrame.HorizontalAlignment = xlHAlignLeft
End With
'strShapes(ECnt) = oShape.Name
'ActiveSheet.Shapes.Range(Array("""" & oShape.Name & """" & strShapes)).Select
strShapes = strShapes & "," & oShape.Name

Dim valShapes() As String
valShapes = Split(strShapes, ",")

'oShape.Select
'Selection.ShapeRange.Group.Select
WS1.Shapes.Range(valShapes).Group

'追加位置を右へずらす
'lLeft = lLeft + lWidth + 5
'追加位置を下へずらす
Ltop = Ltop + 30 + ECnt * (lHeight + 1) + 10

End If
End If
'------------------------------------------------------------

Next

'実行速度向上のため画面更新と自動計算を再開---------------
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'-----------------------------------------------------------

MsgBox ("作成成功")

End Sub

④以下の様にER図用のエンティティ図形が出来ます。

[その他]MK-2からコピーしたスキーマ情報からER図用のエンティティオブジェクトを作成するマクロ

2015-06-03T10:39:00.000+09:00

Sub MR2ERtoExcelER()

MsgBox "※変換したい情報を全部選択しておく必要があります※"

Dim WB As Workbook
Set WB = ActiveWorkbook
Dim WS1 As Worksheet
Set WS1 = WB.ActiveSheet

'--------------------------------------------------------
'実行速度向上のため画面更新と自動計算を停止
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'-----------------------------------------------------------

'現在選択しているセルの取得
Dim intStartGyo As Integer: intStartGyo = Selection.Row
Dim intLastGyo As Integer: intLastGyo = Selection.Row + Selection.Rows.Count - 1
Dim intStartClm As Integer: intStartClm = Selection.Column
Dim intLastClm As Integer: intLastClm = Selection.Column + Selection.Columns.Count - 1

'※初期置
Dim Rng As Range
Set Rng = WS1.Cells(intStartGyo, intStartClm)

Dim lWidth As Long: lWidth = 150 'エンティティオブジェクトのサイズ
Dim lHeight As Long: lHeight = 14 'エンティティオブジェクトのサイズ

lLeft = Rng.Left + 350 '初期位置
Ltop = Rng.Top + 10 '初期位置

Dim TblCnt As Integer: TblCnt = 0
Dim TblTitle As String
Dim TblStartTop As Integer
Dim ECnt As Integer
Dim strShapes As String
Dim FlgKey As Boolean

For j = intStartGyo To intLastGyo

'テーブルカウント
If WS1.Cells(j, intStartClm).Text = "[Entity]" Then
TblCnt = TblCnt + 1
TblTitle = Replace(WS1.Cells(j + 1, intStartClm).Text, "PName=", "")
ECnt = 0
strShapes = ""
Ltop = WS1.Cells(j + 1, intStartClm).Top + 10
TblStartTop = Ltop
FlgKey = True
End If

'エンティティの作成---------------------------------------
If Left(WS1.Cells(j, intStartClm).Text, 6) = "Field=" Then

Dim myShape1 As Shape
Dim strText() As String
strText = Split(WS1.Cells(j, intStartClm).Text, ",")

'主キーからそうでなくなった場合、線を足す
If strText(4) = "" Then
If FlgKey = True Then
Dim SShape As Shape
Set SShape = WS1.Shapes.AddConnector(msoConnectorStraight, lLeft, Ltop, lLeft + lWidth, Ltop)
strShapes = strShapes & "," & SShape.Name
FlgKey = False
End If
End If

Dim oShape As Shape
Set oShape = WS1.Shapes.AddShape(msoShapeRectangle, lLeft, Ltop, lWidth, lHeight)
With oShape
.Fill.Visible = msoFalse
.Fill.Solid 'グラデーション等無し
.Line.Visible = msoFalse
.TextFrame.Characters.Font.Color = vbBlack
If strText(4) = "" Then
.TextFrame.Characters.Text = Replace(strText(1), """", "")
Else
.TextFrame.Characters.Text = "■" & Replace(strText(1), """", "")
End If
.TextFrame.Characters.Font.Size = 8
.TextFrame.HorizontalAlignment = xlHAlignLeft
End With
strShapes = strShapes & "," & oShape.Name

'追加位置を下へずらす
Ltop = Ltop + lHeight
ECnt = ECnt + 1
End If
'-------------------------------------------------------

'次が異なるテーブルor終了行---------------------------------
If Len(strShapes) > 0 Then
If WS1.Cells(j + 1, intStartClm).Text = "[Entity]" Or j + 1 = intLastGyo Then

Set oShape = WS1.Shapes.AddShape(msoShapeRectangle, lLeft, TblStartTop - 20, lWidth, 30 + ECnt * (lHeight + 1))
With oShape
.Fill.Visible = msoFalse
.Fill.Solid 'グラデーション等無し
.Line.Visible = msoTrue
.TextFrame.Characters.Font.Color = vbBlue
.TextFrame.Characters.Text = TblTitle
.TextFrame.Characters.Font.Size = 8
.TextFrame.HorizontalAlignment = xlHAlignLeft
End With
'strShapes(ECnt) = oShape.Name
'ActiveSheet.Shapes.Range(Array("""" & oShape.Name & """" & strShapes)).Select
strShapes = strShapes & "," & oShape.Name

Dim valShapes() As String
valShapes = Split(strShapes, ",")

'oShape.Select
'Selection.ShapeRange.Group.Select
WS1.Shapes.Range(valShapes).Group

'追加位置を右へずらす
'lLeft = lLeft + lWidth + 5
'追加位置を下へずらす
Ltop = Ltop + 30 + ECnt * (lHeight + 1) + 10

End If
End If
'------------------------------------------------------------

Next

'実行速度向上のため画面更新と自動計算を再開---------------
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'-----------------------------------------------------------

End Sub

[.NET]Hashテーブル(辞書)宣言方法

2015-02-24T11:07:00.001+09:00

以外にど忘れする宣言方法。

①Hashテーブル（dictionary型）を.Addではなく１文で宣言する方法。
　　Private等の共通定義で使える。
'-----------------------------------
Private dicstrKbn As New System.Collections.Generic.Dictionary(Of String, String)() From {
{"社員１", "Ａさん"},
{"社員２", "Ｂさん"},
{"社員３", "Ｃさん"},
{"社員４", "Ｄさん"}
}
'-----------------------------------

②動的な時は.Addを使う
'-----------------------------------
Dim dicstrKbn As New System.Collections.Generic.Dictionary(Of String, String)
For i As Integer = 0 To res.MainTable.Rows.Count - 1
dicstrKbn.Add("社員1","Ａさん") '←ここを動的に
Next
'-----------------------------------

③使い方は↓

'-----------------------------------

If dicstrKbn.ContainsKey("社員１") Then

messagebox.show(dicstrKbn("社員１").ToString.Trim)

End If

'-----------------------------------

[VBA]選択しているセルを図形オブジェクトに一発変換するマクロ

2015-02-09T18:57:00.005+09:00

フローや機能要件を作成するときに
一度Excelのセルに打ったものを一気に図形オブジェクトに変換したい時用マクロ。

例）これを

　　　　　　　　　　↓

一発でこんな感じに。

----------------------------------------------------------------
Private Sub MakeObject()

Dim WB As Workbook
Set WB = ThisWorkbook
Dim WS1 As Worksheet
Set WS1 = WB.ActiveSheet

'--------------------------------------------------------
'実行速度向上のため画面更新と自動計算を停止
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'-----------------------------------------------------------

'現在選択しているセルの取得
Dim intStartGyo As Integer: intStartGyo = Selection.Row
Dim intLastGyo As Integer: intLastGyo = Selection.Row + Selection.Rows.Count - 1
Dim intStartRow As Integer: intStartRow = Selection.Column
Dim intLastRow As Integer: intLastRow = Selection.Column + Selection.Columns.Count - 1

'※初期置
Dim Rng As Range
Set Rng = WS1.Cells(intStartGyo, intStartRow)

Dim lWidth As Long: lWidth = 100 'オブジェクトのサイズ
Dim lHeight As Long: lHeight = 20 'オブジェクトのサイズ

lLeft = Rng.Left + 10
For i = intStartGyo To intLastGyo

lTop = Rng.Top
For j = intStartRow To intLastRow

'If Len(WS1.cells(i, j).Text) > 0 And WS1.cells(i, j).Text > 0 Then '空欄なら作らない

'図形の作成---------------------------------------
Dim myShape1 As Shape
Dim strText As String
strText = WS1.Cells(i, j).Text
Set myShape1 = WS1.Shapes.AddShape( _
Type:=msoShapeRectangle, _
Left:=lLeft, _
Top:=lTop, _
Width:=lWidth, _
Height:=lHeight)
With myShape1
.Fill.Visible = msoTrue
.Fill.Solid
.TextFrame.Characters.Text = strText
.TextFrame.HorizontalAlignment = xlCenter
End With
'-------------------------------------------------------

'追加位置を下へずらす
lTop = lTop + lHeight + 5

'End If

Next

'追加位置を右へずらす

lLeft = lLeft + lWidth + 5

Next

'実行速度向上のため画面更新と自動計算を再開---------------
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'-----------------------------------------------------------

End Sub

[IIS]既存の接続はリモートホストに強制的に切断されました。のエラー

2014-10-07T15:18:00.002+09:00

IISにてlocalhost設定をした時にでるエラー。

-----------------------------
ページに関連する構成データが無効であるため、要求されたページにアクセスできません。
構成データ：web.config
-----------------------------

エラーコードによるが今回は権限不足っぽい。

以下の３つを試してみる。

----最初のステップ-----

①IISの設定画面より今回の仮想ディレクトリに対する「機能ビュー」の「ディレクトリの参照」を開く。

　⇒画面右の「ディレクトリの参照」機能を「有効」にする。

----これでダメなら-----

②使用している仮想フォルダに対する

　　エクスプローラ「プロパティ」⇒「セキュリティタブ」にて

　　(端末名)\IUSR_(端末名)

　ユーザを作り、

　これに対して読み取り権限を与える。

----これでダメなら-----

③使用している仮想フォルダに対する

　　エクスプローラ「プロパティ」⇒「セキュリティタブ」にて

　　(端末名)\everyone

　ユーザを作り、

　これに対して読み取り権限を与える。

[SQL]他テーブルを利用して更新するＳＱＬ文その３

2014-04-10T20:20:00.001+09:00

苦手な他テーブルを使ったUPDATE文その３。続きもの。

で、３にて最終形態。観念してEXIST文を使う。

----------------------------------
①EXISTにて他テーブルでの存在をチェックしつつ
②更新内容には他テーブル（まぁ一緒なんだけど）の内容を利用するSQL文。
----------------------------------

UPDATE テーブル１
SET
項目１ = B1.項目１,
項目２= B1.項目２,
FROM
テーブル２ AS B1
WHERE
テーブル１.主キー = 1 and B1.主キー = 0
AND
EXISTS
( SELECT * FROM テーブル２ AS B2 WHERE テーブル１.主キー = B2.主キー )

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
①の存在チェックはＢ２にてしつつ、
②の内容をとってくるのはＢ１にてしているという概要。
元をただせばＢ１もＢ２も同じテーブルなんだけど。

[VB.NET]Config設定を怠った時のエラー

2014-04-10T20:14:00.001+09:00

エラー覚書。
===================================
基礎になる接続が閉じられました: 受信時に予期しないエラーが発生しました ---> System.IO.IOException: 転送接続からデータを読み取れません: 既存の接続はリモートホストに強制的に切断されました。
===================================

===================================

[原因]

複数のクラサバdllにて動かす際に、
config内で各dllに対するWebサービスの指定が足りない。
===================================

===================================

「うんちく」

基本的には関連するdlｌは

exe.config内で

'①上段あたりにて定義して
<section name="************" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=*******" requirePermission="false"/>

'②上段あたりでWebサービス定義する。

<*************.My.MySettings>

</setting>

</setting>

</***********.My.MySettings>

===================================

場合によるかもだけどこれを怠ると以下のエラーが出た。↓↓↓↓↓↓

===================================

[Value1:0][Value2:0][Value3:]System.Net.WebException: 基礎になる接続が閉じられました: 受信時に予期しないエラーが発生しました ---> System.IO.IOException: 転送接続からデータを読み取れません: 既存の接続はリモートホストに強制的に切断されました。。 ---> System.Net.Sockets.SocketException: 既存の接続はリモートホストに強制的に切断されました。
場所 System.Net.Sockets.Socket.Receive(Byte[] buffer, Int32 offset, Int32 size, SocketFlags socketFlags)

…

場所 System.Web.Services.Protocols.SoapHttpClientProtocol.Invoke(String methodName, Object[] parameters)

…
===================================

[SQL]他テーブルを利用して更新するＳＱＬ文その２

2014-04-01T22:55:00.002+09:00

相変わらず苦手なＳＱＬ文。

①他テーブルを利用する基本の形は（SQLServerにて）
'--------------------------
UPDATE T_テストテーブル SET 区分 = 2
FROM T_参照テーブル AS B
where
T_テストテーブル.伝票No = B.伝票No AND B.区分 = 2
'--------------------------

②どうも確認する術がないので

WITH文を使って一度確認したいなら

'--------------------------

with B as (

SELECT B2.伝票No

FROM Ｔ_参照テーブル AS B1 LEFT JOIN T_テストテーブル AS B2 ON B1.伝票No = B2.伝票No

WHERE

B1.区分 = 2

)

'--------------------------

で、確認してから

'--------------------------

with B as (

SELECT B2.伝票No

FROM Ｔ_参照テーブル AS B1 LEFT JOIN T_テストテーブル AS B2 ON B1.伝票No = B2.伝票No

WHERE

B1.区分 = 2

)

UPDATE T_テストテーブル

SET (区分 = 2)

where T_テストテーブル.伝票No IN (SELECT * FROM B)

'--------------------------

というか、結局は
②をやるならEXIST文使えという話になるのでした。

おぼえがきＩＴブログ

[SQLServer]エラー「プールから接続を取得する前にタイムアウト期間が過ぎました。プールされた接続がすべて使用中で、プール サイズの制限値に達した可能性があります」

[パワポマン]パワポマンコレクション【内勤の女の人】

[パワポマン]パワポマンコレクション【工場の人】

[パワポマン]パワポマンコレクション【サラリーマン】

[C#]LINEWORKS用のJWT認証を行ってメッセージを送る

[.NET]コード内Enumだけで宣言したデータでドロップダウンの候補をセット

[.NET]オブジェクト内に同じプロパティがあった場合、同じ値をセットする

[.NET]EntityFrameWorkのSQLログを好きな箇所で保存する

[ASP.NET]RadioButtonListでNULLの値がセットできない時の回避法

[ASP.NET]AjaxToolKitのAjaxFileUploadがうまく動かない時の対応

[ASP.NET]RegularExpressionValidatorやCompareValidatorを使って日付のチェックを行う。

[CSS]必須のマークをCSSでつける（線を引いてみる）

[Bootstrap]Bootstrap既存のボタンの色を変える。

[javascript]JQueryで一覧内の特定のボタンを押した際に行を把握する。

[ASP.NET MVC]Javascript動作も込みのヘルパーを作成（コードベース）。

[SQL]SQLServerにて一時保存テーブルを扱う。

[CSS]表題や注意書きの前に丸や四角を表示する。

[その他]SQLServerとExcelマクロを使ってリバースER図を作成する。（エンティティのみ）

[その他]MK-2からコピーしたスキーマ情報からER図用のエンティティオブジェクトを作成するマクロ

[.NET]Hashテーブル(辞書)宣言方法

[VBA]選択しているセルを図形オブジェクトに一発変換するマクロ

[IIS]既存の接続はリモート ホストに強制的に切断されました。のエラー

[SQL]他テーブルを利用して更新するＳＱＬ文その３

[VB.NET]Config設定を怠った時のエラー

[SQL]他テーブルを利用して更新するＳＱＬ文その２

[SQLServer]エラー「プールから接続を取得する前にタイムアウト期間が過ぎました。プールされた接続がすべて使用中で、プールサイズの制限値に達した可能性があります」

[IIS]既存の接続はリモートホストに強制的に切断されました。のエラー