VBScript
不具合修正版 テーブル定義情報を取得してＥｘｃｅｌに出力する (テーブル別) テーブル定義 取得用 SQL lesson014.sql select C.NAME SCHEMA_NAME , K.VALUE TABLE_COMMENT , B.NAME TABLE_NAME , A.COLUMN_ID , A.NAME COLUMN_NAME , L.VALUE COLUMN_COMMEN…
不具合修正版 テーブル定義情報を取得してＨＴＭＬに出力する (テーブル別) テーブル定義 取得用 SQL lesson014.sql select C.NAME SCHEMA_NAME , K.VALUE TABLE_COMMENT , B.NAME TABLE_NAME , A.COLUMN_ID , A.NAME COLUMN_NAME , L.VALUE COLUMN_COMMENT …
「はてな」からダウンロードした XML を読んで、HTML に保存する ↓ こんな XML ファイルを読む <diary> <day date="2005-10-02" title="Delphi Personal で データベース"> <body> *p1*[Delphi][ADO][COM] Delphi Personal で ADO **データベースを作成する <PRE> <SPAN CLASS="KEY">procedure</SPAN> TForm1</body></day></diary>…
ＭＤＢ上のテーブルを Ｅｘｃｅｌ・ＳＱＬＳｅｒｖｅｒに インポート/エクスポートする (テーブル指定) 接続文字列 lesson001.con ODBC;DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz; インポート/エクスポート用スク…
Access のデータを読んで SQLSerevr 上のテーブルを更新する テーブル定義 取得用 SQL lesson004.sql select c.column_name , c.data_type from information_schema.columns c where ( c.table_name = '%table_name%' ) order by c.ordinal_position 接続文…
Access の テーブル名を列挙する (ADO) lesson003.vbs Dim cn 'As ADODB.Connection Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & WScript.Arguments(0) & ";" .CursorL…
ＳＱＬＳｅｒｖｅｒ上のテーブルをＭＤＢにリンク/インポートする (全テーブル) 接続文字列 lesson001.con ODBC;DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz;lesson002.con DRIVER={SQL Server};SERVER=xxxxxx;Data…
Excel のデータを読んで SQLSerevr 上のテーブルを更新する (改良版) テーブル定義 取得用 SQL lesson013.sql select c.column_name , c.data_type from information_schema.columns c where ( c.table_name = '%table_name%' ) order by c.ordinal_position…
ＳＱＬＳｅｒｖｅｒ上のテーブルをＭＤＢにリンク/インポートする (テーブル指定) 接続文字列 lesson001.con ODBC;DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz; リンク/インポート用スクリプト lesson001.vbs 'SQLS…
不具合あり！ テーブル定義情報を取得してＥｘｃｅｌに出力する (テーブル別) テーブル定義 取得用 SQL lesson004.sql select c.table_name , c.ordinal_position , c.column_name , c.data_type , c.character_maximum_length , c.numeric_precision , c.nu…
Excel のデータを読んで SQLSerevr 上のテーブルを更新する テーブル定義 取得用 SQL lesson011.sql select c.column_name , c.data_type from information_schema.columns c where ( c.table_name = '%table_name%' ) order by c.ordinal_position 接続文字…
テーブル定義情報を取得して MERGE用ストアドプロシージャを作成する テーブル定義 取得用 SQL lesson008.sql select c.column_name , c.data_type , c.character_maximum_length , c.numeric_precision , c.numeric_scale , p.constraint_type from informa…
テーブル定義情報を取得して UPDATE用ストアドプロシージャを作成する テーブル定義 取得用 SQL lesson008.sql select c.column_name , c.data_type , c.character_maximum_length , c.numeric_precision , c.numeric_scale , p.constraint_type from inform…
テーブル定義情報を取得して INSERT用ストアドプロシージャを作成する テーブル定義 取得用 SQL lesson008.sql select c.column_name , c.data_type , c.character_maximum_length , c.numeric_precision , c.numeric_scale , p.constraint_type from inform…
ＳＱＬの結果を Ｅｘｃｅｌに出力する 読み込み用 SQL lesson005.sql select * from DimAccount 接続文字列 lesson004.con DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz; Ｅｘｃｅｌ出力用スクリプト lesson007.vbs …
ＳＱＬの結果を ＨＴＭＬに出力する 読み込み用 SQL lesson005.sql select * from DimAccount 接続文字列 lesson004.con DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz; ＨＴＭＬ出力用スクリプト lesson003.vbs Opti…
ＳＱＬの結果を ＣＳＶに出力する 読み込み用 SQL lesson005.sql select * from DimAccount 接続文字列 lesson004.con DRIVER={SQL Server};SERVER=xxxxxx;DataBase=adventureworksdw;UID=yyyyyy;PWD=zzzzzz; ＣＳＶ出力用スクリプト lesson002.vbs Option E…
不具合あり！ テーブル定義情報を取得してＨＴＭＬに出力する (テーブル別) テーブル定義 取得用 SQL lesson004.sql select c.table_name , c.ordinal_position , c.column_name , c.data_type , c.character_maximum_length , c.numeric_precision , c.nume…
テーブル定義情報を取得してＨＴＭＬに出力する テーブル定義 取得用 SQL lesson002.sql select c.table_name , c.ordinal_position , c.column_name , c.data_type , c.character_maximum_length , c.numeric_precision , c.numeric_precision_radix , c.nu…
テーブル定義情報を取得してＣＳＶに出力する テーブル定義 取得用 SQL lesson002.sql select c.table_name , c.ordinal_position , c.column_name , c.data_type , c.character_maximum_length , c.numeric_precision , c.numeric_precision_radix , c.nume…
Excel のテーブル定義シートから、CREATE TABLE 文を 作成する (SQL Server 用) ↓ こんな Excel ファイルを読む Sheet1 A B C D E F G H I J 1 テーブル名 2 仕入先マスタ M_SIIRE 3 4 No. 項目名 ID 型 桁数 小数 必須 主キー 初期値 備考 5 1 仕入先コード…
文字数 と バイト数 lesson011.vbs WScript.Echo "文字数" For Each arg In WScript.Arguments WScript.Echo arg & " => " & Len(arg) NextWScript.Echo "バイト数" For Each arg In WScript.Arguments WScript.Echo arg & " => " & LenA(arg) NextFunction …
↓ こんな Excel ファイルを読む A B C D E F G H I J 1 A1 B1 C1 D1 E1 F1 G1 H1 J1 2 A2 B2 C2 D2 E2 F2 G2 H2 J2 3 A3 B3 C3 D3 E3 F3 G3 H3 J3 4 A4 B4 C4 D4 E4 F4 G4 H4 J4 5 A5 B5 C5 D5 E5 F5 G5 H5 J5 6 J6 7 A7 B7 C7 D7 E7 F7 G7 H7 I7 J7 Excel …
Excel シートの内容を 取得する (ADO) ↓ こんな Excel ファイルを読む A B C D E F G H I J 1 A1 B1 C1 D1 E1 F1 G1 H1 J1 2 A2 B2 C2 D2 E2 F2 G2 H2 J2 3 A3 B3 C3 D3 E3 F3 G3 H3 J3 4 A4 B4 C4 D4 E4 F4 G4 H4 J4 5 A5 B5 C5 D5 E5 F5 G5 H5 J5 6 J6 7 A…
Excel のシート名を列挙する (ADO) lesson007.vbs Dim cn' As ADODB.Connection Set cn = CreateObject("ADODB.Connection") With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & WScript.Arguments(0) & ";Extended Prope…
XML ファイルを 編集する (追加) ↓ こんな XML ファイルを読む <Albums> <Album> <Title >Ｉ ＬＯＶＥ ＹＯＵ，ＯＫ</Title> <Artist>矢沢永吉</Artist> <Tracks> <Track number='1'>セクシー・キャット</Track> <Track number='2'>ウィスキー・コーク</Track> <Track number='3'>キャロル</Track> <Track number='4'>雨のハイウェイ</Track> </tracks></album></albums>
XML ファイルを 読む ↓ こんな XML ファイルを読む <Albums> <Album> <Title >Ｉ ＬＯＶＥ ＹＯＵ，ＯＫ</Title> <Artist>矢沢永吉</Artist> <Tracks> <Track number='1'>セクシー・キャット</Track> <Track number='2'>ウィスキー・コーク</Track> <Track number='3'>キャロル</Track> <Track number='4'>雨のハイウェイ</Track> </tracks></album></albums>
Excel ファイルを 作成する lesson006.vbs Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts = False '警告メッセージをOFF'ブックを読み取り専用で開く Dim bookIn Set bookIn = objExcel.W…
Excel シートの内容を 取得する ↓ こんな Excel ファイルを読む A B C D E F G H I J 1 A1 B1 C1 D1 E1 F1 G1 H1 J1 2 A2 B2 C2 D2 E2 F2 G2 H2 J2 3 A3 B3 C3 D3 E3 F3 G3 H3 J3 4 A4 B4 C4 D4 E4 F4 G4 H4 J4 5 A5 B5 C5 D5 E5 F5 G5 H5 J5 6 J6 7 A7 B7 C…
Excel のシート名を列挙する lesson001.vbs Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.DisplayAlerts = False '警告メッセージをOFF'ブックを読み取り専用で開く Dim book Set book = objExcel.Work…
