UC知道vb代码 执行效率如何提高呢?
来源：百度知道 编辑：UC知道 时间：2024/06/18 17:00:41
Private Sub setBG()
Dim sql0, sql1, sql2 As String
Dim mFempID As String '员工内码
Dim mRs As Object
Dim mRs1 As Object
Dim mRs2 As Object
Dim mRs3 As Object
Dim bx As Double
Dim gjj As Double
'获取人员ID
sql = "SELECT FHrID From dbo.t_PA_Personal "
Set mRs = Nothing
Set mRs = mMyCn.Execute(sql)
If Not mRs.EOF And Not mRs.BOF Then
' mRs.MoveFirst
While Not mRs.EOF
DoEvents
mFempID = mRs(0)
sql0 = "SELECT SUM(FYFSalary)/12 AS FYFSalary, FEmpID " & _
"From tbl_EmpSarllary " & _
"WHERE (FYear = CAST(DATEPART([year], GETDATE()) AS varchar)) AND " & _
"(FMonth BETWEEN 1 AND 12) and FEmpID= '" & mFempID & "' " & _
Dim sql0, sql1, sql2 As String
Dim mFempID As String '员工内码
Dim mRs As Object
Dim mRs1 As Object
Dim mRs2 As Object
Dim mRs3 As Object
Dim bx As Double
Dim gjj As Double
'获取人员ID
sql = "SELECT FHrID From dbo.t_PA_Personal "
Set mRs = Nothing
Set mRs = mMyCn.Execute(sql)
If Not mRs.EOF And Not mRs.BOF Then
' mRs.MoveFirst
While Not mRs.EOF
DoEvents
mFempID = mRs(0)
sql0 = "SELECT SUM(FYFSalary)/12 AS FYFSalary, FEmpID " & _
"From tbl_EmpSarllary " & _
"WHERE (FYear = CAST(DATEPART([year], GETDATE()) AS varchar)) AND " & _
"(FMonth BETWEEN 1 AND 12) and FEmpID= '" & mFempID & "' " & _
按我QQ上和你说的 改成一个sql语句！~ 不要循环记录集！~
十多秒呀....看来还真是个问题...一定得想办法改进一下才行.......
你能否再找找,具体到
某一确定某一条语句出问题了吗????(因为这代码没用循环.全是select查询语句.....)
你用F9把你怀疑的都试一下.看看.到底是那一句在搞鬼
你确定是这段代码.影响了你的效率吗????????
我公司不能上QQ........哭死呀.唉..........
朋友,我看了一下你的代码,感觉没不影响的呀.很正常的代码......
对了.你这数据是多大呢????????? 为什么会问执行效率如何提高这么问题...........
你是否想一条SQL语句写出同样的功能????