SIEMENS AG PRODAVE S7
Toolbox for Data Link PGs/PCs to SIMATIC S7
14
3.5.2 PRODAVE under Access (32-Bit) Example
To enable you to use the PRODAVE functions under Access, they must be
declared as follows:
Declare Function load_tool Lib “w95_s7“ ( ByVal no As Byte,
ByVal name As String,
ByVal adr As String) As Long
Declare Function db_read Lib “w95_s7“ ( ByVal dbno As Long,
ByVal dwno As Long,
ByRef amount As Long,
ByRef buffer As Integer) As Long
Declare Function unload_tool Lib “w95_s7“ () As Long
Example:
Dim dbno As Long, dwno As Long, amount As Long
Dim buffer(50) As Integer
Dim plc_adr_table As String
res = load_tool 1, “S7ONLINE“, plc_adr_table,
res = db_read dbno, dwno, amount, buffer(0)
res = unload_tool