作者pokie77 (加油!)
看板Visual_Basic
标题[VBA ] 新新新手要如何将资料库查出来的值放到变数中阿
时间Sun Dec 3 11:19:19 2006
如题 请问各位高手 我陷在可以在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