Related example macros: Wsh-Submit-2-Web
Related example script: File-2-web-Method2.vbs, Database-2-web.vbs
This example only works with the Scripting Edition.
iMacros can read data directly from any Windows database using the Scripting Interface and a few lines of code.
This example code in Visual Basic Script connects to an Microsoft Access database:
' open database
set rs = CreateObject("ADODB.Connection")
rs.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" _
& mypath & "IIM-TEST-SUBMIT.MDB")
' use SQL to select information
sql = "select * from table1"
set rs = rs.Execute(sql)
' start iMacros
set iim1= CreateObject ("InternetMacros.iim")
iret = iim1.iimInit
iret = iim1.iimDisplay("Submitting Data from MS ACCESS")
' loop through result dataset
do until rs.eof
'Set the variable
iret = iim1.iimSet("-var_FNAME", rs.fields(0))
iret = iim1.iimSet("-var_LNAME", rs.fields(1))
iret = iim1.iimSet("-var_ADDRESS", rs.fields(2))
iret = iim1.iimSet("-var_CITY", rs.fields(3))
iret = iim1.iimSet("-var_ZIP", rs.fields(4))
iret = iim1.iimSet("-var_STATE-ID", rs.fields(5))
iret = iim1.iimSet("-var_COUNTRY-ID", rs.fields(6))
iret = iim1.iimSet("-var_EMAIL", rs.fields(7))
'Run the macro
'Note: This is the SAME macro, as in the FILE-2-WEB-METHOD2.VBS example script!!!
iret = iim1.iimPlay("wsh-submit-2-web")
If iret < 0 Then
MsgBox iim1.iimGetLastError()
End If
rs.movenext
loop
iret = iim1.iimDisplay("Done!")
iret = iim1.iimExit
WScript.Quit(0)
Page URL http://www.iopus.com/imacros/help/input_database.htm