Insert data into sql database where the values are in an array

Question

Hello Experts,
using vbscript i want to store data in MS SQL. i have prepared a script which works fine when i provide the static value but in actual i get the values in an array and now want to store values from there.
Below is not complete code but the block in question.
oRecordset_Working.Open "INSERT INTO tbl_work (release, version, state, Arch)" & _
"VALUES ('5.2', '11.25' , 'Active', 'XYZ')", _
oConnection, adOpenStatic, adLockOptimistic
i verified the database and can see the information is feeded.
What i really want to make work is:
for i=0 to UBound (arrValues)
oRecordset_Working.Open "INSERT INTO tbl_work (release, version, state, Arch)" & _
"VALUES ('arrValues(i)')", _
oConnection, adOpenStatic, adLockOptimistic
Next
logically it is incorrect as INSERT query comes inside the loop but then how can someone make it work?
can someone help me with this?
-KAKA-

Answer 1

Here is the preferred method of inserting multiple values into multiple fields.  It is very fast and very easy to set up.
Const adBSTR = 8
Const adInput = 1
Const CONNECTION_STRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\temp\test.mdb;Persist Security Info=False"
Const SQL_INSERT = "INSERT INTO Table1(ID, Name, Notes) VALUES(?, ?, ?)"
Set conn = CreateObject("ADODB.Connection")
conn.Open(CONNECTION_STRING)
Set cmd = CreateObject("ADODB.Command")
With cmd
.ActiveConnection = conn
.CommandText = SQL_INSERT
.Prepared = True
' create parameter object and assign to command object
.Parameters.Append .CreateParameter("ID", adBSTR, adInput)
.Parameters.Append .CreateParameter("Name", adBSTR, adInput)
.Parameters.Append .CreateParameter("Notes", adBSTR, adInput)
End With
' bind and insert values
For i = 2 To 10
cmd.Parameters("ID") = "ID" & i
cmd.Parameters("Name") = "Joe" & i
cmd.Parameters("Notes") = "My notes"
cmd.Execute
Next
conn.Close
¯\_(ツ)_/¯