返回列表下一主題上一主題發帖

[發問] excel 讀取SQL 資料變數設定

mptmk

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 10
註冊時間: 2015-6-18
最後登錄: 2015-6-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-6-18 13:17 | 只看該作者

[發問] excel 讀取SQL 資料變數設定

使用Excel 讀取SQL資料表內容

把 DeliveryID 為201506160004 的ProductID,SalesQuantity資料放到儲存格I6
巨集如下：
Sub test2() '定義過程名稱

Dim sht As Worksheet 'sht 為excel工作表物件變數，指向某一工作表
Dim ADOcn As Object
Dim ADOrt As Object
Set ADOcn = CreateObject("ADODB.Connection") '定義資料連結物件
Set ADOrt = CreateObject("ADODB.Recordset") '定義記錄物件

Dim strCn As String, strSQL As String

strCn = "Provider=SQLOLEDB.1;Password=XXX;Persist Security Info=Tru e;User ID=XXX;Initial Catalog=i-FreelancerSBP-0001;Data Source=(local)\SQLExpress;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=MARVIN-PC;Use Encryption for Data=False;Tag with column collation when possible=False" '定義資料庫連結字串

ADOcn.Open strCn '與資料庫建立連接，如果成功，返回連線物件cn
strSQL = "select ProductID,SalesQuantity from DeliveryDetail where DeliveryID ='2015061600004'" '定義SQL查詢命令字串為
ADOrt.Open strSQL, ADOcn '
Range("I6").CopyFromRecordset ADOrt
ADOrt.Close '關閉記錄集，
ADOcn.Close

End Sub

現在要把 DeliveryID 的 201506160004 改為可變的，在儲存格B3 .
也就是在B3輸入，就可匯入想要 ProductID,SalesQuantity資料。
請問各位大大這樣要怎麼改?