代码是在计划管理里的,30秒执行一次
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.TryConnect(xinxj) = True Then '''能链接
If Connections.Contains("xinxj") = False ''''不存在XINXJ数据源
Connections.Add("xinxj",xinxj)
End If
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
Else
Forms("数据源无法链接").open
If Connections.Contains("xinxj") = True
connections.Delete("xinxj") ''''''''删除数据源
End If
End If
End If
[此贴子已经被作者于2014-4-11 8:58:02编辑过]