主题：我的“连接未关闭”一直未解决

下面是出错的提示

此主题相关图片如下：121.png

下面这段代码是写在计划管理里面的，10秒执行一次

If User.Group = "值班员" OrElse User.Name = "开发者" Then
    Dim vawb As Integer = DataTables("出勤记录表").SQLCompute("Count([_Identify])")
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText ="S elect Count(*) From {VIEW_ZD_ChuQinJiLu}"
    Dim vawr As Integer = cmd.ExecuteScalar()
    OutRoomRecord = vawr - vawb
    If OutRoomRecord > 0 AndAlso vawb > 0 Then
        Dim dt As DataTable
        Dim Cols1() As String = {"strWorkID","strNumber","strTrainmanName","strLoginType","strPlanID","dtOutRoomTime","strSiteName","dtTestDateTime","strTestAlcoholResult","dtWritecardTime","strSection","nWorkReadingCount","dReadTimeSum"}
        Dim Cols2() As String = {"出勤记录ID","代号","姓名","登录方式","出勤计划ID","出勤时间","出勤地点","测酒时间","测酒结果","写卡时间","写卡区段","读取文件","读取时间"}
        cmd.CommandText = "S elect Top "& OutRoomRecord &" * From {VIEW_ZD_ChuQinJiLu} Where [strWorkID] Is Not Null  Order by [dtOutRoomTime] Desc"
        dt = cmd.ExecuteReader()
        For Each dr1 As DataRow In dt.DataRows
            Dim dr2 As DataRow = DataTables("出勤记录表").AddNew()
            For i As Integer = 0 To Cols1.Length -1
                dr2(Cols2(i)) = dr1(Cols1(i))
            Next
        Next
        DataTables("出勤记录表").LoadTop = "20"
        DataTables("出勤记录表").LoadOrder = "[出勤时间] Desc"
        DataTables("出勤记录表").Load()
        With Tables("出勤记录表")
            .sort = "[出勤时间] Desc"
            .Position = 0
        End With
        Forms("出勤提示").Show()
    End If
End If

令人郁闷的是一直想了很多办法都没有办法解决，不定时出现，怀疑是SQL2008，但是也重新安装了，一段一段代码也注释过，但是有时候还是出现，好的时候一天不出现一次，有时候，连续出现，真想不出是什么地方出问题了，这两张表都是外部数据表

如果执行多个sql语句，建议new多个对象出来。不然有可能冲突

Dim cmd1 As New SQLCommand

Dim cmd2 As New SQLCommand

谢谢大红袍老师，我再试一试，呵呵，相信你的感觉

全部都改了，还是不行啊，到底是哪里出问题呢？请问哪位老师给帮忙解决一下啊

不要重复执行。

If User.Group = "值班员" OrElse User.Name = "开发者" Then
    MyTimers("计划1").Enabled = False
    '其余代码
    MyTimers("计划1").Enabled = True
End If

大红袍老师，你上面这段代码写在哪里啊

你原来的计划管理那里。注意替换成自己的代码