VBA_輸出SQL查詢數(shù)據(jù)-創(chuàng)新互聯(lián)

Option Explicit Sub 輸出數(shù)據(jù)表(strSql As String, Work As String) '傳值處理 ''''''''''''''''''''''''''''''''''''''''''' Dim data As New 數(shù)據(jù)庫(kù) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sht As Worksheet Dim i As Integer Dim Lm As Integer Dim h As Integer Set sht = ThisWorkbook.Worksheets(Work) cn.Open data.SQL數(shù)據(jù)庫(kù) '循環(huán)查詢到的列名，把列名的數(shù)量定義循環(huán)。 rs.Open strSql, cn '執(zhí)行strSQL所含的SQL命令，結(jié)果保存在rs記錄集對(duì)象中 i = 0 Lm = rs.Fields.Count '列名的數(shù)量定義 While i < Lm     sht.Cells(2, i + 1) = rs.Fields(i).Name '列名讀取     i = i + 1 'i加1，準(zhǔn)備把下一記錄相關(guān)字段的值保存到工作表的下一行 Wend rs.Close '關(guān)閉記錄集 ''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' '循環(huán)數(shù)據(jù)表 rs.Open strSql, cn '執(zhí)行strSQL所含的SQL命令，結(jié)果保存在rs記錄集對(duì)象中 i = 3     Do While Not rs.EOF         h = 1         While h - 1 < Lm '當(dāng)數(shù)據(jù)指針未移到記錄集末尾時(shí)，循環(huán)下列操作             sht.Cells(i, h) = rs(rs.Fields(h - 1).Name) '把當(dāng)前字段2的值保存到sheet1工作表的第i行第2列             h = h + 1         Wend         rs.MoveNext '把指針移向下一條記錄         i = i + 1     Loop rs.Close '關(guān)閉記錄集

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比西烏珠穆沁網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式西烏珠穆沁網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋西烏珠穆沁地區(qū)。費(fèi)用合理售后完善，十年實(shí)體公司更值得信賴。

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。

網(wǎng)頁(yè)標(biāo)題：VBA_輸出SQL查詢數(shù)據(jù)-創(chuàng)新互聯(lián)
鏈接地址：http://muchs.cn/article12/coeigc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、面包屑導(dǎo)航、定制網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司、動(dòng)態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)

外貿(mào)網(wǎng)站建設(shè)