三流君のソースコード置き場

ブログにソースコードをアップして、ブログの検索機能で利用してます(利用予定です)

よく検索されるキーワード: [VBA]/ [VBS]/ [CreateObject]/ [Excel]/ [ADO]


VBS の検索結果:

asp064.html 三流君ASP:Session("変数名")で接続単位に変数を管理する

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>セッション変数 Session("USERNAME") で名前の管理</title> </head> <body> <h2>セッション変数 Session("USERNAME") で名前の管理</h2> <h3>じゃんけんゲーム</h3><br> <% 'ユー…

asp062.html 三流君ASP:日付関係の復習、YYYYMMDDを返すFunction関数を作成する

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>VBScript/Year/Month/Day/WeekDay/Hour/Minute/Secound 関数使用例</title> </head> <body> <h2>VBScript関数<br>Year/Month/Day/WeekDay/Hour/Min…

asp061.html 三流君ASP:SJIS--JISのコード変換

ASP

…@LANGUAGE=VBScript%> <html> <head> <title>SJISからJISコードに変換、文字コード関係で遊ぶ</title> </head> <body> <h2>SJISからJISコードに変換、文字コード関係で遊ぶ</h2> <br> 自作したSJIS--JIS変換ルーチンを呼んでます。<br> ※詳細は、ソースと詳細解説のページを見てください。<br> <hr> <% CHK_DATA = Request.QueryString("DATA")…

asp057.html 三流君ASP:Excelグラフ付の雛形シートにASPからADOを使用してデータセット

…@LANGUAGE=VBScript%> <html> <head> <title>Excel(*.xls)グラフ付雛形にADOで接続しデータ更新</title> </head> <body> <h2>Excel(*.xls)グラフ付雛形にADOで接続しデータ更新</h2> <!-- Ken3 --><!-- #include file="info.inc" --> test057-1.asp<br> ASPからADOを使用してExcel(*.xls)と接続して、<br> .…

asp056.html 三流君ASP:Excel(*.xls)とADOで接続、.Addnewしてみた

…@LANGUAGE=VBScript%> <html> <head> <title>Excel(*.xls)とADOで接続、.Addnewしてみた</title> </head> <body> <h2>Excel(*.xls)とADOで接続、.Addnewしてみた</h2> <!-- Ken3 --><!-- #include file="info.inc" --> test056-1.asp<br> ASPからADOを使用してExcel(*.xls)と接続して、<br> .…

asp055.html 三流君ASP:And演算子を使う

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>AND演算子を使って、1バイト文字2バイト文字の判断</title> </head> <body> <h2>AND演算子を使って、1バイト文字2バイト文字の判断</h2> <br> たんに、 nCODE = Asc(Mid(strMOJI, n, 1)) 'n…

