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

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

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


CreateObject の検索結果:

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

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

ライブ配信で作りかけ JRAオッズ取得 できなかったけど...

…t objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '表示位置(左上の座標)とサイズ(高さ・幅)を調整する objIE.FullScreen = False '※Trueのモードだとびっくりするよ objIE.Top = 0 '左上 上位置 objIE.Left = 0 '左上 左位置 objIE.Width…

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

…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 'IDが送られてきたかチェ…

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

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

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

ASP

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

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

…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_asp.mdb") 'やっと…

MDBへのSQL文 Format関数使用

…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_asp.mdb") 'やっと…

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

…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_asp.mdb") 'やっと…

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

…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_asp.mdb") 'やっと…

複数テーブルを取得 .getElementsByTagName

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定した文字列のURLを開く objIE.Navigate "http://ie.vba-ken3.jp/test/20161101j1j2.html" '表示終了まで待つ .Busy(忙しい)間 と.ReadyState(ステータス)が4以外…

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

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

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

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

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

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("db029.mdb") 'やっとデー…

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

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

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

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("db029.mdb") 'やっとデー…

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

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

INSERT INTOを使用したサンプル

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

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

ASP

…db=Server.CreateObject(&quot;ADODB.Connection&quot;)<br> db.Provider = &quot;Microsoft.Jet.OLEDB.4.0&quot;<br> db.ConnectionString = Server.MapPath(&quot;db026.mdb&quot;)<br> db.open<br> なんて感じで、簡単にASPからAccessMDBへ接続できます。<br> (db026.mdbと接続してま…

配列をリング状に使って、最新の10件を表示した

ASP

… = Server.CreateObject("Scripting.FileSystemObject") 'test008.txt を読取専用モードで開く Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True) Dim strBOX(10) '*1文字列のバッファを10個取る Dim nSETIndex '*2セット位置 nSETIndex = 0 'セット位置を初期化 'ファイルからデータを読む…

えっ、ASPはVBAで有名なFormat関数無いの?Rightで代用してみた

… = Server.CreateObject("Scripting.FileSystemObject") 'test008.txt を読取専用モードで開く Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True) Dim nLINE '行数のカウンター nLINE = 0 'カウンターを初期化 Do While ts.AtEndOfStream = False '*6ファイルの終端になってない間ルー…

Mod演算子 で 余りを計算する

ASP

… = Server.CreateObject("Scripting.FileSystemObject") 'test008.txt を読取専用モードで開く Set ts = objFS.OpenTextFile(Server.MapPath("test008.txt"), 1, True) Dim nLINE '*1行数のカウンター nLINE = 0 'カウンターを初期化 Do While ts.AtEndOfStream = False '*6ファイルの終端になってない間…

ASP Server.HTMLEncodeでソースの表示

ASP

… = Server.CreateObject("Scripting.FileSystemObject") ' tset017-1.asp を読取専用モードで開きデータを読む Set ts = objFS.OpenTextFile(Server.MapPath("test017-1.asp"), 1, True) Do While ts.AtEndOfStream = False 'ファイルの終端になってない間ループ strDATA = ts.ReadLine 'ファイルからデ…

入力、結果表示を1つのASPファイルにまとめた

ASP

… = Server.CreateObject("Scripting.FileSystemObject") 'test016.txt を追加モードで開く Set ts = objFS.OpenTextFile(Server.MapPath("test016.txt"), 8, True) 'ファイルにアンケート結果のデータを書き込む ts.write Request.QueryString("a") & "," '結果0~6を書く ts.write strMSG & "," '…

VBA IE操作 ヤフーファイナンスの信用買い残 の 取得にチャレンジしてみた

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作 る objIE.Visible = True '見えるようにする(お約束) 'PAGEのループを作る Dim page As Integer 'ページ番号 Dim strURL As String 'URLを組み立て用で使用 Dim yEXCEL As Integer 'セットする行番号 Dim x As Integer '列の管理 Dim …

VBA IE操作 テーブル単体を取り出す テスト

…・・・1.IE起動 CreateObject("InternetExplorer.application")2.ページの表示 .Navigate 3.目的のテーブルを指定 .getElementsByTagName("TABLE")(0) などで、テーブルを指定して4.行・列のループでセット .Rows.Length で 行数 .Rows(y).Cells.Length で 列数.innertextでテキストを取り出せるので、 objTABLE.Rows(y).Cells(x…

2009-03-16 三流解説 VBA IE Webページの表を取り込む サンプルプログラム

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) 'C8のURLを表示する '.Navigate で 指定した文字列のURLを開く objIE.Navigate Range("c8").Text '表示終了まで待つ .Busy(忙しい)間 と.ReadyState(ステータス)が4以外の時 ループ Do While o…

VBA IE操作 リンクの取り出し objIE.Document.Links のサンプルコード

…t objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定したURLを開く objIE.Navigate strURL '表示完了を待つ While objIE.ReadyState <> 4 While objIE.Busy = True DoEvents '特に何もしないで.Busyの状態が変…

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



Ken3 ホームページ 目次

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

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

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