Sql in VBA 之 類模組

把重複的**搞進類模組，也不知道對不對，反正我是沒報錯。

表1：一班

姓名	語文	數學	英語

天	136	140	21
地	62	90	98
玄	200	126	10

表2：二班

姓名	語文	數學	英語

子	82	97	65
醜	55	99	46
寅	54	61	60

表3：三班

姓名	語文	數學	英語

甲	110	110	100
乙	110	102	101
丙	107	106	110

類模組：資料庫

1

property
get excel資料庫(mypath as
string)2
then
3         excel資料庫 = "
provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=
" &mypath
4else
5         excel資料庫 = "
provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=
" &mypath
6endif7
end property89
sub 查詢(mydata as
string, sql as
string, rng as
range)
10dim cnn as
object, rst as
object, i&
11set cnn = createobject("
adodb.connection")
12cnn.open mydata
13set rst =cnn.execute(sql)
14cells.clearcomments
15for i = 0
to rst.fields.count - 1
16         rng.offset(-1, i) =rst.fields(i).name
17next
18rng.copyfromrecordset rst
19cnn.close
20set cnn = nothing
21end sub

呼叫類模組：

1

sub並表查詢2()
2dim sql as
string, sql1 as
string
3dim sht as worksheet, sht_name as
string
4dim i as
long, mypath as
string, rng as
range
5     mypath =thisworkbook.fullname
6set rng = activesheet.range("a2"
)7dim data as
new資料庫
8     sql1 = "
select 姓名,語文,數學,英語,"9
foreach sht in
worksheets
10         sht_name =sht.name
11if sht_name <> activesheet.name then
12             sql = sql & sql1 & "
'" & sht_name & "
' as 班級 from [
" & sht_name & "
$] union all "13
endif
14next
15     sql = left(sql, len(sql) - 11)16
17data.查詢 data.excel資料庫(mypath), sql, rng
1819
end sub

查詢結果：

姓名	語文	數學	英語	班級

天	136	140	21	一班
地	62	90	98	一班
玄	200	126	10	一班
子	82	97	65	二班
醜	55	99	46	二班
寅	54	61	60	二班
甲	110	110	100	三班
乙	110	102	101	三班
丙	107	106	110	三班

Sql in VBA 之 記錄集賦值給陣列

關鍵 arr rst.getrows 資料表如下 姓名 成績 甲 134 乙 84 丙 56 丁 142 戊 94 己 65 庚 79 辛 126 壬 53 癸 87 子 135 醜 85 寅 68 卯 90 辰 119 巳 41 午 118 未 141 申 82 酉 101 戌 107 亥 57 ...

C primer難點之類

類的難點解析 類三大特性 繼承，多型，封裝 訪問許可權控制 public private protect inline成員函式 1 在類內部定義的成員函式，將自動被作為inline處理 2 如果是顯示宣告inline 即不放在類定義體內，該函式定義應該放在.hl檔案裡，因為它對於使用它的,cpp檔案...

PHP之類補充

最終類與最終方法 如果父類中的方法被宣告為 final，則子類無法覆蓋該方法。如果乙個類被宣告為 final，則不能被繼承。final class a class a 抽象類與抽象方法 abstract class a class aextends a 介面 介面可以看作是抽象類的更高層面的抽象，可...