asp053.html 三流君ASP:ADOでExcelファイル(*.xls)とやっと接続できた(ほっ)

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ASPからADOを使用してExcel(*.xls)に接続してみた</title> </head> <body> <h1>ASPからADOを使用してExcel(*.xls)に接続してみた</h1> Driver={Microsoft Excel Driver (…

asp054.html 三流君ASP:ADOでSQL Select * INTO文発行でExcel(*.xls)を作成する

…@LANGUAGE=VBScript%> <html> <head> <title>ADO Select * INTO [Excel 8.0;Database=Drive:\Path\File].[Sheet]</title> </head> <body> <h1>ADO Select * INTO [Excel 8.0;Database=Drive:\Path\File].[Sheet]</h1> test054-1.asp<br> [Excel 8.0;database=…

Asc関数で文字コード

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Asc関数でキャラクタコードの表示、Hex関数を使用して16進数で表示</title> </head> <body> <h2>Asc関数でキャラクタコードの表示、Hex関数を使用して16進数で表示</h2> <% CHK_DATA = Request.Quer…

簡単なじゃんけんゲーム

ASP

…@LANGUAGE=VBScript%> <html> <head> <title>ジャンケンゲームで遊ぶ</title> </head> <body> <h2>ジャンケンゲームで遊ぶ</h2> 受取ったパラメータは<br>[<%=Request.QueryString("DATA")%>]<hr> <% 'Lenで変数の長さをチェックする D = Request.QueryString("DATA") 'データを代入 If Len(D) = 1 Then 'データあり Ca…

IsXXXXの処理でいろいろと遊んでみた(笑)

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>IsEmpty関数でデータのチェック</title> </head> <body> <h2>IsEmpty関数でデータのチェック</h2> Request.QueryString("DATA")をチェックすると、、、<br> <% 'IsEmptyで変数をチェ…

ASP 削除データの選択 と SQL DELETE文の発行

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ASP削除データの選択 と S…

SQL文 SELECT WHERE句でIN演算子を使用して複数条件を選択する

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL SELECT文で WHERE句 条件をOrでつなげ複数にしてみた</title> </head> <body> <h1>SQL SELECT文で WHERE句 条件をOrでつなげ複数にしてみた</h1> test046-1.asp<br> <hr> <…

HTML FORM INPUT TYPE="CHECKBOX" チェックボックスの入力テスト

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>HTML FORM INPUT TYPE="CHECKBOX" チェックボックスの入力テスト</title> </head> <body> <h2>HTML FORM INPUT TYPE="CHECKBOX" チェックボックスの入力テスト</h2> <hr>…

MDBを使ったアンケート集計を作る

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>パラメータをチェックする</title> </head> <body> <h2>パラメータをチェックする</h2> test044-1.asp<br> <hr> エラー条件は、<br> KUBUN が 無し(スペース)<br> NO が無し Or 0の時<br…

SQL文 HAVING句でGroup化されたレコードに条件設定する

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL文 HAVING句でGroup化されたレコードに条件設定する</title> </head> <body> <h1>SQL文 HAVING句でGroup化されたレコードに条件設定する</h1> test043-1.asp<br> <hr> cnt_asp…

Application("XXXX") Application変数のテスト

ASP

…@LANGUAGE=VBScript%> <% '頭でパラメータのチェックとセット処理 If IsEmpty(Request.QueryString("SETDATA")) = False Then Application("test042data") = Letf(Request.QueryString("SETDATA"),20) 'データセット Application("test042time") = Now '現在時刻のセット End If Application("…

POST(Request.Form) GET(Request.QueryString) で 送られてきた値を表示する

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>POST(Request.Form)/GET(Request.QueryString) で 送られてきた値を表示する</title> </head> <body> <h2>POST(Request.Form)/GET(Request.QueryString) …

MDBへのSQL文 Format関数使用

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADO から MDB へのSQL文でFormat関数使用</title> </head> <body> <h1>ADO から MDB へのSQL文でFormat関数使用</h1> test040-1.asp<br> <hr> <b>YYYYMMDDでデータをま…

SQL GROUP BY句 で グループ化 集計結果を並べ替え

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL GROUP BY句 で グループ化 Count関数で集計 ORDER BY句で並べ替え</title> </head> <body> <h1>SQL GROUP BY句 で グループ化 Count関数で集計 ORDER BY句で並べ替え</h1> te…

SQL GROUP BY句 で グループ化する

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL GROUP BY句 で グループ化する処理を解説する</title> </head> <body> <h1>SQL GROUP BY句 で グループ化する処理を解説する</h1> test038-1.asp<br> <hr> <b>cnt_asp.md…

Mid関数で文字列を抜き出す

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Mid関数のテストを解説する</title> </head> <body> <h2>Mid関数のテストを解説する</h2> test034-1.asp<br> moji = "abcdefg"<br> a = Mid(moji, 2, 3) '2文字目から3文…

SQL UPDATE文でデータを更新する

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ASP フォームに更新のボタン…

SQL DELETE文でデータを削除してみた

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ASP フォームに削除のボタン…

ASP VBScript DateAdd関数で日付や時間の計算

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>DateAdd関数の使い方を解説</title> </head> <body> <h2>DateAdd関数の使い方を解説</h2> test031-1.asp<br> DateAdd("h", 6, Now)<br> DateAdd("d", -5, Date…

SQL SELECT文WHERE句を使って条件検索

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL SELECT文で WHERE句を使ってみた</title> </head> <body> <h1>SQL SELECT文で WHERE句を使ってみた</h1> test030-1.asp<br> <hr> <% '頭で、入力パラメーターの文字数をチェッ…

復習で一言コメント入力の処理を作る

ASP

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL INSERT INT…

SQL ORDER BYでデータの並べ替え

…@LANGUAGE=VBScript%> <html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ORDER BYでF_TITLEを基準に並べ替える</title> </head> <body> <h1>ORDER BYでF_TITLEを基準に並べ替える</h1> test028-1.asp<br> Set rs = db.Execute("Select…

INSERT INTOを使用したサンプル

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL INSERT INT…

ASPからMDBファイルにアクセスしてみる Microsoft.Jet.OLEDB.4.0

ASP

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ASPからMDBファイルにア…

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
(※詳細は[三流君 三流プログラマーとは?]を見てください)



Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。

三流解説動画の再生リスト
https://www.youtube.com/user/ken3video/playlists

本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)