I realize I may be in the wrong area....

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

I realize I may be in the wrong area....

Logged in as: Guest

arrSession:exec spGetSession 2,3,36046

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> I realize I may be in the wrong area....
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

I realize I may be in the wrong area.... - 7/8/2006 3:15:03 AM

mojeaux65

Posts: 7
Score: 0
Joined: 2/16/2006
Status: offline

So please re-direct me if needed!

I am looking to build a client side vbscript which will run behind an MS InfoPath form to submit form values to a MS Access DB 2000. The form I have has about 75 values/fields to populate. A co-worker suggested I use command parameters to submit the information. I've never worked with these. Can you give me some pro's and con?
Would I still have to declare and set my variables? Here's my first attmept at writing the script. It's untested at this point. Does syntax look ok? Will the variables need any special quotes or characters added to the INSERT statement? Any suggestions would be a huge help! Thanks!

<SCRIPT LANGUAGE="VBScript">

Dim form1, form2, form3, form4, form5, form6, form7, form8, form9, form10
Dim form11, form12, form13, form14, form15, form16, form17, form18, form19, form20
Dim form21, form22, form23, form24, form25, form26, form27, form28, form29, form30
Dim form31, form32, form33, form34, form35, form36, form37, form38, form39, form40
Dim form41, form42, form43, form44, form45, form46, form47, form48, form49, form50

form1 = innerHTML.main.form1.value
form2 = innerHTML.main.form2.value
form3 = innerHTML.main.form3.value
form4 = innerHTML.main.form4.value
form5 = innerHTML.main.form5.value
form6 = innerHTML.main.form6.value
form7 = innerHTML.main.form7.value
form8 = innerHTML.main.form8.value
form9 = innerHTML.main.form9.value
form10 = innerHTML.main.form10.value
etc....

Dim MyConn As ADODB.Connection
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyAccessDB.mdb;"

mySql = "INSERT INTO Referrals(fld1, fld2, fld3, fld4, fld5, fld6, fld7, fld8, fld9, fld10, "
mySql = mySql & "fld11, fld12, fld13, fld14, fld15, fld15, fld16, fld17, fld18, fld19, fld20, "
mySql = mySql & "fld21, fld22, fld23, fld24, fld25, fld25, fld26, fld27, fld28, fld29, fld30, "
mySql = mySql & "fld31, fld32, fld33, fld34, fld35, fld35, fld36, fld37, fld38, fld39, fld40, "
mySql = mySql & "fld41, fld42, fld43, fld44, fld45, fld45, fld46, fld47, fld48, fld49, fld50" & ")" & VALUES ("
mySql = mySql & form1, form2, form3, form4, form5, form6, form7, form8, form9, form10
mySql = mySql & form11, form12, form13, form14, form15, form16, form17, form18, form19, form20
mySql = mySql & form21, form22, form23, form24, form25, form26, form27, form28, form29, form30
mySql = mySql & form31, form32, form33, form34, form35, form36, form37, form38, form39, form40
mySql = mySql & form41, form42, form43, form44, form45, form46, form47, form48, form49, form50 & ")"

MyConn.Open

MyConn.Execute(mySql)

MyConn.Close
MyConn = Nothing

</SCRIPT>