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

mptmk

使用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資料。
請問各位大大這樣要怎麼改?

mptmk

回復 1# mptmk

已解決