主题：[求助]数据链接不上计划任务停止

Dim xinxj As String = "Provider=SQLOLEDB;Password=1UmeLz2Qy4KX;Persist Security Info=True;User ID=OpenMas8020005;Initial Catalog=OpenMas;Data Source=111.1.2.106,1433\SQLEXPRESS"

'''取接收表第一条内容
If Forms("处理数据").Opened = False Then
    If Connections.Contains("xinxj") = True    ''''存在XINXJ数据源
        connections.Delete("xinxj")                 ''''''''删除数据源
    End If   
    If Connections.TryConnect(xinxj) = False Then      ''''''并且数据源无法链接
        Forms("数据源无法链接").open
    Else                                               ''''''则建立数据源
       
        Connections.Add("xinxj",xinxj)
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        cmd.C
        cmd.CommandText = "select top 1 * from Com_SmsIn_db8020005"
        dt = cmd.ExecuteReader()
        '''取接收表第一条内容
        If dt.DataRows.Count =1 Then
            Forms("处理数据").open
        End If
    End If
End If

 

 

 

以上是计划管理的代码

请问一下为什么数据连接不上的时候计划管理不起作用了？是不是少了什么条件没考虑进去？？？

是的，这个窗口也有能执行的时候，并不是每次都不能打开。计划管理是30S一次。错误截图如下：

例子我们已经做了，也正在使用着了，但是不知道在什么情况下会报错。报错后程序就死掉，要重新打开才能使用

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:信息机服务201404101415.rar

 If Connections.Contains("xinxj") = False
        Connections.Add("xinxj",xinxj)
    End If
请问这段代码连接不上数据源还能执行吗？