作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ] 如何贴上recordset
时间Mon Jan 2 21:55:55 2012
※ 引述《tenway (等待是必要的)》之铭言:
: 请教大大们
: 我利用SQL从资料库select 出我要的资料後
: 如何一次就贴上excel
: 而不是用回圈一个一个从储存格SHOW出来 ??
利用二维阵列 (列, 栏)
'范例(含标题列)
Dim rs As ADODB.Recordset
Dim a() As Variant, r As Integer, c As Integer, rng As String
Set rs = New ADODB.Recordset
rs.Open "select * from Table1", cn, adOpenStatic, adLockPessimistic, 1
r = -1
ReDim a(rs.RecordCount, rs.Fields.Count)
r = r + 1
For c = 0 To rs.Fields.Count - 1
a(r, c) = rs.Fields(c).Name
Next
Do While Not rs.EOF
r = r + 1
For c = 0 To rs.Fields.Count - 1
a(r, c) = rs(c).Value
Next
rs.MoveNext
Loop
rng = "A1:" & Chr(66 + rs.Fields.Count - 1) & r
Range(rng) = a
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半点痴情遗留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.176.149.188