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

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

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


CreateObject の検索結果:

VBA IE操作 YouTube動画から ブログ の本文を作成する サンプルとデバッグ

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Top = 0 objIE.Left = 0 objIE.Visible = True '見えるようにする(お約束) Call SetForegroundWindow(objIE.hwnd) '前面にIEを表示 Dim n As Integer Dim i As Integer '添え字 i番目などで使用 Dim strWORK…

はてなブログ 本文連続置換更新処理にチャレンジ 結合テスト

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 objIE.Top = 0 objIE.Left = 0 Dim i As Integer For i = 1 To 10 '最高10ページ単位で処理する '処理したいページを表示します。 objIE.Navigate "https://blog.haten…

ブログの記事管理 検索条件に値を入れて検索ボタンを押し編集記事を探す

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocume…

IEで表示されている はてなブログ 編集画面の本文を書き換えるコード

…bjShell = CreateObject("Shell.Application") 'ウインドウの数だけまわすぞ For Each objWindow In objShell.Windows 'TypeNameでオブジェクト変数のタイプを表示する Debug.Print "タイプは:" & TypeName(objWindow.document) 'HTMLDocumentだったら If TypeName(objWindow.document) = "HTMLDocume…

asp093.html 三流君ASP:FORM CHECKBOXから受け取った値を使用してWHERE句の作成

ASP

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db029.mdb") 'やっとデータベースを開ける db.open 'WHERE句を作成する …

asp092.html 三流君ASP:FORM SELECTタグのOPTION値を受け取って処理を行う

ASP

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db029.mdb") 'やっとデータベースを開ける db.open 'KUBUNが送られてきた…

asp091.html 三流君ASP:ADO CSVでReadOnly=0と.AddNewを使いデータ追加

