Memo/2004-09-15
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*Excel 関連情報 [#f4d03445]
**サンプルコード [#wad8465b]
***指定データを抽出する方法 [#b63dddfe]
-サンプルコード
#ref(20040915.zip)
' MatchData.vbs
' Usage : CScript MatchData.vbs
Const strFileName1 = "D:\home\edu\hatena\20040915\db1.xl...
Const strFileName2 = "D:\home\edu\hatena\20040915\db2.xl...
Const strFileName3 = "D:\home\edu\hatena\20040915\db3.xl...
MatchData
Sub MatchData
Dim cn
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourc...
Dim strSQL
strSQL = "INSERT INTO [Sheet1$]" & _
" SELECT t2.c1, t2.c2, t2.c3, t2.c4, t2.c5" & _
" FROM [Excel 8.0;database=" & strFileName1 & "].[...
" INNER JOIN [Excel 8.0;database=" & strFileName2 ...
" ON (t1.c3 = t2.c3) AND (t1.c2 = t2.c2) AND (t1.c...
cn.Execute strSQL
End Sub
-解説
[table1]
c1 c2 c3 c4 c5
あ い う ※ △
か き く ○ ◆
さ し す × ◇
[table2]
c1 c2 c3 c4 c5
あ い う × ○
か き く を ■
さ し す ヾ 〒
た ち つ ‖ 〆
な に ぬ 仝 ±
[table3]
c1 c2 c3 c4 c5
[結果]
c1 c2 c3 c4 c5
あ い う × ○
か き く を ■
さ し す ヾ 〒
INSERT INTO
table3
SELECT
table2.c1,
table2.c2,
table2.c3,
table2.c4,
table2.c5
FROM
table1
INNER JOIN
table2
ON
(table1.c3 = table2.c3)
AND (table1.c2 = table2.c2)
AND (table1.c1 = table2.c1);
#ref(table1_20040915.jpg)
#ref(table2_20040915.jpg)
#ref(table3_20040915.jpg)
#ref(query1_20040915.jpg)
#ref(query1_sql_20040915.jpg)
#ref(table3_result_20040915.jpg)
-はてな
--http://www.hatena.ne.jp/1095238536
終了行:
#contents
*Excel 関連情報 [#f4d03445]
**サンプルコード [#wad8465b]
***指定データを抽出する方法 [#b63dddfe]
-サンプルコード
#ref(20040915.zip)
' MatchData.vbs
' Usage : CScript MatchData.vbs
Const strFileName1 = "D:\home\edu\hatena\20040915\db1.xl...
Const strFileName2 = "D:\home\edu\hatena\20040915\db2.xl...
Const strFileName3 = "D:\home\edu\hatena\20040915\db3.xl...
MatchData
Sub MatchData
Dim cn
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourc...
Dim strSQL
strSQL = "INSERT INTO [Sheet1$]" & _
" SELECT t2.c1, t2.c2, t2.c3, t2.c4, t2.c5" & _
" FROM [Excel 8.0;database=" & strFileName1 & "].[...
" INNER JOIN [Excel 8.0;database=" & strFileName2 ...
" ON (t1.c3 = t2.c3) AND (t1.c2 = t2.c2) AND (t1.c...
cn.Execute strSQL
End Sub
-解説
[table1]
c1 c2 c3 c4 c5
あ い う ※ △
か き く ○ ◆
さ し す × ◇
[table2]
c1 c2 c3 c4 c5
あ い う × ○
か き く を ■
さ し す ヾ 〒
た ち つ ‖ 〆
な に ぬ 仝 ±
[table3]
c1 c2 c3 c4 c5
[結果]
c1 c2 c3 c4 c5
あ い う × ○
か き く を ■
さ し す ヾ 〒
INSERT INTO
table3
SELECT
table2.c1,
table2.c2,
table2.c3,
table2.c4,
table2.c5
FROM
table1
INNER JOIN
table2
ON
(table1.c3 = table2.c3)
AND (table1.c2 = table2.c2)
AND (table1.c1 = table2.c1);
#ref(table1_20040915.jpg)
#ref(table2_20040915.jpg)
#ref(table3_20040915.jpg)
#ref(query1_20040915.jpg)
#ref(query1_sql_20040915.jpg)
#ref(table3_result_20040915.jpg)
-はてな
--http://www.hatena.ne.jp/1095238536
ページ名:
![[CX's MEMO]](image/cx_memo.jpg "[CX's MEMO]")
