提示内容
不能打开数据库。应用程序可能无法识别该数据库，或文件可能损坏。
请教，
我有1台电脑，做主机 用 access 的 文件做数据库
一台电脑对一个表写入数据，其他4台电脑 都加载这个表，时间 定时为 5秒追载一次。
以前一台电脑的时候没出现过这个问题， 现在加了3台电脑进去读数后，发现这4台电脑都随机 弹出
”不能打开数据库。应用程序可能无法识别该数据库，或文件可能损坏。“
这个错误！
代码如下
If TryConnectHost("192.168.44.170") Then
Dim id As Integer = DataTables("条码录入表").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("条码录入表").AppendLoad(Filter, False)
If id > 0 Then
e.Form.StopRedraw
Dim mydate1 As Date = DataTables("条码录入表").DataRows(0)("计划日期")
Dim str1 As String = DataTables("条码录入表").DataRows(0)("班次")
DataTables("生产计划表").LoadFilter="计划日期 = #" & mydate1 & "# and 班次 = '" & str1 & "'"
DataTables("生产计划表").Load
Dim str As String = DataTables("条码录入表").DataRows(DataTables("条码录入表").DataRows.Count-1)("条码前缀")
If str = "SCJS00000000" Then
Syscmd.Project.Exit(False)
Return
End If
If Vars("dangqianzhi") <> DataTables("条码录入表").DataRows.Count-1 Then
Vars("dangqianzhi") = DataTables("条码录入表").DataRows.Count-1
Dim Int As Integer
Int = DataTables("条码录入表").DataRows(DataTables("条码录入表").DataRows.Count-1)("序号")
Dim dr As DataRow = DataTables("生产计划表").Find("序号 = '" & int & "'")
If dr IsNot Nothing Then
Dim strb As String = dr("车型")
If strb.Contains("/") Then
strb = strb.Replace("/","")
End If
Dim pb As WinForm.PictureBox = Forms("上盖").Controls("PictureBox1")
pb.Image = GetImage(ProjectPath & "\图片\" & strb & "上盖.jpg" )
End If
End If
e.Form.ResumeRedraw
End If
Else
' MessageBox.Show("网络连接有问题,请班长确认!" & vbcrlf & vbcrlf & "连接完成后,重启该主机电脑!","提示")
Syscmd.Project.Exit(False)
End If
我查过每次 提示这个错误， foxtable 都会卡死 ，点击 错误详细 都点不开
[此贴子已经被作者于2015/11/25 14:22:12编辑过]
加好友 
发短信
Post By：2015/11/25 14:07:00 [显示全部帖子]
