触摸屏TP277可以放数据库吗?具体的脚本命令是什么?
问题补充:在电脑进行调试时可以读取数据,但将程序传送给TP277后,触摸屏不访问数据库。
Dim ConString
ConString="Provide=MSDASQL;DRIVER=SQL Server;SERVER=10.8.41.12;DATABASE=GWM_PRESSSHOP;UID=GWM;PWD=111111"
Dim conn,rst
Dim endtime
Dim starttime
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
On Error Resume Next
conn.open ConString
Set rst=conn.Execute("Select * From KJLL_ProductionStatus_2 where status='"&"正生产'")
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Exit Sub
End If
SmartTags("生产状况\ActualAmount")=rst.Fields(12)
SmartTags("生产状况\Plan