incc flexible。只有一个IO域,模式为输出,过程变量设置为wendu,变量为温度,按钮两个,一个是连接数据库,还有个是读取数据,数据源名称为database_1,驱动程序为sql server,然后配置了数据库,怎么在脚本里面写程序使得运行时电机读取数据使得温度示数显示为数据库里的特定的数据?从网上抄了点程序,怎么调试都不对,是程序不对还是设置的问题。
On Error Resume Next
Dim conn,rst
Set conn =CreateObject("adodb.connection")
Set rst =CreateObject("adodb.recordset")
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;dsn=database_1;catalog=liji"
If Error.number<>0 Then
ShowSystemAlarm"error#"&Err.Number&""&Err.Description
Err.Clear
Exit Sub
End If
Dim wendu
wendu="SELECT * FROM Table_1 WHERE Nr = <12"
Set rst = conn.Execute(wendu)
If Err.Number <> 0 Then
ShowSystemAlarm Err.Description 'Error description ; Fehlerbeschreibung
End If
求各位哥哥们指导下,小弟初来乍到,最好能说下详细的步骤和程序。包括建立数据源开始,急啊 |