Re: [VBA ] 新新新手要如何將資料庫查出來的值放到 …
※ 引述《pokie77 (加油!)》之銘言：
: 如題 請問各位高手 我陷在可以在excel中 看到所下的資料
: 我要怎將 其中的一個欄位設為變數a 一個欄位設為變數b
: 然後將a*b 做運算
: 我不知道要怎做才可以將撈出來的值放到變數中
: 麻煩各位高手指點迷津 －－
: 感激不盡
: Sub ConnSQL()
: ' ========== 在此設定你需要的變數 ==========
Dim a as ....
Dim b as ....
: 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
Cells(counter,rs.Fields.Count).Value = _
rs.Fields("A").value * rs.Fields("B").value
: rs.movenext
: Loop
: End Sub
--
不勉強一份連綴不起來的情感
也不輕易放棄
一段曾經有過的感情
是隨緣也是執著
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 221.169.7.130
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
1
10