Prodave Under Access (32-Bit) Example - Siemens SIMATIC S7 Operating Instructions Manual

SIEMENS AG

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,
Declare Function db_read Lib "w95_s7" ( ByVal dbno 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
Toolbox for Data Link PGs/PCs to SIMATIC S7
ByVal name As String,
ByVal adr As String) As Long
ByVal dwno As Long,
ByRef amount As Long,
ByRef buffer As Integer) As Long
14
PRODAVE S7