The renewal maintenance has officially ended for Progress iMacros effective November 30, 2023.
This Wiki site will also no longer be moderated from the Progress side.
Thank you again for your business and support.
Sincerely, The Progress Team
Difference between revisions of "Database-2-Web.vbs"
Jump to navigation
Jump to search
Line 1: | Line 1: | ||
− | + | 'Internet Macros | |
− | 'Internet Macros | ||
'Read from a Microsoft ACCESS database | 'Read from a Microsoft ACCESS database | ||
'This example requires the ADODB component (MDAC/ADO) from Microsoft | 'This example requires the ADODB component (MDAC/ADO) from Microsoft |
Revision as of 21:24, 10 May 2007
'Internet Macros 'Read from a Microsoft ACCESS database 'This example requires the ADODB component (MDAC/ADO) from Microsoft 'If you have ACCESS installed, this component is installed as well. Option Explicit dim rs, iim1, sql dim myname, mypath, connstring dim iret MsgBox "This script demonstrates how to read data from an ACCESS database and submit this information to a website. It reads from the database <IIM-TEST-SUBMIT.MDB> and uses the macro <wsh-submit-2-web>." + vbCrLf + VbCrLf + "Tip: This script has the same function as <file-2-web-method2.vbs> but reads the data from a database instead of a text file." ' find out current folder myname = WScript.ScriptFullName mypath = Left(myname, InstrRev(myname, "\")) ' open ACCESS database set rs = CreateObject("ADODB.Connection") connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & mypath & "IIM-TEST-SUBMIT.MDB" 'NOTE: Top open an SQL database instead of an ACCESS database please use: ' 'connstring = "driver={SQL Server};server=<SQLServerNameHere>;uid=<SQLUserIDHere>;pwd=<SQLPasswordHere>;database=databaseNameHere>" ' rs.Open (connstring) ' use SQL to select information sql = "select * from table1" set rs = rs.Execute(sql) set iim1= CreateObject ("InternetMacros.iim") iret = iim1.iimInit iret = iim1.iimDisplay("Submitting Data from MS ACCESS") 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)