[VBA ] 新新新手要如何將資料庫查出來的值放到變數中阿
如題 請問各位高手 我陷在可以在excel中 看到所下的資料
我要怎將 其中的一個欄位設為變數a 一個欄位設為變數b
然後將a*b 做運算
我不知道要怎做才可以將撈出來的值放到變數中
麻煩各位高手指點迷津 －－
感激不盡
Sub ConnSQL()
' ========== 在此設定你需要的變數 ==========
SQLStr = "select * from dbo.CP2_LOSS_DIE"
ConnStr = "Driver={SQL Server}; DATABASE=DEVNVMTEST; SERVER=wehcdbms51; UID=y130; PASSWORD=y130123"
' ==========================================
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")
conn.ConnectionString = ConnStr
conn.Open
rs.Open SQLStr, conn
counter = 0
Do While Not rs.EOF
counter = counter + 1
For i = 0 To rs.fields.Count - 1
Cells(counter, i + 1).Value = rs(i)
Next
rs.movenext
Loop
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.35.31.57
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
1
10