返回列表 上一主題 發帖

[發問] VBA 的SQL語法請教各位懂SQL的大大

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-2-28 14:32 | 只看該作者

[發問] VBA 的SQL語法請教各位懂SQL的大大

一、當取得SQL的資料後(已經得到資料),用哪一種語法,能夠最快速的將資料輸出至excel
EX:rng陣列輸入的方式,因該是:range("a1").resize(ubound(rng),ubound(rng,2)).value=rng
可是SQL取得資料後無法使用此語法,不曉得高手大大們都是用哪一種語法
小弟只懂得下列2種語法,請問有更快速的輸出語法嗎?或是從哪邊可以得知相關的說明網站
conn為ADODB.Connection
1
ActiveSheet.Range("a1").CopyFromRecordset conn.Execute(strSQL)
2
Rng = conn.Execute(strSQL).GetRows  '轉為陣列(相反的)
Range("a1").Resize(UBound(Rng, 2) + 1, UBound(Rng) + 1).Value = Application.Transpose(Rng)


二、當取得SQL的資料後(已經得到資料),用哪一種語法,能夠最快速的將資料轉換為陣列
小弟只會用getrows的方法轉換為陣列(但還需要轉置，才是正常的順序)
或是不用轉換為陣列,要如何讀取出此值(在不輸出至excel儲存格上的情況之下，因為輸出之後再讀取實在太慢而且不便)
收藏 分享
PKKO

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2016-2-29 00:04 | 只看該作者
回復 1# PKKO

http://forum.twbts.com/viewthread.php?tid=12095

關鍵字  CopyFromRecordset

會快一點

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2016-2-29 01:51 | 只看該作者
回復 2# joey0415


    感謝大大,您建議的方式也是我目前正在使用的方式

另外您轉po的文章,也有幫助
下方code,我並不曉得可以用這種方式,讀取資料
Set rs = conn.Execute(strSQL)
[E1] = rs.Fields(0)

但此方式只能讀取Fields欄位
無法將整個查詢的結果都讀取
小弟只研究出GetRows的方式可以轉為陣列
不過還要轉置,因此會多花一些時間
不曉得大大有別的方法嗎?
PKKO

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
4#
發表於 2016-2-29 10:03 | 只看該作者
回復 3# PKKO
我自己以前這樣寫，你參考看看
  1.         sub ex
  2.                
  3.                         Set cnn = CreateObject("adodb.connection")
  4.                         cnn.Open ("Driver={SQLite3 ODBC Driver};database=" & ThisWorkbook.Path & "\CB.sqlite")'自行修改drive
  5.                         Set rss = cnn.Execute("select * from XXX")
  6.                                 For i = 0 To rss.Fields.Count - 1 '取標題，如果不要可省略
  7.                                         Cells(1, i + 1) = rss.Fields(i).Name
  8.                                 Next
  9.                         Worksheets("X").Cells(2, 1).CopyFromRecordset (rss) 'cells(2,1)第一行有標題
  10.                         cnn.Close

  12.                         Set cnn = Nothing
  13.                         Set rss = Nothing
  14.                
  15.                 end sub
複製代碼

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2016-2-29 18:48 | 只看該作者
回復 4# joey0415


    感謝大大
PKKO

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
354 
主題
5 
精華
0 
積分
387 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-8-2 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2022-12-22 18:08 | 只看該作者
本帖最後由 singo1232001 於 2022-12-22 18:20 編輯

回復 5# PKKO

先感謝 joey0415 跟 PKKO 大大

今天我也撞到這個問題了
想請大師支援一下

目前觀察到的狀況如下


正常的 二維陣列  可以使用Transpose方式轉置  轉90度

但這個陣列不是一般類型的
當從sql語法取的資料,用了Getrows後獲得陣列後
他陣列裡面 每個"格" 都有自帶屬性 (上圖正常陣列 都是string  ,  從sql出來的 有null date string int variant各種資料屬性)
這就好玩了

想轉陣列 不給轉 或許是屬性卡住
目前好像也只能土炮的 寫個方法旋轉而已

問1.有超簡單專門應對的方法嗎?
問2.若真沒有,通常建議用甚麼寫法來處理?
        A:一個一個轉?
        B:用join +split轉?
        C:其他?

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題