作者Catbert (I am Leo)
看板Visual_Basic
标题Re: [VBA ] 新新新手要如何将资料库查出来的值放到 …
时间Mon Dec 4 22:06:56 2006
※ 引述《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