…rs=Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseServer 'カーソルはサーバーの指定 '接続文字列、SQLを渡して、レコードセットを開く rs.Open strSQL, Con, adOpenDynamic, adLockOptimistic '最終のデータを取得する rs.MoveLast 'レコードを最終行へ移動 NEXT_NO = Cint(rs.Fields("FID").Val…

asp090.html 三流君ASP:ADO CSVで先頭行にフィールド名が無い時

…rs=Server.CreateObject("ADODB.Recordset") 'SQLのテーブル名には、ファイル名test090.csvを指定します。 strSQL = "select * from test090.csv" '接続情報の作成 ドライバーの指定と、DBQには、パスのみを指定する Con = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath(".") & ";" …

asp089.html 三流君ASP:SQL 集計関数MAXと副問い合わせ(サブクエリー)

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db089.mdb") db.open 'データベースを開く 'MAX関数を使用したSQL文を作…

asp088.html 三流君ASP:SQL HAVING句でSUMした値をチェックする

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く 'T_月別売上 から 商品コード、…

asp087.html 三流君ASP:ADO SQL Like演算子で部分検索する

…db=Server.CreateObject("ADODB.Connection") '.Provider?プロバイダー?通信会社?じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("cnt_etc.mdb") 'やっと…

asp086.html 三流君ASP:Ubound(配列,1)とUbound(配列,2)で遊ぶ

ASP

…rs=Server.CreateObject("ADODB.Recordset") '接続文字 Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test084.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>Con = <b>" & Con & "</b></CODE><hr>" 'SQL文…

asp085.html 三流君ASP:ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた

…rs=Server.CreateObject("ADODB.Recordset") '接続文字 Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test084.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>Con = <b>" & Con & "</b></CODE><hr>" 'SQL文…

asp084.html 三流君ASP:ADO Excel(*.xls)接続 [Sheet1$]でシート指定、列名無しで遊ぶ

…rs=Server.CreateObject("ADODB.Recordset") '接続文字 Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test084.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>Con = <b>" & Con & "</b></CODE><hr>" 'SQL文…

asp083.html 三流君ASP:Select TOP 20 と Select Top n PERCENT で遊ぶ

…db=Server.CreateObject("ADODB.Connection") '.Provider?プロバイダー?通信会社?じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("cnt_etc.mdb") 'やっと…

asp082.html 三流君ASP:ページ単位の表示にチャレンジしてみた

…db=Server.CreateObject("ADODB.Connection") db.Provider = "Microsoft.Jet.OLEDB.4.0" '接続DBの位置を渡し、DBオープン strDB = "cnt_etc.mdb" db.ConnectionString = Server.MapPath(strDB) db.open 'データベースをオープンする 'お約束のレコードセットの作成 テーブル名logから全項目(*)を指定 'ORDER BY Wri…

asp080.html 三流君ASP:Microsoft Text Driver (*.txt; *.csv) で接続してみた

ASP

…rs=Server.CreateObject("ADODB.Recordset") 'SQLのテーブル名には、ファイル名を指定します。 strSQL = "select * from test080.csv" '接続情報の作成 ドライバーの指定と、DBQには、パスのみを指定する Con = "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & _ Server.MapPath(".") & ";" '↑MapPathに(…

asp077.html 三流君ASP:SQL AS演算子で別名管理

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く 'T_月別売上 から 商品コード、…

asp076.html 三流君ASP:小計・合計の表示、SQLで小細工の嵐(笑)

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く 'T_月別売上 から 商品コード、…

asp075.html 三流君ASP:SQL UNION演算子 で 表をつなげたレコードセットの作成

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く '商品CDの一桁目を(左から1文字…

asp074.html 三流君ASP:演算フィールドを作成する

ASP

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'データベースを開く '商品CDの一桁目を(左から1文字…

asp073.html 三流君ASP:テーブルをつなげて商品名を取得する方法

ASP

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") db.open 'やっとデータベースを開ける 'お約束のレコードセットの…

asp072.html 三流君ASP:小計・合計の表示、大昔の方法(笑)

ASP

…db=Server.CreateObject("ADODB.Connection") '.Provider?プロバイダー?通信会社?じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("db072.mdb") 'やっとデー…

asp071.html 三流君ASP:FileSystemObjectの.DeleteFileでファイル削除

ASP

… = Server.CreateObject("Scripting.FileSystemObject") '現在のフォルダーから相対位置のworkディレクトリの名称を取り出す strFDIRNAME = Server.MapPath("work/") 'フォルダー名取得 '*2 .DeleteFileを使用して、ファイルを削除する objFS.DeleteFile(strFDIRNAME & "\*.tmp") '*.tmpを削除する Response.Write strFD…

asp070.html 三流君ASP:SQL Select DISTINCT キーワードで重複結果の出力をハジク

…db=Server.CreateObject("ADODB.Connection") '.Provider?プロバイダー?通信会社?じゃなくって 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '次に、接続DBの位置を渡すので、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("cnt.mdb") 'やっとデータベ…

asp069.html 三流君ASP:FileSystemObjectの.GetTempName(一時ファイル名作成)

ASP

… = Server.CreateObject("Scripting.FileSystemObject") '*2 .GetTempNameを使用して、一時ファイル名を作成する strTEMPNAME = objFS.GetTempName '.GetTempNameを使用してリターン値をもらう Response.Write ".GetTempNameで作成した名称[<b>" & strTEMPNAME & "</b>]<br>" '現在のフォルダーから相対位置のworkディレ…

asp067.html 三流君ASP:FileSystemObjectの.GetFolderを使用

ASP

… = Server.CreateObject("Scripting.FileSystemObject") '*2 フォルダーの名称を取り出す strFDIRNAME = Server.MapPath(".") 'フォルダー名取得 Response.Write strFDIRNAME & "のファイル一覧です<br>" & vbCRLF '*3 .GetFolderで、フォルダーオブジェクトを取得します Set objDIR = objFS.GetFolder(strFDIRN…

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

…db=Server.CreateObject("ADODB.Connection") 'データアクセスにはJet.OLEDB.4.0を使うことを設定 db.Provider = "Microsoft.Jet.OLEDB.4.0" '接続DBの位置は、Server.MapPathで変換して渡す db.ConnectionString = Server.MapPath("cnt.mdb") db.open 'やっとデータベースを開ける 'FORMAT関数を使用して、テーブル名lo…

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

…db=Server.CreateObject("ADODB.Connection") '接続文字列 strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("test056.xls") & ";" & _ "Extended Properties=Excel 8.0" Response.Write "接続文字列は<br><b>" Response.Write strCon…

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

ASP

…rs=Server.CreateObject("ADODB.Recordset") strSQL = "select * from DATA_RANGE" Con = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("test053.xls") & ";" Response.Write "作った、使った接続文字列は<br>" Response.Write "<CODE>" & Con & "<…

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



Ken3 ホームページ 目次

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

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

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