- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- x64
- 閱讀權限
- 10
- 註冊時間
- 2015-6-18
- 最後登錄
- 2015-6-18
|
使用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資料。
請問各位大大這樣要怎麼改? |
|
發表於 2015-6-18 13:17
| 
